Kết quả tìm kiếm

Viết tặng bạn 1 Code:

phím hư không gõ được.

Bạn chạy thử Sub này coi sao Sub GPE() Dim Ten As String, i As Long, j1 As Long, j2 As Long, R As Long R = Range("A100000").End(xlUp).Row 'Xac dinh dong cuoi cot A' Range("B1:D" & R).ClearContents For i = 1 To R If Range("A" & i) <> Space(0) Then 'Cell co du lieu' Ten = Range("A" &...

Chỉnh lại Code Bài #1, Bạn chạy thử Sub này, chậm rì, chờ người khác chỉnh lại nhanh hơn.

Tôi cũng thuộc loại "chi ly, tiểu tiết", đã từng được góp ý là "bài nào đọc không khoái thì bỏ qua, đừng ngó tới...". Và tôi đã "làm theo". Đến bây giờ thì cả tháng mới đọc được một vài bài.

Làm theo file bài #15, nếu file bài #1 thì nên dùng VBA.

1/ "Tách dong theo cột số lượng": Khó hiểu. Viết xong cũng chẳng đọc lại xem mình viết có đủ dấu, chính tả không. 2/ Công "đào mộ" cũng đáng để giúp 1 Sub "cùi bắp" Option Explicit Public Sub Gpe() Application.ScreenUpdating = False Dim sArr(), dArr(), I As Long, J As Long, N As Long, K As...

Chúc mừng sinh nhật @ptm0412. Chúc bạn ngày càng "chết tiệt"!

Bạn dùng bảng dữ liệu và bảng Kết quả chung 1 sheet, với code như của bạn thì chạy Sub nhiều lần sẽ thành "từa lưa" hết, do biến lastrow của bạn sau mỗi lần chạy sẽ không còn là 523 dòng nữa. Nên cho kết quả vào 1 sheet khác, không động chạm vào sheet dữ liệu. Sửa lại Code trong file cho bạn.

Bạn vào Tools, Options của VBE, check vào ô chọn như trong hình. Sau này, khi bạn Insert 1 Module, nó sẽ tự động có dòng Option Explicit trên đầu Module.

Bạn xem thử file này, có thêm 1 dòng đếm số mã hàng từng KH có số lượng đặt.

Module nào có dòng Option Explicit trên cùng, sẽ bị lỗi biến Keys ReDim KQ(1 To R, 1 To 3) ............................................ Kết quả sẽ có những dòng #N/A. Gán xuống sheet như thế này là đủ: Nếu dữ liệu đã sắp xếp như trong cột A, cũng không cần tới Dictionary. Mấy cái Sh.[C1], ...

Dữ liệu của bạn không chuẩn, ô thì 13-03-2021, ô thì 14/06/2021. Bạn Ctrl+H, thay các dấu - thành dấu / trước khi thao tác Text to Columns.

Bạn xem thử file này rồi tùy chỉnh lại theo bảng dữ liệu thật của bạn.

Gặp đúng "cao nhân" rồi.

Kết quả chạy Sub của bạn đã chính xác chưa? Bạn sửa lại như vầy và kiểm tra kết quả, so sánh lại với kết quả của bạn xem cái nào đúng. Sub vssid() Dim arr6(), arr2(), Kq() Dim i As Long, j As Long, LR2 As Long, LR6 As Long LR2 = Sheet2.Range("A" & Rows.Count).End(xlUp).Row LR6 =...

Diễn đạt không hiểu gì hết (với người ngoài chuyên môn giống bạn) Mấy cái nếu cần phải giải thích rõ: Ô nào điều chỉnh thành bao nhiêu, lý do, dựa vào ô nào, điều kiện gì, .... ô nào sau đó chỉnh lại thế nào, dựa vào cái gì, điều kiện gì ... Đến ngày trc đó là ngày nào (trc là gì?) @Ba Tê Dạ em...

Thử Sub này, chỉnh lại tùy ý Public Sub Gpe() Dim C As Long, I As Long, J As Long, R As Long, Cols As Long Dim Quantity As String, Store As String, D As Long Quantity = "Quantity" Store = "Store" D = Date Cols = Range("T6").End(xlToRight).Column R =...

Nếu dữ liệu chuẩn thì SUMIFS() như trong file này.

Dùng VBA thử nhé!