Функция =ЦВЕТШРИФТАRGB(ЯЧЕЙКА) возвращает шестнадцатеричный код RGB цвета шрифта указанной ячейки. В качестве аргумента имеет 1 параметр:
Ниже представлен пример, демонстрирующий работу функции.
Следует отметить, что функция не пересчитывается автоматически. Это связано с тем, что изменение цвета шрифта ячейки Excel не приводит к пересчету формул. Для пересчета формулы необходимо пользоваться сочетанием клавиш Ctrl+Alt+F9
С помощью данной функции, мы можете быстро сортировать ячейки с определенным цветом шрифта, подсчитывать их количество. К примеру, можно создать отдельный столбец и протянуть в нем данную функцию, для того, чтобы по этому столбцу быстро отсортировать строки с различным цветом шрифта. Можно создать сводную таблицу, в которой будет вестись подсчет ячеек с заданным цветом шрифта.
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 = ЯЧЕЙКА.Font.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