Kako nastaviti barvo celice Excel glede na pogoj z VBA?

Zadnja posodobitev: avgust 2021; Microsoft Excel 365, 2019, 2016.

V današnji vadnici za avtomatizacijo VBA za Excel se bomo naučili, kako lahko programsko spremenimo barvo celice na podlagi vrednosti celice.

To tehniko lahko uporabimo na primer pri razvoju preproste nadzorne plošče stanja.

Nastaviti

Če še ne razvijate v Excelu, vam priporočamo, da si ogledate naš uvodni vodnik za Excelove makre . Natančneje se morate prepričati, da je zavihek Razvijalec na voljo v traku Microsoft Excel, saj ga boste uporabljali za pisanje preproste kode.

• Odprite Microsoft Excel. Upoštevajte, da naj bi koda v tej vadnici delovala v Excelu 2007 in novejših.
• Na prazen delovni list dodajte naslednjo tabelo:

• Zdaj nadaljujte in definirajte poimenovani obseg tako, da pritisnete: Formule>>Določi ime

• Pritisnite OK

Spreminjanje notranje barve celice glede na vrednost s funkcijo Cell.Interior.Color

• Pritisnite vnos za razvijalce na traku.
• Pritisnite Visual Basic ali Alt+F11, da odprete urejevalnik VBA za razvijalce.
• Nato označite delovni list, v katerem želite zagnati svojo kodo. Lahko pa izberete modul, ki ima vašo kodo VBA.
• Pojdi naprej in prilepi to kodo. V našem primeru bomo spremenili notranjo barvo obsega celic na določene vrednosti RGB celice, ki ustrezajo rdeči, rumeni in zeleni barvi.
• Natančneje uporabljamo Excelovo metodo VBA Cell.Interior.Color in posredujemo ustrezno vrednost RGB ali barvni indeks.

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

• Zaženite svojo kodo – bodisi s pritiskom na F5 ali Run>> Run Sub / UserForm.
• Opazili boste, da je bila nadzorna plošča stanja napolnjena, kot je prikazano spodaj:

• Shranite kodo in zaprite urejevalnik VBA.