Cái này bạn dùng VBA tạm.
Link tải file:
Code:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Tong(RNG As Range, RNG2 As Range) As Double
Dim a As Double
For Each cell In RNG
If cell.Font.Color = RNG2.Font.Color And IsNumeric(cell.Value) Then
a = a + cell.Value
End If
Next
Tong = a
End Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Để xem code: trong Excel, nhấn Alt+F11.
Có thể sẽ có code khác tối ưu hơn. Mong các bạn đóng góp.
