Функция =ЦВЕТЗАЛИВКИRGB(ЯЧЕЙКА) возвращает шестнадцатеричный код RGB цвета заливки указанной ячейки. Функция имеет 1 аргумент:
ЯЧЕЙКА - ссылка на ячейку для определения ее кода заливки.
Зачем это нужно? С помощью данной функции, мы можете быстро сортировать ячейки с определенным цветом, подсчитывать их количество. К примеру, можно создать отдельный столбец и протянуть в нем данную функцию, для того, чтобы по этому столбцу быстро отсортировать строки с различной заливкой. Можно создать сводную таблицу, в которой будет вестись подсчет ячеек с заданной заливкой.
Ниже представлен пример, демонстрирующий работу функции.
Public Function ЦВЕТЗАЛИВКИRGB(ЯЧЕЙКА As Range) As String Dim Red As Integer Dim Blue As Integer Dim Green As Integer Dim col As Double Application.Volatile col = ЯЧЕЙКА.Interior.Color Red = col 256 ^ 0 And 255 Green = col 256 ^ 1 And 255 Blue = col 256 ^ 2 And 255 ЦВЕТЗАЛИВКИRGB = "#" & Format(Hex(Red), "00") & Format(Hex(Green), "00") & Format(Hex(Blue), "00") End Function