Як встановити колір клітинки Excel відповідно до умови за допомогою VBA?

Останнє оновлення: серпень 2021 р.; Microsoft Excel 365, 2019, 2016.

У сьогоднішньому підручнику з автоматизації VBA для Excel ми дізнаємося, як можна програмно змінити колір комірки на основі значення комірки.

Ми можемо використовувати цю техніку, наприклад, при розробці простої інформаційної панелі стану.

Налаштування

Якщо ви ще не розробляєте в Excel, ми рекомендуємо ознайомитися з нашим вступним посібником із макросів Excel . Зокрема, вам потрібно переконатися, що вкладка «Розробник» доступна на стрічці Microsoft Excel, оскільки ви будете використовувати її для написання простого коду.

• Відкрийте Microsoft Excel. Зауважте, що код, наданий у цьому посібнику, як очікується, працюватиме в Excel 2007 і далі.
• У порожній аркуш додайте таку таблицю:

• Тепер визначте іменований діапазон, натиснувши: Формули>>Визначити назву

• Натисніть ОК

Зміна кольору внутрішньої комірки на основі значення за допомогою Cell.Interior.Color

• Натисніть запис розробника на стрічці.
• Натисніть Visual Basic або Alt+F11, щоб відкрити редактор VBA для розробників.
• Далі виділіть робочий аркуш, на якому ви хочете запустити свій код. Або виберіть модуль, у якому є ваш код VBA.
• Вставте цей код. У нашому прикладі ми змінимо внутрішній колір діапазону комірок на певні значення RGB клітинки, що відповідають червоному, жовтому та зеленому кольорам.
• Зокрема, ми використовуємо метод Excel VBA Cell.Interior.Color і передаємо відповідне значення RGB або індекс кольору.

Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub

• Запустіть свій код – натиснувши F5 або Виконати>> Виконати підпорядковану форму / форму користувача.
• Ви помітите, що інформаційна панель стану заповнена, як показано нижче:

• Збережіть код і закрийте редактор VBA.