Kako postaviti boju Excel ćelije prema uvjetu s VBA?

Posljednje ažurirano: kolovoz 2021.; Microsoft Excel 365, 2019, 2016.

U današnjem vodiču za automatizaciju VBA za Excel naučit ćemo kako možemo programski promijeniti boju ćelije na temelju vrijednosti ćelije.

Ovu tehniku ​​možemo koristiti kada, na primjer, razvijamo jednostavnu nadzornu ploču statusa.

Postaviti

Ako još ne razvijate na Excelu, preporučujemo da pogledate naš uvodni vodič za makronaredbe programa Excel . Točnije, morate biti sigurni da je kartica Developer dostupna na vašoj vrpci Microsoft Excela jer ćete je koristiti za pisanje jednostavnog koda.

• Otvorite Microsoft Excel. Imajte na umu da se očekuje da će kod naveden u ovom vodiču funkcionirati u programu Excel 2007 i novijim verzijama.
• U prazan radni list dodajte sljedeću tablicu:

• Sada nastavite i definirajte imenovani raspon pritiskom na: Formule>>Definiraj naziv

• Pritisnite OK

Promjena unutarnje boje ćelije na temelju vrijednosti pomoću Cell.Interior.Color

• Pritisnite unos za razvojne programere na vrpci.
• Pritisnite Visual Basic ili Alt+F11 da otvorite svoj VBA editor za razvojne programere.
• Zatim označite radni list u kojem želite pokrenuti svoj kod. Alternativno, odaberite modul koji ima vaš VBA kod.
• Samo naprijed i zalijepite ovaj kod. U našem primjeru izmijenit ćemo unutarnju boju raspona ćelija na određene RGB vrijednosti ćelije koje odgovaraju crvenoj, žutoj i zelenoj boji.
• Konkretno koristimo Excel VBA metodu Cell.Interior.Color i prosljeđujemo odgovarajuću RGB vrijednost ili indeks boja.

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

• Pokrenite svoj kod – pritiskom na F5 ili Run>> Run Sub / UserForm.
• Primijetit ćete da je nadzorna ploča statusa popunjena kao što je prikazano u nastavku:

• Spremite svoj kod i zatvorite svoj VBA editor.