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:

Kako postaviti boju Excel ćelije prema uvjetu s VBA?

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

Kako postaviti boju Excel ćelije prema uvjetu s VBA?

  • 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:

Kako postaviti boju Excel ćelije prema uvjetu s VBA?

  • Spremite svoj kod i zatvorite svoj VBA editor.

Ostavite komentar

Besplatni predložak prezentacije statusa projekta za Agile timove: Što treba uključiti?

Besplatni predložak prezentacije statusa projekta za Agile timove: Što treba uključiti?

Upotrijebite ovaj besplatni, spremni za kopiranje predložak prezentacije statusa Agile projekta kako biste prikazali napredak, rizike, odluke i sljedeće korake, a da ažuriranja ne pretvorite u šum.

Kako riješiti problem „Zvuk snimanja zaslona u PowerPointu ne radi”

Kako riješiti problem „Zvuk snimanja zaslona u PowerPointu ne radi”

Snimanje zaslona u PowerPointu ima video, ali nema zvuka? Provjerite kontrolu zvuka, pristup mikrofonu u sustavu Windows, postavke ulaza, kompatibilnost reprodukcije, ažuriranja i popravak.

Besplatni predložak rasporeda smjena za zaposlenike u Excelu s kalkulatorom sati

Besplatni predložak rasporeda smjena za zaposlenike u Excelu s kalkulatorom sati

Izradite besplatni Excel raspored smjena za zaposlenike s automatskim izračunom sati, obradom noćnih smjena, odbitkom pauza, tjednim zbrojevima, oznakama za planiranje prekovremenog rada i pregledom tima spremnim za ispis.

Besplatni predložak fakture za male poduzetnike za Excel s automatskim izračunom poreza na promet

Besplatni predložak fakture za male poduzetnike za Excel s automatskim izračunom poreza na promet

Izradite besplatni predložak fakture za Excel koji automatski izračunava oporezive iznose, porez na promet i ukupne iznose. Usporedite postavke s jednom stopom, tablicom pretraživanja i porezom po stavci te saznajte kada Excel više nije dovoljan.

Kako pretvoriti PDF u uređivi Word bez gubitka formatiranja

Kako pretvoriti PDF u uređivi Word bez gubitka formatiranja

Pretvorite PDF u uređivi Word s najmanjim gubitkom formatiranja koristeći Word ili Acrobat. Saznajte kada izravna konverzija funkcionira, kada je potreban OCR te kako popraviti tablice, fontove i prijelome stranica.

Predložak procjene građevinskih radova za ispis u Excelu za male izvođače

Predložak procjene građevinskih radova za ispis u Excelu za male izvođače

Izradite procjenu građevinskih radova za ispis u Excelu s opsegom, materijalima, radom, općim troškovima, rezervacijama, nadoplatom, porezom i gotovim zbrojevima za ispis – uz formule i greške koje treba izbjegavati.

Kako stvoriti jednostavan sustav za praćenje potencijalnih kupaca u Excelu prije kupnje CRM-a

Kako stvoriti jednostavan sustav za praćenje potencijalnih kupaca u Excelu prije kupnje CRM-a

Izgradite praktični alat za praćenje potencijalnih kupaca u Excelu s tablicom, padajućim izbornicima faza, datumima naknadnog kontakta, oznakama za kašnjenje, filterima i sažetkom prodajnog procesa – uz znakove da je vrijeme za prelazak na CRM.

Predložak za dnevno blokiranje vremena u PDF formatu za stručnjake koji rade od kuće: Vodič za početnike

Predložak za dnevno blokiranje vremena u PDF formatu za stručnjake koji rade od kuće: Vodič za početnike

Naučite kako koristiti predložak za dnevno blokiranje vremena u PDF formatu za rad od kuće: planirajte blokove fokusa, sastanke, pauze, rezerve i ispravno ga isprintajte.

HubSpot Free CRM protiv Zoho CRM-a za samostalne agente nekretnina: Što je bolje u 2026.?

HubSpot Free CRM protiv Zoho CRM-a za samostalne agente nekretnina: Što je bolje u 2026.?

Usporedite HubSpot Free CRM i Zoho CRM za samostalne agente nekretnina, uključujući kontakte, e-poštu, tokove prodaje, prilagodbu, automatizaciju, mobilnu upotrebu i kompromise pri nadogradnji.

Kako popraviti Wordov dokument koji se otvara samo za čitanje na Macu

Kako popraviti Wordov dokument koji se otvara samo za čitanje na Macu

Popravite Wordov dokument koji se otvara samo za čitanje na Macu provjerom problema s ažuriranjem Officea iz srpnja 2026., načinom uređivanja u Wordu, zaštitom dokumenta, dozvolama u Finderu, pristupom OneDriveu i lokacijom datoteke.