Here is a video tutorial on how to count cell by fill color and text color
Subscribe to Excel Art
Code for COUNTFONTCOLOR Formula
Function COUNTFONTCOLOR(cell_range As Range, CellFont_color As Range) As Long
Dim FontColor As Long
Dim CurrentRange As Range
Dim FontRes As Long
Application.Volatile
FontRes = 0
FontColor = CellFont_color.Cells(1, 1).Font.Color
For Each CurrentRange In cell_range
If FontColor = CurrentRange.Font.Color Then
FontRes = FontRes + 1
End If
Next CurrentRange
COUNTFONTCOLOR = FontRes
End Function
Code for COUNTCOLOR Formula
Function COUNTCOLOR(CellRange As Range, CellColor As Range)
Dim FillColor As Integer
Dim FillTotal As Integer
FillColor = CellColor.Interior.ColorIndex
Set rCell = CellRange
For Each rCell In CellRange
If rCell.Interior.ColorIndex = FillColor Then
FillTotal = FillTotal + 1
End If
Next rCell
COUNTCOLOR = FillTotal
End Function
for beginner
Смотрите видео Count cell by fill color and text color #excel #exceltutorial онлайн без регистрации, длительностью 02 минут 22 секунд в хорошем hd качестве. Это видео добавил пользователь Boost Excel 05 Май 2023, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 3 тысяч раз и оно понравилось 22 людям.