Како подесити боју Екцел ћелије у складу са условом са ВБА?

Последњи пут ажурирано: август 2021; Мицрософт Екцел 365, 2019, 2016.

У данашњем водичу за ВБА за Екцел аутоматизацију научићемо како можемо програмски да променимо боју ћелије на основу вредности ћелије.

Ову технику можемо користити када, на пример, развијамо једноставну контролну таблу статуса.

Подесити

Ако још увек не развијате у Екцел-у, препоручујемо вам да погледате наш уводни водич за Екцел макрое . Конкретно, морате да се уверите да је картица Девелопер доступна на вашој Мицрософт Екцел траци, јер ћете је користити за писање једноставног кода.

• Отворите Мицрософт Екцел. Имајте на уму да се очекује да код који се налази у овом водичу функционише у програму Екцел 2007 и новијим верзијама.
• У празан радни лист додајте следећу табелу:

• Сада наставите и дефинишите именовани опсег притиском на: Формуле>>Дефиниши име

• Притисните ОК

Промена унутрашње боје ћелије на основу вредности помоћу Целл.Интериор.Цолор

• Притисните унос за програмера на траци.
• Притисните Висуал Басиц или Алт+Ф11 да отворите ВБА едитор за програмере.
• Затим означите радни лист у којем желите да покренете свој код. Алтернативно, изаберите модул који има ваш ВБА код.
• Само напред и налепите овај код. У нашем примеру ћемо модификовати унутрашњу боју опсега ћелија на одређене РГБ вредности ћелије које одговарају црвеној, жутој и зеленој боји.
• Конкретно, користимо Екцел ВБА метод Целл.Интериор.Цолор и прослеђујемо одговарајућу РГБ вредност или индекс боја.

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

• Покрените свој код – притиском на Ф5 или Рун>> Рун Суб / УсерФорм.
• Приметићете да је контролна табла статуса попуњена као што је приказано у наставку:

• Сачувајте свој код и затворите ВБА едитор.