Nhờ xem lại hàm sumifs trong vba (1 người xem)

kid.phan2705 · 7/5/22

Hiện tại e có 1 file tổng hợp nhập xuất tồn, nếu dùng hàm sumifs thì ra đúng kết quả. Tuy nhiên nếu dùng function.sumifs trong vba thì nó không hoạt động đúng.
Yêu cầu là check mã vật tư trước ngày start => số lượng hàng tồn
E đã thử nghiệm ở hàm sumifs thì ra đúng. Lò mò xài vba với đoạn code như hình thì nó lại bỏ qua cái điều kiện thứ 2 (check ngày).
Mọi người giúp e sai ở chỗ nào với.

Phuocam · 7/5/22

kid.phan2705 đã viết:
Hiện tại e có 1 file tổng hợp nhập xuất tồn, nếu dùng hàm sumifs thì ra đúng kết quả. Tuy nhiên nếu dùng function.sumifs trong vba thì nó không hoạt động đúng.
Yêu cầu là check mã vật tư trước ngày start => số lượng hàng tồn
E đã thử nghiệm ở hàm sumifs thì ra đúng. Lò mò xài vba với đoạn code như hình thì nó lại bỏ qua cái điều kiện thứ 2 (check ngày).
Mọi người giúp e sai ở chỗ nào với.

Code của bạn thiếu đoạn này :

Mã:

    Dim Ton As Worksheet
    Dim Xuat As Worksheet
    Dim Nhap As Worksheet
    Set Ton = ThisWorkbook.Sheets("NXT")
    Set Xuat = ThisWorkbook.Sheets("Xuat")
    Set Nhap = ThisWorkbook.Sheets("Nhap")

Dữ liệu của bạn bắt đầu từ hàng 4, không phải 5:

Mã:

 For i = 4 To lrnxt

Ngoài ra, một số biến khai báo chưa tối ưu, code làm việc trên range, không phải trên mảng nên chạy chậm ...

.

kid.phan2705 · 7/5/22

Phuocam đã viết:
Code của bạn thiếu đoạn này :

Mã:

Dim Ton As Worksheet Dim Xuat As Worksheet Dim Nhap As Worksheet Set Ton = ThisWorkbook.Sheets("NXT") Set Xuat = ThisWorkbook.Sheets("Xuat") Set Nhap = ThisWorkbook.Sheets("Nhap")

Dữ liệu của bạn bắt đầu từ hàng 4, không phải 5:

Mã:

For i = 4 To lrnxt

Ngoài ra, một số biến khai báo chưa tối ưu, code làm việc trên range, không phải trên mảng nên chạy chậm ...

.

Cảm ơn bác. Thật ra thì e tách ra từ 1 file khác, việc khai báo worksheet theo e nghĩ không phải là vấn đề khiến code chạy khác với hàm trực tiếp? Vì ở file khác không khai báo nhưng vẫn không sao.
Bác cho e hỏi cách chạy theo mảng được không? Em muốn cải thiện thêm

tranchautrungduong · 7/5/22

Mã:

For i = 5 To lrnxt
        a = WorksheetFunction.SumIfs(rngslnhap, rngvtnhap, Ton.Range("A" & i), rngngaynhap, "<" & day1)
        'b = WorksheetFunction.SumIfs(rngslxuat, rngvtxuat, Ton.Range("A" & i), rngngayxuat, "<" & day1)
        Ton.Range("D" & i).Value = a
    Next

ban chay i từ 5, nhưng range bạn từ 4

Phuocam · 7/5/22

kid.phan2705 đã viết:
Cảm ơn bác. Thật ra thì e tách ra từ 1 file khác, việc khai báo worksheet theo e nghĩ không phải là vấn đề khiến code chạy khác với hàm trực tiếp? Vì ở file khác không khai báo nhưng vẫn không sao.

Mới nghe lần đầu.

Không khai báo và không set, nhưng vẫn không sao!

.

kid.phan2705 · 7/5/22

Phuocam đã viết:
Mới nghe lần đầu.

Không khai báo và không set, nhưng vẫn không sao!

.

Cái đó e hiểu ý của bác nhưng do e đã đặt tên worksheet luôn rồi nên e mới nói là ko sao

Chứ không phải là để trống.

tranchautrungduong · 7/5/22

kid.phan2705 đã viết:
Cái đó e hiểu ý của bác nhưng do e đã đặt tên worksheet luôn rồi nên e mới nói là ko sao Chứ không phải là để trống.
View attachment 275563

Theo mình k nên dùng code name

snow25 · 7/5/22

kid.phan2705 đã viết:
Hiện tại e có 1 file tổng hợp nhập xuất tồn, nếu dùng hàm sumifs thì ra đúng kết quả. Tuy nhiên nếu dùng function.sumifs trong vba thì nó không hoạt động đúng.
Yêu cầu là check mã vật tư trước ngày start => số lượng hàng tồn
E đã thử nghiệm ở hàm sumifs thì ra đúng. Lò mò xài vba với đoạn code như hình thì nó lại bỏ qua cái điều kiện thứ 2 (check ngày).
Mọi người giúp e sai ở chỗ nào với.

View attachment 275558

Thử cái code này xem.

Mã:

Sub tinhsoluong()
   Dim i As Long, lr As Long, dic As Object, arr, data, kq() As Double, a As Long, dk As String, b As Long, ngaybd As Long, ngaykt As Long
   Set dic = CreateObject("scripting.dictionary")
   With Sheets("NXT")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A4:B" & lr).Value
        ngaybd = .Range("o2").Value2
        ngaykt = .Range("R2").Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1)
            If Not dic.exists(dk) Then
               dic.Add dk, i
            End If
        Next i
        ReDim kq(1 To UBound(arr), 1 To 8)
   End With
   With Sheets("Nhap")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A3:i" & lr).Value
        For i = 1 To UBound(arr)
            If CLng(arr(i, 2)) < ngaybd Then
               dk = arr(i, 4)
               a = dic.Item(dk)
               If a Then
                  kq(a, 1) = kq(a, 1) + arr(i, 7)
                  kq(a, 2) = kq(a, 2) + arr(i, 9)
                  kq(a, 7) = kq(a, 1) + kq(a, 3)
                  kq(a, 8) = kq(a, 2) + kq(a, 4)
               End If
            ElseIf CLng(arr(i, 2)) <= ngaykt Then
               dk = arr(i, 4)
               a = dic.Item(dk)
               If a Then
                  kq(a, 3) = kq(a, 3) + arr(i, 7)
                  kq(a, 4) = kq(a, 4) + arr(i, 9)
                  kq(a, 7) = kq(a, 1) + kq(a, 3)
                  kq(a, 8) = kq(a, 2) + kq(a, 4)
               End If
            End If
       Next i
  End With
  With Sheets("Xuat")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A3:K" & lr).Value
        For i = 1 To UBound(arr)
            If CLng(arr(i, 2)) < ngaybd Then
               dk = arr(i, 6)
               a = dic.Item(dk)
               If a Then
                  kq(a, 1) = kq(a, 1) - arr(i, 9)
                  kq(a, 2) = kq(a, 2) - arr(i, 11)
                  kq(a, 7) = kq(a, 1) + kq(a, 3) - kq(a, 5)
                  kq(a, 8) = kq(a, 2) + kq(a, 4) - kq(a, 6)
               End If
            ElseIf CLng(arr(i, 2)) <= ngaykt Then
               dk = arr(i, 6)
               a = dic.Item(dk)
               If a Then
                  kq(a, 5) = kq(a, 5) + arr(i, 9)
                  kq(a, 6) = kq(a, 6) + arr(i, 11)
                  kq(a, 7) = kq(a, 1) + kq(a, 3) - kq(a, 5)
                  kq(a, 8) = kq(a, 2) + kq(a, 4) - kq(a, 6)
               End If
            End If
       Next i
  End With
  With Sheets("NXT")
       .Range("D4:K4").Resize(UBound(kq)).Value = kq
  End With
  Set dic = Nothing
