В этой статье вы узнаете, как получить цвет ячейки с помощью кода VBA.

Нам нужно выполнить следующие шаги, чтобы запустить редактор VB.

Щелкните вкладку «Разработчик». В группе «Код» выберите Visual Basic

img1

Нажмите «Вставить», а затем «Модуль»

img2

Это создаст новый модуль.

Введите следующий код в модуль

Функция ColorIndex (CellColor As Range)

ColorIndex = CellColor.Interior.ColorIndex

Конечная функция

img3

Чтобы получить цвет ячеек ниже, см. Снимок ниже

img4

В ячейке B2 введите формулу как = ColorIndex (A2), а затем скопируйте формулу в ячейки ниже.

img5

[.underline] # Давайте возьмем еще один пример: # Чтобы узнать, сколько раз конкретный цвет повторялся (подсчитывать по цвету), см. снимок ниже

img6

Мы можем использовать функцию COUNTIF вместе с недавно созданной функцией UDFColorIndex.

===

СЧЁТЕСЛИ: подсчитывает количество ячеек в диапазоне, удовлетворяющем условию.

Синтаксис: = СЧЁТЕСЛИ (диапазон, критерий)

диапазон: он относится к диапазону выбранных ячеек, в котором критерии будут проверять количество найденных элементов.

критерии: критерии определяют, какие ячейки следует подсчитывать.

В ячейке D2 формула будет = СЧЁТЕСЛИ ($ B $ 2: $ B $ 9, ColorIndex (D2))

img7

Скопировав формулу в ячейку E2, мы получим подсчет по цветам.

img8

Так мы можем получить цвет любой клетки.