Як визначити та визначити індекс кольоровості фону клітинок у 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?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!