xử lý dữ liệu

[tuanxitin]

anh/chị cao nhân xem giúp em, file này với, em viết code không chạy được, không biết lỗi gì. em cảm ơn anh chị

 

[Hoàng Nhật Phương]

anh/chị cao nhân xem giúp em, file này với, em viết code không chạy được, không biết lỗi gì. em cảm ơn anh chị

Bạn thử đoạn code sau:

Sub SumIfs()
    Dim Lr As Long, Rng As Range
    With ThisWorkbook.Worksheets("data")
        Lr = .Cells(.Rows.Count, "F").End(xlUp).Row
        If Lr = 1 Then Exit Sub
        Set Rng = .Range("B2").Resize(Lr - 1)
        .Range("L2") = WorksheetFunction.SumIfs(Rng, Rng.Offset(, 4), .Range("J2"), Rng.Offset(, 5), .Range("K2"))
    End With
End Sub

 

[tuanxitin]

Bạn thử đoạn code sau:

Sub SumIfs()
    Dim Lr As Long, Rng As Range
    With ThisWorkbook.Worksheets("data")
        Lr = .Cells(.Rows.Count, "F").End(xlUp).Row
        If Lr = 1 Then Exit Sub
        Set Rng = .Range("B2").Resize(Lr - 1)
        .Range("L2") = WorksheetFunction.SumIfs(Rng, Rng.Offset(, 4), .Range("J2"), Rng.Offset(, 5), .Range("K2"))
    End With
End Sub

cảm ơn anh/chị nhiều hi