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
![Kako postaviti boju Excel ćelije prema uvjetu s VBA? Kako postaviti boju Excel ćelije prema uvjetu s VBA?]()
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:
![Kako postaviti boju Excel ćelije prema uvjetu s VBA? Kako postaviti boju Excel ćelije prema uvjetu s VBA?]()
- Spremite svoj kod i zatvorite svoj VBA editor.