Excel получение цвета ячейки

Here are some small functions for you. From your sheet, press Alt—F11 to reach the VBA editor, insert a new module, paste the below code, go back to your worksheet and use them by their names, like in =FillColor(A1)

The first two are the promised «3-liners» giving decimal values for font and background colors — not very useful though

The second pair converts the decimal number to RGB and returns a string of format N, N, N

The third pair are array formulas — select 3 cells in a row, enter the formula and press Ctrl+Shift+Enter to obtain numeric RGB values in 3 neighboring cells

Function FillColor(Target As Range) As Variant
    FillColor = Target.Interior.Color
End Function

Function FontColor(Target As Range) As Variant
    FontColor = Target.Font.Color
End Function

Function FillColorRGB(Target As Range) As Variant
Dim N As Double

    N = Target.Interior.Color
    FillColorRGB = Str(N Mod 256) & ", " & Str(Int(N / 256) Mod 256) & ", " & Str(Int(N / 256 / 256) Mod 256)
End Function

Function FontColorRGB(Target As Range) As Variant
Dim N As Double

    N = Target.Font.Color
    FontColorRGB = Str(N Mod 256) & ", " & Str(Int(N / 256) Mod 256) & ", " & Str(Int(N / 256 / 256) Mod 256)
End Function

Function FillColorRGBArray(Target As Range) As Variant
Dim N As Double, A(3) As Integer

    N = Target.Interior.Color
    A(0) = N Mod 256
    A(1) = Int(N / 256) Mod 256
    A(2) = Int(N / 256 / 256) Mod 256
    FillColorRGBArray = A
End Function

Function FontColorRGBArray(Target As Range) As Variant
Dim N As Double, A(3) As Integer

    N = Target.Font.Color
    A(0) = N Mod 256
    A(1) = Int(N / 256) Mod 256
    A(2) = Int(N / 256 / 256) Mod 256
    FontColorRGBArray = A
End Function

A word of caution: changing the color of a cell does not start recalculation by the above functions/formulas, as recoloring a cell in general is not supposed to drive recalculation. You have to manually start a full recalculation using Ctrl+Alt+Shift+F9

Допустим, у нас есть таблица с данными и нам надо контролировать выход определенных ячеек за пределы диапазона. Например, есть таблица с успеваемостью и надо определить успевающих и неуспевающих студентов — с баллом больше Х и меньше Y. Когда у вас много данных — делать это вручную крайне сложно, но хорошо может помочь выделение ячеек цветами.

1 Выделение ячейки цветом вручную

Для задания цвета ячейки нужно выделить ее, нажать правую кнопку мыши, выбрать «формат ячеек». Затем, в открывшемся окне выбрать вкладку «заливка» и выбрать цвет.

Это работает, но процесс выделения очень утомительный. Студент сдал работу, оценка изменилась и надо выделить ячейку другим цветом. Это будет случаться постоянно и выделение отнимать очень много времени. Можно заставить Excel выделять ячейки самостоятельно.

2 Выделение цветом по условию

Выделите ячейки, которые надо подсвечивать. На вкладке «Главная» выберите «Условное форматирование->Правила выделения ячеек->Больше» (или другой пункт):

В появившемся окне можно ввести значение и стиль окрашивания. Например, для получения такого результата:

были выделены ячейки последнего столбца и к ним применено два условия (по очереди) — если значение более 300 — окрась зеленым, если меньше 240 — красным.

Иногда настроенные правила форматирования надо изменить — например, в конце семестра бал для окрашивания зеленым может быть выше чем в середине семестра. Иногда одно и тоже правило стоит применять к нескольким диапазонам ячеек и этим тоже хочется управлять. На самом деле, все настройки форматирования ячеек в Excel сохраняются и их можно посмотреть и изменить выбрав «Условное форматирование->Управление правилами»:

Также, интересный эффект можно получить с помощью цветовых шкал. Достаточно просто выделить диапазон и выбрать пункт «Условное форматирование->Цветовые шкалы». Если в ячейках записаны числа — они сами будут подсвечены в выбранных тонах — от минимального значения к максимальному. Результат может быть например таким:

Цвета можно использовать в качестве параметра фильтрации. Для этого выделите столбец и в меню выберите «Данные->Фильтр». Около заголовка столбца появится появится значок выпадающего списка, позволяющий выбрать опции фильтрации, среди которых есть «Фильтрация по цвету»: