Подсчет ячеек по цвету заливки и цвету текста #excel #exceltutorial

Вот видеоурок о том, как подсчитать ячейку по цвету заливки и цвету текста.

Подпишитесь на Excel Art
https://www.youtube.com/channel/UCwxcFmYha_iRyJzosjQUcyA

Код формулы COUNTFONTCOLOR
Функция COUNTFONTCOLOR(cell_range как диапазон, CellFont_color как диапазон) как длинный
Тусклый цвет шрифта как можно дольше
Уменьшить текущий диапазон как диапазон
Уменьшить FontRes как можно дольше
Приложение.Волатильный
ФонтРес 0
FontColor CellFont_color.Cells(1, 1).Font.Color
Для каждого текущего диапазона в ячейке_диапазона
Если FontColor CurrentRange.Font.Color Тогда
FontRes FontRes 1
Конец, если
Следующий текущийдиапазон
COUNTFONTCOLOR FontRes
Конечная функция

Код формулы COUNTCOLOR
Функция COUNTCOLOR(CellRange как диапазон, CellColor как диапазон)
Тусклый цвет заливки как целое число
Dim FillTotal как целое число
FillColor CellColor.Interior.ColorIndex
Установить rCell CellRange
Для каждой ячейки в CellRange
Если rCell.Interior.ColorIndex FillColor Тогда
ЗаполнитьВсего ЗаполнитьИтого 1
Конец, если
Следующий rCell
СЧЁТЦВЕТ ЗаполнитьВсего
Конечная функция

#excelart #excel #msexcel #basicexcel #advanceexcel #exceltutorial #learnexcel #excel для начинающих

Пожалуйста, воспользуйтесь возможностью подключиться и поделиться этим видео со своими друзьями и семьей, если вы считаете его полезным.