Tính tổng kết quả khi chạy vòng lặp For (1 người xem)

[bhlucq-6]

em dùng vòng lặp For để sử dụng hàm Sumifs trong VBA
em muốn mỗi kết quả của 01 vòng lặp sẽ được cộng dồn vào thì sao ạ
Em có gửi file đính kèm, các cao nhân chỉ em với, em cảm ơn rất nhiều ạ

 

[vu_tuan_manh_linh]

em dùng vòng lặp For để sử dụng hàm Sumifs trong VBA
em muốn mỗi kết quả của 01 vòng lặp sẽ được cộng dồn vào thì sao ạ
Em có gửi file đính kèm, các cao nhân chỉ em với, em cảm ơn rất nhiều ạ

Bạn viết code đó mà chạy thì kết quả sai bét luôn! Thử cái này đi!

Sub tinhtong()
Dim i, k
For i = 2 To Range("B65536").End(xlUp).Row
    If Cells(i, 5).Value = 27460 And _
    Application.CountIf(Range("I3:N3"), Cells(i, 1).Value) > 0 Then k = k + Cells(i, 6).Value
Next i
Sheet1.Range("h5") = k
End Sub

Có 1 cách nữa khỏi cần code là filter và dùng hàm subtotal(109)

 

[bhlucq-6]

em cảm ơn, hihi