honglv157 > 24-02-17, 01:52 PM
tranthanhan1962 > 24-02-17, 05:28 PM
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Functionongke0711 > 25-02-17, 12:02 PM
 mình cũng thắc mắc yêu cầu của bạn honglv157 ứng dụng cho việc gì? Bạn dùng trong sơ đồ Gant hay chia lịch công tác hay sao nhỉ? Bạn chia sẽ để học hỏi thêm cách dùng mới này.
honglv157 > 27-02-17, 01:59 PM