Cách sử dụng hàm SUMIF trong VBA

[Thong Hoang Tien 250691]

Em đang gặp một vấn đề: Em viết hàm SUMIF trong VBA với đoạn mã như sau:

Sub GPE_HELP()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lRw1, lRw2 As Integer
Set ws1 = ThisWorkbook.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(2)
    lRw1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
    lRw2 = ws2.Range("A" & Rows.Count).End(xlUp).Row
        ws2.Range("C2:C" & lRw2).Value = Application.WorksheetFunction.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1))
End Sub

Thì bị lỗi ở dòng cuối cùng. trong excel em viết hàm tương tự trong cells thì trả về kết quả bình thường.
Em không muốn dùng for-next vì dữ liệu là khá lớn
Anh/Chị kiểm tra em đã viết sai ở đâu và cách sửa ạ ?

 

[batman1]

Em đang gặp một vấn đề: Em viết hàm SUMIF trong VBA với đoạn mã như sau:

Sub GPE_HELP()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim lRw1, lRw2 As Integer
Set ws1 = ThisWorkbook.Sheets(1)
Set ws2 = ThisWorkbook.Sheets(2)
    lRw1 = ws1.Range("A" & Rows.Count).End(xlUp).Row
    lRw2 = ws2.Range("A" & Rows.Count).End(xlUp).Row
        ws2.Range("C2:C" & lRw2).Value = Application.WorksheetFunction.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1))
End Sub

Thì bị lỗi ở dòng cuối cùng. trong excel em viết hàm tương tự trong cells thì trả về kết quả bình thường.
Em không muốn dùng for-next vì dữ liệu là khá lớn
Anh/Chị kiểm tra em đã viết sai ở đâu và cách sửa ạ ?

Thử sửa thành

ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1))

Hoặc như sau cũng được

ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2"))

 

[Thong Hoang Tien 250691]

Thử sửa thành

ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2:B" & lRw1))

Hoặc như sau cũng được

ws2.Range("C2:C" & lRw2).Value = Application.SumIf(ws1.Range("A2:A" & lRw1), ws2.Range("A2:A" & lRw2), ws1.Range("B2"))

Cám ơn Anh, Em đã thực hiện được. Nhân tiện em gặp vấn đề tương tự, nhưng với hàm điều kiện IF (không liên quan đến chủ đề lắm). nhưng mong Anh và mọi người kiểm tra và giải thích giúp em ạ. Em cám ơn !

 

[phulien1902]

Cám ơn Anh, Em đã thực hiện được. Nhân tiện em gặp vấn đề tương tự, nhưng với hàm điều kiện IF (không liên quan đến chủ đề lắm). nhưng mong Anh và mọi người kiểm tra và giải thích giúp em ạ. Em cám ơn !

Bạn thử:

Sub abc()
Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")"
End Sub

Hoặc:

Sub test()
    Dim lastRow As Long
    Range("D2").Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")"
    lastRow = Range("a" & Rows.Count).End(xlUp).Row
    Range("D2").AutoFill Destination:=Range("D2:D" & lastRow)
End Sub

 

[Thong Hoang Tien 250691]

Bạn thử:

Sub abc()
Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row).Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")"
End Sub

Hoặc:

Sub test()
    Dim lastRow As Long
    Range("D2").Formula = "=IF($A$2:$A$5=$B$2:$B$5,""Ok"",""NG"")"
    lastRow = Range("a" & Rows.Count).End(xlUp).Row
    Range("D2").AutoFill Destination:=Range("D2:D" & lastRow)
End Sub

Cám ơn Anh đã quan tâm. Ở đây dữ liệu khá lớn và em không muốn sử dụng công thức trong cell (code trả về giá trị, không gắn công thức vào cells) thì có cách nào khác không ạ?

 

[ppc0312]

Cám ơn Anh đã quan tâm. Ở đây dữ liệu khá lớn và em không muốn sử dụng công thức trong cell (code trả về giá trị, không gắn công thức vào cells) thì có cách nào khác không ạ?

Không muốn VBA-hóa công thức, không muốn fornext ... vậy thì có cách thuê người viết ngôn ngữ lập trình mới thôi,
Tôi nghi rằng for next còn nhanh hơn VBA-hóa công thức nữa.

 

[Thong Hoang Tien 250691]

Không muốn VBA-hóa công thức, không muốn fornext ... vậy thì có cách thuê người viết ngôn ngữ lập trình mới thôi,
Tôi nghi rằng for next còn nhanh hơn VBA-hóa công thức nữa.

ForNext hoặc formular với dữ liệu khoảng 1k dòng đổ lại thì ok. Dữ liệu của em khoảng hơn 50k dòng và vẫn tiếp tục tăng. E rằng for next hiệu năng không đáp ứng được.

 

[ppc0312]

ForNext hoặc formular với dữ liệu khoảng 1k dòng đổ lại thì ok. Dữ liệu của em khoảng hơn 50k dòng và vẫn tiếp tục tăng. E rằng for next hiệu năng không đáp ứng được.

700K người ta còn dùng VBA bình thường , có chi phải lo

 

[Thong Hoang Tien 250691]

700K người ta còn dùng VBA bình thường , có chi phải lo

Vậy anh có thể viết theo ý anh đang diễn đạt vào file ở bài #3 được không? Sau đó em sẽ thử chạy với dữ liệu khoảng 50 nghìn dòng. Xem có thể đáp ứng được không? Cám ơn Anh trước.

 

[ppc0312]

Vậy anh có thể viết theo ý anh đang diễn đạt vào file ở bài #3 được không? Sau đó em sẽ thử chạy với dữ liệu khoảng 50 nghìn dòng. Xem có thể đáp ứng được không? Cám ơn Anh trước.

Không phải thử cứ post file đầy đủ lên
Tôi không thích làm thử