Код RGB заливки ячейки Excel

Описание работы функции

Функция =ЦВЕТЗАЛИВКИRGB(ЯЧЕЙКА) возвращает шестнадцатеричный код RGB цвета заливки указанной ячейки. Функция имеет 1 аргумент:

ЯЧЕЙКА - ссылка на ячейку для определения ее кода заливки.

Зачем это нужно? С помощью данной функции, мы можете быстро сортировать ячейки с определенным цветом, подсчитывать их количество. К примеру, можно создать отдельный столбец и протянуть в нем данную функцию, для того, чтобы по этому столбцу быстро отсортировать строки с различной заливкой. Можно создать сводную таблицу, в которой будет вестись подсчет ячеек с заданной заливкой.

Ниже представлен пример, демонстрирующий работу функции.

Код на VBA

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