Cộng có điều kiện (1 người xem)

[hoangtanhg]

Xin được trợ giúp em bài toán như sau

 

[khuongvietphong]

Trong lúc chờ công thức bạn có thể chạy đoạn Macro này:

Sub cong()
Dim tong As Long, i As Long
  For i = 2 To 13
    If Sheets(i).Range("A1") = "Có" Then
      tong = tong + Sheets(i).Range("A2")
    End If
  Next i
  Sheet1.Range("A2") = tong
End Sub

 

[hoangtanhg]

Trong lúc chờ công thức bạn có thể chạy đoạn Macro này:

Cám ơn bạn khuongvietphong

 

[HungQuoc49]

Xin được trợ giúp em bài toán như sau

=SUMPRODUCT(SUMIF(INDIRECT("sheet"&ROW(1:12)&"!A1"),"Có",INDIRECT("sheet"&ROW(1:12)&"!A2")))

 

[hoangtanhg]

=SUMPRODUCT(SUMIF(INDIRECT("sheet"&ROW(1:12)&"!A1"),"Có",INDIRECT("sheet"&ROW(1:12)&"!A2")))

Cám ơn bạn thật nhiều