dùng hàm sumif loc du lieu (2 người xem)

[phongqlcl.kt]

Sub thongke()
Dim i As Long
Dim dongcuoidulieu2 As Long
dongcuoidulieu2 = Workbooks("du lieu 2").Sheets("Iachim").Cells(Rows.Count, "A").End(xlUp).Row ' cong thuc tim dong cuoi
For i = 2 To 12
Workbooks("Tong hop").Sheets("Tong hop").Range("B" & i).Formula = Application.WorksheetFunction.sumif(Workbooks("Du lieu 2").Sheets("Iachim").Range("A2:A" & dongcuoidulieu2), Range("A" & i), Workbooks("Du lieu 2").Sheets("Iachim").Range("B2:B" & dongcuoidulieu2))
Next
End Sub
- Vì sao khi thay đổi Vùng điều kiện sang vị trí khác thì kết quả bị sai. Các Anh xem chỉ giúp.
+ Ví dụ: i = 13 to 23
xin cam on

 

[bebo021999]

1) Đính kèm file ví dụ đi bạn.
2) Tên WB,WS lằng ngoàng quá, bạn nên đặt biến tên ngắn gọn :
vd:
Dim ws1 as worksheet, ws2as worksheet
set ws1 = Workbooks("du lieu 2").Sheets("Iachim")
ws2...

 

[phongqlcl.kt]

1) Đính kèm file ví dụ đi bạn.
2) Tên WB,WS lằng ngoàng quá, bạn nên đặt biến tên ngắn gọn :
vd:
Dim ws1 as worksheet, ws2as worksheet
set ws1 = Workbooks("du lieu 2").Sheets("Iachim")
ws2...

nho Bạn xem chỉ giúp

 

[phongqlcl.kt]

Có ai biết chỉ tôi với. xin cảm ơn

 

[TongDe]

2 file chẳng thấy có quan hệ gì?
Attach nhầm file sao?