Em có đoạn code VBA cộng theo mầu chữ bác xem có xài được không, code này em cũng không biết tác giả là ai ạ, vì lâu quá rồi em cũng không nhớ 
Mã:
Option Explicit
Function congmau(VungDL, OMau)
Dim Tong, OHT, MauHT, MauChuan, dem, KQ
MauChuan = OMau.Font.Color
For Each OHT In VungDL
MauHT = OHT.Font.Color
If IsNumeric(OHT) And (MauHT = MauChuan) Then
Tong = Tong + OHT
dem = dem + 1
End If
Next
If dem = 0 Then
KQ = "Khong co o nao trung mau o mau"
Else
KQ = Tong
End If
congmau = KQ
End Function
View more random threads: