Як визначити та визначити індекс кольоровості фону клітинок у Excel?
Коли ви отримуєте аркуш із кількома кольоровими клітинками, як показано на знімку екрана, в деяких випадках вам може знадобитися визначити фоновий індекс кольорів цих кольорових комірок. Немає вбудованої функції, яка може визначити індекс кольору клітинки, але в цій статті я представляю деякі коди VBA для швидкого вирішення цієї роботи в Excel.
Визначте колір комірки з VBA
Виконайте такі дії, щоб визначити колір клітинки за VBA.
1. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для програми вікна.
2. клацання Insert > Модулі відкрити нову Модулі і вставте нижче код 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, ви можете скористатись Виберіть Duplicate & Унікальні клітини утиліта для швидкого вибору повторюваних або унікальних значень у діапазоні, або заповнення фону та кольору шрифту для дублікатів та унікальних значень. Клацніть для 30 днів безкоштовної пробної версії! |
 |
| Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, які можна безкоштовно спробувати без обмежень у 30 днів. |
Відносні статті:
- Як змінити колір шрифту на основі значення комірки в Excel?
- Як розфарбувати повторювані значення або повторювані рядки в Excel?
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