End Sub

Phuocam · 7/5/22

Mã:

a = WorksheetFunction.SumIfs(rngslnhap, rngvtnhap, Ton.Range("A" & i), rngngaynhap, ">=" & day1, rngngaynhap, "<=" & day2)

kid.phan2705 · 7/5/22

Phuocam đã viết:
Mã:

a = WorksheetFunction.SumIfs(rngslnhap, rngvtnhap, Ton.Range("A" & i), rngngaynhap, ">=" & day1, rngngaynhap, "<=" & day2)

cái này là lấy trong khoảng từ ngày 1 tới ngày 2
nhưng e cần code lấy trước ngày 1 vẫn không ra được bác ơi

Phuocam · 7/5/22

kid.phan2705 đã viết:
cái này là lấy trong khoảng từ ngày 1 tới ngày 2
nhưng e cần code lấy trước ngày 1 vẫn không ra được bác ơi

.
Không hiểu. Trước ngày 1, điều kiện là: "<" & day1. Vậy vướng chỗ nào?

.

kid.phan2705 · 7/5/22

snow25 đã viết:

Thử cái code này xem.

Mã:

Sub tinhsoluong()
   Dim i As Long, lr As Long, dic As Object, arr, data, kq() As Double, a As Long, dk As String, b As Long, ngaybd As Long, ngaykt As Long
   Set dic = CreateObject("scripting.dictionary")
   With Sheets("NXT")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A4:B" & lr).Value
        ngaybd = .Range("o2").Value2
        ngaykt = .Range("R2").Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1)
            If Not dic.exists(dk) Then
               dic.Add dk, i
            End If
        Next i
        ReDim kq(1 To UBound(arr), 1 To 8)
   End With
   With Sheets("Nhap")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A3:i" & lr).Value
        For i = 1 To UBound(arr)
            If CLng(arr(i, 2)) < ngaybd Then
               dk = arr(i, 4)
               a = dic.Item(dk)
               If a Then
                  kq(a, 1) = kq(a, 1) + arr(i, 7)
                  kq(a, 2) = kq(a, 2) + arr(i, 9)
                  kq(a, 7) = kq(a, 1) + kq(a, 3)
                  kq(a, 8) = kq(a, 2) + kq(a, 4)
               End If
            ElseIf CLng(arr(i, 2)) <= ngaykt Then
               dk = arr(i, 4)
               a = dic.Item(dk)
               If a Then
                  kq(a, 3) = kq(a, 3) + arr(i, 7)
                  kq(a, 4) = kq(a, 4) + arr(i, 9)
                  kq(a, 7) = kq(a, 1) + kq(a, 3)
                  kq(a, 8) = kq(a, 2) + kq(a, 4)
               End If
            End If
       Next i
  End With
  With Sheets("Xuat")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A3:K" & lr).Value
        For i = 1 To UBound(arr)
            If CLng(arr(i, 2)) < ngaybd Then
               dk = arr(i, 6)
               a = dic.Item(dk)
               If a Then
                  kq(a, 1) = kq(a, 1) - arr(i, 9)
                  kq(a, 2) = kq(a, 2) - arr(i, 11)
                  kq(a, 7) = kq(a, 1) + kq(a, 3) - kq(a, 5)
                  kq(a, 8) = kq(a, 2) + kq(a, 4) - kq(a, 6)
               End If
            ElseIf CLng(arr(i, 2)) <= ngaykt Then
               dk = arr(i, 6)
               a = dic.Item(dk)
               If a Then
                  kq(a, 5) = kq(a, 5) + arr(i, 9)
                  kq(a, 6) = kq(a, 6) + arr(i, 11)
                  kq(a, 7) = kq(a, 1) + kq(a, 3) - kq(a, 5)
                  kq(a, 8) = kq(a, 2) + kq(a, 4) - kq(a, 6)
               End If
            End If
       Next i
  End With
  With Sheets("NXT")
       .Range("D4:K4").Resize(UBound(kq)).Value = kq
  End With
  Set dic = Nothing
End Sub

bác giải thích giúp e đoạn

Mã:

ReDim kq(1 To UBound(arr), 1 To 8)

và cái dic.Item với nhé

Bài đã được tự động gộp: 7/5/22

Phuocam đã viết:
.
Không hiểu. Trước ngày 1, điều kiện là: "<" & day1. Vậy vướng chỗ nào?

.

bác thử chạy code xem nó có ra được không? E chạy nó không dính điều kiện đó, cứ cộng hết các ngày luôn. Vậy e mới thắc mắc đó bác.

batman1 · 7/5/22

Phuocam đã viết:
Mới nghe lần đầu.

Không khai báo và không set, nhưng vẫn không sao!

.

Trong bài của người ta không cần các dòng trong bài #2 đâu. Họ dùng Nhap, Xuat, Ton, đó là code name của 3 shet "Nhap", "Xuat" và "NXT" mà bạn.

À, thì bài #6 cũng đã giải thích

Phuocam · 7/5/22

kid.phan2705 đã viết:
bác thử chạy code xem nó có ra được không? E chạy nó không dính điều kiện đó, cứ cộng hết các ngày luôn. Vậy e mới thắc mắc đó bác.

Kết quả bình thường mà. Đâu có công hết các ngày.

.

kid.phan2705 · 7/5/22

Phuocam đã viết:
Kết quả bình thường mà. Đâu có công hết các ngày.

E chạy toàn ra như thế này

(
VD: cái dòng 10 - EV2013-1 - SL đúng phải là 0 (vì mã này nhập hàng vào ngày 21/4/2022)

Phuocam · 7/5/22

kid.phan2705 đã viết:
E chạy toàn ra như thế này (
VD: cái dòng 10 - EV2013-1 - SL đúng phải là 0 (vì mã này nhập hàng vào ngày 21/4/2022)

View attachment 275566

Trên máy tui có kết quả là 0.

.

kid.phan2705 · 7/5/22

Phuocam đã viết:
Trên máy tui có kết quả là 0.

.

sao kỳ lạ vậy ta??? E đang nghi ngờ về định dạng ngày tháng. E thử đổi cái ô "Từ ngày 12/04/2022" thành 04/12/2022 thì code vba lại chạy đúng. Nếu để nguyên 12/04/2022 thì hàm sumifs ở ngoài lại đúng, code vba sai

snow25 · 7/5/22

kid.phan2705 đã viết:
bác giải thích giúp e đoạn

Mã:

ReDim kq(1 To UBound(arr), 1 To 8)

và cái dic.Item với nhé

Bài đã được tự động gộp: 7/5/22

bác thử chạy code xem nó có ra được không? E chạy nó không dính điều kiện đó, cứ cộng hết các ngày luôn. Vậy e mới thắc mắc đó bác.

Tìm hiểu về Array với dictionary có nhé.Mà ở diễn đàn này đọc bài này cũng được.

Index - Các bài viết về VBA

Danh sách các bài viết: Bài 0. Kiến thức chung về VBA Bài 1. Tạo macro Bài 2. Ghi macro Bài 3. Hộp thoại thông báo Bài 4. Biến trong VBA Bài 5. Workbook, worksheet Bài 6. Range, Cells Bài 7. Hàm trong VBA Bài 8. Events, Application Object Bài 9. Function and Sub Bài 10. Array Bài 11...

www.giaiphapexcel.com

kid.phan2705 · 7/5/22

snow25 đã viết:
Tìm hiểu về Array với dictionary có nhé.Mà ở diễn đàn này đọc bài này cũng được.

Index - Các bài viết về VBA

Danh sách các bài viết: Bài 0. Kiến thức chung về VBA Bài 1. Tạo macro Bài 2. Ghi macro Bài 3. Hộp thoại thông báo Bài 4. Biến trong VBA Bài 5. Workbook, worksheet Bài 6. Range, Cells Bài 7. Hàm trong VBA Bài 8. Events, Application Object Bài 9. Function and Sub Bài 10. Array Bài 11...

www.giaiphapexcel.com

để e nghiên cứu thêm về việc sử dụng mảng

cảm ơn bác nhiều

kid.phan2705 · 7/5/22

Phuocam đã viết:
Trên máy tui có kết quả là 0.

.

giờ e mới phát hiện thêm, những chỗ khác có sử dụng WorksheetFunction.SumIfs đều chạy không ra được kết quả

(

batman1 · 7/5/22

kid.phan2705 đã viết:
Hiện tại e có 1 file tổng hợp nhập xuất tồn, nếu dùng hàm sumifs thì ra đúng kết quả. Tuy nhiên nếu dùng function.sumifs trong vba thì nó không hoạt động đúng.
Yêu cầu là check mã vật tư trước ngày start => số lượng hàng tồn
E đã thử nghiệm ở hàm sumifs thì ra đúng. Lò mò xài vba với đoạn code như hình thì nó lại bỏ qua cái điều kiện thứ 2 (check ngày).
Mọi người giúp e sai ở chỗ nào với.

Code thay thế thì dễ thôi, chỉ cần nhờ ai đó viết hộ. Nhưng nếu bạn không biết sai ở đâu thì ngày mai, tuần sau, tháng tới bạn cũng sẽ lặp lại lỗi đó. Chả nhẽ cứ đi nhờ viết code thay thế?

Lỗi của bạn là tham chiếu chưa đủ (dòng phải từ 4) nên kết quả nếu có sẽ không chính xác. Đó là lỗi nhỏ. Lỗi lớn ở dòng a = ..., cụ thể ở "<" & day1

Mã:

For i = 4 To lrnxt
        a = WorksheetFunction.SumIfs(rngslnhap, rngvtnhap, Ton.Range("A" & i), rngngaynhap, "<" & day1)

Hiện tại NXT!O2 = 12.04.2022 (trên máy tôi ngày tháng có dạng dd.mm.yyyy) nên day1 = 12.04.2022 (do Dim day1 As Variant, day2 As Variant), và "<" & day1 = "<12.04.2022". Trong VBA chuỗi kiểu đó sẽ sai.

Nếu bạn sửa thành

Dim day1 As Long, day2 As Long

thì day1 = 44663, và "<" & day1 = "<44663". Lúc này code sẽ chạy đúng.

Tóm lại sửa thành

Mã:

Dim day1 As Long, day2 As Long

BuiQuangThuan · 7/5/22

Chú @batman1 nếu giả sử cháu không khai day1 as long...... Mà chỉ khai dim day1, day2. Kết quả có đúng không nhỉ? Và không gán type cho biến có bất lợi gì không nhỉ? Tại cháu không ngồi máy mà tò mò

batman1 · 7/5/22

BuiQuangThuan đã viết:
Chú @batman1 nếu giả sử cháu không khai day1 as long...... Mà chỉ khai dim day1, day2. Kết quả có đúng không nhỉ? Và không gán type cho biến có bất lợi gì không nhỉ? Tại cháu không ngồi máy mà tò mò

Kết quả giống như khai báo của tác giả thôi vì mặc định là Variant.

Bất lợi gì ở đây? Bất lợi là khai báo không đúng hoặc không "tối ưu" thôi, chứ không phải là ở chỗ khai báo hay không khai báo. Không gán kiểu thì mặc định là Variant. Nếu trong trường hợp cụ thể biến chuẩn phải nên là Variant thì khai báo kiểu Variant tường minh hay không đều như nhau. Nhưng nếu biến phải là Long thì dù khai báo nhưng là Variant thì vẫn sai.

BuiQuangThuan · 8/5/22

batman1 đã viết:
Kết quả giống như khai báo của tác giả thôi vì mặc định là Variant.

Bất lợi gì ở đây? Bất lợi là khai báo không đúng hoặc không "tối ưu" thôi, chứ không phải là ở chỗ khai báo hay không khai báo. Không gán kiểu thì mặc định là Variant. Nếu trong trường hợp cụ thể biến chuẩn phải nên là Variant thì khai báo kiểu Variant tường minh hay không đều như nhau. Nhưng nếu biến phải là Long thì dù khai báo nhưng là Variant thì vẫn sai.

Cám ơn chú nhiều. Tại nhiều khi biếng viết code nháp. Không có options ở đầu sub. Viết xong bắt đầu khai báo biến. Thành ra không điền kiểu biến. Nên mới hỏi chú việc bất lợi. Cám ơn chú vì những thông tin đã chia sẻ

batman1 · 8/5/22

BuiQuangThuan đã viết:
Cám ơn chú nhiều. Tại nhiều khi biếng viết code nháp. Không có options ở đầu sub. Viết xong bắt đầu khai báo biến. Thành ra không điền kiểu biến. Nên mới hỏi chú việc bất lợi. Cám ơn chú vì những thông tin đã chia sẻ

Vấn đề là khai báo và thực thi theo kiểu ít hoặc tốt nhất là không phụ thuộc vào những thay đổi hay thiết lập nào đó. Vd.
ngày 12 tháng 4 năm 2022 trên máy tôi là 12.04.2022, trên máy bạn là 12/04/2022, trên máy khác lại khác nữa. Rồi lăn tăn chuyện trong VBA là mm/dd/yyyy hay dd/mm/yyyy, là ngày 12 tháng 4 năm 2022 hay ngày 4 tháng 12 năm 2022. Thế có phải rách việc không? Khác gì bàn tay trần thọc xuống bể phốt. Trong khi đó nếu Dim day1 As Long thì day1 = 44663 trên bất kỳ máy nào, mọi lúc mọi nơi. Con số 44663 luôn luôn đại diên cho ngày 12 tháng 4 năm 2022, không thể hiểu khác được, không thể là ngày 4 tháng 12 năm 2022 được.

Tóm lại tuy không được lanh lợi như con nhà người ta thì phải khôn ngoan hơn con nhà người ta.

BuiQuangThuan · 8/5/22

@batman1 dạ. Cháu hiểu rồi ạ. Cám ơn chú nhiều về thông tin chú chia sẻ ạ

kid.phan2705 · 9/5/22

batman1 đã viết:
Code thay thế thì dễ thôi, chỉ cần nhờ ai đó viết hộ. Nhưng nếu bạn không biết sai ở đâu thì ngày mai, tuần sau, tháng tới bạn cũng sẽ lặp lại lỗi đó. Chả nhẽ cứ đi nhờ viết code thay thế?

Lỗi của bạn là tham chiếu chưa đủ (dòng phải từ 4) nên kết quả nếu có sẽ không chính xác. Đó là lỗi nhỏ. Lỗi lớn ở dòng a = ..., cụ thể ở "<" & day1

Mã:

For i = 4 To lrnxt a = WorksheetFunction.SumIfs(rngslnhap, rngvtnhap, Ton.Range("A" & i), rngngaynhap, "<" & day1)

Hiện tại NXT!O2 = 12.04.2022 (trên máy tôi ngày tháng có dạng dd.mm.yyyy) nên day1 = 12.04.2022 (do Dim day1 As Variant, day2 As Variant), và "<" & day1 = "<12.04.2022". Trong VBA chuỗi kiểu đó sẽ sai.

Nếu bạn sửa thành

thì day1 = 44663, và "<" & day1 = "<44663". Lúc này code sẽ chạy đúng.

Tóm lại sửa thành

Mã:

Dim day1 As Long, day2 As Long

Em cảm ơn a nhiều, đã được thông não. Đúng là e từng gặp trường hợp như a nói. Giờ đã hiểu sơ sơ ra rồi

LanAnh19 · 15/5/22

snow25 đã viết:

Thử cái code này xem.

Mã:

Sub tinhsoluong()
   Dim i As Long, lr As Long, dic As Object, arr, data, kq() As Double, a As Long, dk As String, b As Long, ngaybd As Long, ngaykt As Long
   Set dic = CreateObject("scripting.dictionary")
   With Sheets("NXT")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A4:B" & lr).Value
        ngaybd = .Range("o2").Value2
        ngaykt = .Range("R2").Value2
        For i = 1 To UBound(arr)
            dk = arr(i, 1)
            If Not dic.exists(dk) Then
               dic.Add dk, i
            End If
        Next i
        ReDim kq(1 To UBound(arr), 1 To 8)
   End With
   With Sheets("Nhap")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A3:i" & lr).Value
        For i = 1 To UBound(arr)
            If CLng(arr(i, 2)) < ngaybd Then
               dk = arr(i, 4)
               a = dic.Item(dk)
               If a Then
                  kq(a, 1) = kq(a, 1) + arr(i, 7)
                  kq(a, 2) = kq(a, 2) + arr(i, 9)
                  kq(a, 7) = kq(a, 1) + kq(a, 3)
                  kq(a, 8) = kq(a, 2) + kq(a, 4)
               End If
            ElseIf CLng(arr(i, 2)) <= ngaykt Then
               dk = arr(i, 4)
               a = dic.Item(dk)
               If a Then
                  kq(a, 3) = kq(a, 3) + arr(i, 7)
                  kq(a, 4) = kq(a, 4) + arr(i, 9)
                  kq(a, 7) = kq(a, 1) + kq(a, 3)
                  kq(a, 8) = kq(a, 2) + kq(a, 4)
               End If
            End If
       Next i
  End With
  With Sheets("Xuat")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A3:K" & lr).Value
        For i = 1 To UBound(arr)
            If CLng(arr(i, 2)) < ngaybd Then
               dk = arr(i, 6)
               a = dic.Item(dk)
               If a Then
                  kq(a, 1) = kq(a, 1) - arr(i, 9)
                  kq(a, 2) = kq(a, 2) - arr(i, 11)
                  kq(a, 7) = kq(a, 1) + kq(a, 3) - kq(a, 5)
                  kq(a, 8) = kq(a, 2) + kq(a, 4) - kq(a, 6)
               End If
            ElseIf CLng(arr(i, 2)) <= ngaykt Then
               dk = arr(i, 6)
               a = dic.Item(dk)
               If a Then
                  kq(a, 5) = kq(a, 5) + arr(i, 9)
                  kq(a, 6) = kq(a, 6) + arr(i, 11)
                  kq(a, 7) = kq(a, 1) + kq(a, 3) - kq(a, 5)
                  kq(a, 8) = kq(a, 2) + kq(a, 4) - kq(a, 6)
               End If
            End If
       Next i
  End With
  With Sheets("NXT")
       .Range("D4:K4").Resize(UBound(kq)).Value = kq
  End With
  Set dic = Nothing
End Sub

Bạn làm hay quá
Bạn giúp mình bài của mình phần nhập + xuất + tồn cuối kỳ
Cảm ơn bạn trước

Nhờ xem lại hàm sumifs trong vba (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Thành viên chính thức

Thành viên mới

Thành viên mới

Thành viên chính thức

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Thành viên mới

Thành viên gạo cội

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên gạo cội

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên gạo cội

❆❆❆❆❆❆❆❆❆❆❆❆

Thành viên mới

Thành viên chính thức

File đính kèm

Thời gian đếm ngược.