Viết code VBA để tính tổng nhiều điều kiện (1 người xem)

[anhquyet33]

em kính nhờ các anh trong nhóm chỉ giúp cách tính tổng nhiểu điều kiện trong vba à. em gửi file đình kem và yêu cầu bài toán như sau à:
1. em muốn tính tổng cột F thõa mãn điều kiện cột I >60 and I<=77 and cột N = 3.
2. em muốn tính tổng cột F thõa mãn điều kiện cột I >0 and I<=59 and cột N = 1.
Kính nhờ các anh chỉ giúp code với à.

 

[darknightno007]

em kính nhờ các anh trong nhóm chỉ giúp cách tính tổng nhiểu điều kiện trong vba à. em gửi file đình kem và yêu cầu bài toán như sau à:
1. em muốn tính tổng cột F thõa mãn điều kiện cột I >60 and I<=77 and cột N = 3.
2. em muốn tính tổng cột F thõa mãn điều kiện cột I >0 and I<=59 and cột N = 1.
Kính nhờ các anh chỉ giúp code với à.

sao tui k thấy dòng code nào hết vậy.

 

[anhquyet33]

em chào anh, em không biết code nên nhờ anh chị viết giùm à

 

[Hoang2013]

Bạn thử với cái này & tự bổ sung xem sao:

Sub TinhTongTheoDieuKien()
 Dim Rws As Long
 Dim WF As Object, CSDL As Range

 Rws = [j2].CurrentRegion.Rows.Count
 Set CSDL = [f1].Resize(Rws, 9):                [AA1:AC4].ClearContents
 Set WF = Application.WorksheetFunction
 [AA1].Resize(, 2).Value = [I1].Value:          [AC1].Value = [N1].Value
 Range("AA2").FormulaR1C1 = "="">""&R[2]C":     [AA4].Value = 60
 Range("Ab2").FormulaR1C1 = "=""<=""&R[2]C":    [AB4].Value = 77
 [AC2].Value = 3
 MsgBox WF.DSum(CSDL, [f1], [AA1:AC2]), , "GPE.COM Xin Chào!"

End Sub

 

[anhquyet33]

thank anh Hoang2013