Помимо использования значений и текста на листах, Excel позволяет использовать цвета для оживления или придания значения вашим данным. Если вы используете цвета на своих листах, вы можете задаться вопросом, есть ли способ подсчитать количество ячеек, отформатированных с определенным цветом заливки. В Excel нет встроенной функции для выполнения такой задачи, но вы, безусловно, можете сделать ее с пользовательской функцией. Ниже приведен пример того, как подсчитывается количество ячеек в диапазоне, отформатированных с желтым цветом заливки:

Function CountYellow(MyRange As Range)

Dim iCount As Integer     Application.Volatile     iCount = 0     For Each cell In MyRange         If cell.Interior.ColorIndex = 6 Then             iCount = iCount + 1         End If     Next cell     CountYellow = iCount End Function

Чтобы использовать функцию, все, что вам нужно сделать, это использовать формулу, например следующую в ячейке вашего рабочего листа:

=CountYellow(A1:A99)

В этом примере возвращается количество ячеек в диапазоне A1: A99, использующих желтый цвет заливки.

Обратите внимание, что в функции CountYellow ячейки проверяются на предмет того, равно ли свойство ColorIndex значению 6. В другом кодировании VBA вы можете привыкнуть к почти английским константам, определяющим цвета. В этом случае обычные цветовые константы не работают. Вместо этого свойство ColorIndex работает на основе набора значений индекса в определенной палитре цветов. Если вам интересно увидеть различные значения индекса, используемые для разных цветов, взгляните на файл онлайн-справки VBA для свойства ColorIndex.

Если вы знаете, как таким образом перемещаться по ячейкам в диапазоне, вы легко сможете выполнять другие типы операций на основе цвета, используемого для заполнения ячеек в диапазоне. Например, вместо простого подсчета количества ячеек вы можете сложить значения ячеек в диапазоне или найти среднее значение значений в диапазоне. Все, что вам нужно сделать, это внести соответствующие изменения в код во внутренней структуре If …​ End If.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (1978 г.) применим к Microsoft Excel 97, 2000, 2002 и 2003.