Как определить и идентифицировать индекс цвета фона ячеек в Excel?
Когда вы открываете лист с множеством цветных ячеек, как на скриншоте ниже, иногда возникает необходимость определить индекс цвета фона этих ячеек. В Excel нет встроенной функции для получения кода цвета ячейки, но в этой статье я предлагаю несколько полезных фрагментов кода VBA, которые быстро решают эту задачу.
Определение цвета ячейки с помощью VBA
Определение цвета ячейки с помощью VBA
Выполните следующие шаги, чтобы задать цвет ячейки с помощью VBA.
1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите пункт Вставка > Модуль, чтобы открыть новый модуль, и вставьте приведённый ниже код VBA в пустое поле скрипта. См. скриншот:
VBA: Получение традиционного шестнадцатеричного кода цвета ячейки
Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As String
xColor = CStr(FCell.Interior.Color)
xColor = Right("000000" & Hex(xColor), 6)
getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function |
 |
3. Сохраните код и закройте окно VBA. Выделите пустую ячейку рядом с цветной, введите формулу =getRGB1(A16), а затем протяните маркер автозаполнения на нужные ячейки. См. скриншот:
 |
 |
Совет: существуют и другие коды, позволяющие определить цвет ячейки.
1. VBA: Десятичное значение для каждого кода
Function getRGB2(FCell As Range) As String
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End FunctionРезультат:
2. VBA: Десятичные значения
Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
'UpdatebyExtendoffice20170714
Dim xColor As Long
Dim R As Long, G As Long, B As Long
xColor = FCell.Interior.Color
R = xColor Mod 256
G = (xColor \ 256) Mod 256
B = (xColor \ 65536) Mod 256
Select Case Opt
Case 1
getRGB3 = R
Case 2
getRGB3 = G
Case 3
getRGB3 = B
Case Else
getRGB3 = xColor
End Select
End FunctionРезультат:
Легко выделяйте дублирующиеся или уникальные значения в Excel |
Работаете с диапазоном данных в Excel и нужно быстро выделить дублирующиеся строки? С помощью Kutools для Excel и функции Выбрать дубликаты/уникальные ячейки вы мгновенно найдёте и выделите повторяющиеся или уникальные значения в любом диапазоне. А ещё можно применить заливку фона и цвет шрифта к этим значениям, чтобы они сразу бросались в глаза на общем фоне! |
 |
Kutools для Excel— Расширьте возможности Excel более чем 300 необходимыми инструментами, чтобы работать быстрее и проще, а также используйте функции ИИ для более умной обработки данных и повышения продуктивности.Получить сейчас |
Связанные статьи:
- Как изменить цвет шрифта в зависимости от значения ячейки в Excel?
- Как выделить цветом повторяющиеся значения или дублирующиеся строки в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек