Note: The other languages of the website are Google-translated. Back to English

Як визначити та визначити індекс кольоровості фону клітинок у Excel?

Коли ви отримуєте аркуш із кількома кольоровими клітинками, як показано на знімку екрана, в деяких випадках вам може знадобитися визначити фоновий індекс кольорів цих кольорових комірок. Немає вбудованої функції, яка може визначити індекс кольору клітинки, але в цій статті я представляю деякі коди VBA для швидкого вирішення цієї роботи в Excel.
doc визначають кольоровий індекс 1

Визначте колір комірки з VBA


Визначте колір комірки з VBA

Виконайте такі дії, щоб визначити колір клітинки за VBA.

1. прес Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для програми вікна.
doc визначають кольоровий індекс 2

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
doc визначають кольоровий індекс 3
doc визначають кольоровий індекс 4

3. Збережіть код і закрийте вікно VBA. Виділіть порожню комірку поруч із кольоровою коміркою, введіть цю формулу, = getRGB1 (A16), а потім перетягніть маркер автозаповнення над клітинками, які ви хочете використовувати. Дивіться знімок екрана:

doc визначають кольоровий індекс 5
doc визначають кольоровий індекс 6

Порада: є деякі інші коди, які дозволяють ідентифікувати кольоровий індекс клітинки.

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

Результат:
doc визначають кольоровий індекс 7

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

Результат:
doc визначають кольоровий індекс 8


швидко вибрати повторювані або унікальні значення в діапазоні Excel

У аркуші Excel, якщо у вас є діапазон, який включає кілька повторюваних рядків, можливо, вам доведеться виділити їх або виділити їх, але як швидко вирішити цю роботу? Якщо у вас є Kutools для Excel, ви можете скористатись Виберіть Duplicate & Унікальні клітини утиліта для швидкого вибору повторюваних або унікальних значень у діапазоні, або заповнення фону та кольору шрифту для дублікатів та унікальних значень.  Клацніть для 30 днів безкоштовної пробної версії!
doc виділити дублікат у стовпцях 6
 
Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, які можна безкоштовно спробувати без обмежень у 30 днів.

Відносні статті:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Excelente Post, me ajudou. Парабени
Цей коментар був мінімізований модератором на сайті
Goededag,

Graag wil ik vragen waarom deze aanpak niet werkt met cellen die voorwaardelijk opgemaakt zijn!?
Усі коди die ik kan vinden geven allemaal de kleur "geen opvulling" als resultaat terug op de functies.

Hoop van jullie te horen!
Цей коментар був мінімізований модератором на сайті
Вибачте, сайт перекладає сам...

Мені цікаво, чому це не працює з кольоровими клітинками за допомогою умовного форматування.
Усі програми на цій сторінці дають «порожній» результат, тому колір взагалі відсутній, навіть якщо клітинка забарвлена.
Якщо я самостійно розфарбую клітинку замість умовного форматування, я отримаю правильний результат, але мені також потрібно умовне форматування!

Сподіваюся почути від вас!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL