Hvernig á að stilla Excel frumulit í samræmi við ástand með VBA?

Síðast uppfært: ágúst 2021; Microsoft Excel 365, 2019, 2016.

Í VBA fyrir Excel sjálfvirknikennslu í dag munum við læra um hvernig við getum breytt lit frumunnar með forritunaraðferð út frá frumgildi.

Við getum notað þessa tækni þegar við erum að þróa einfalt stöðumælaborð til dæmis.

Uppsetning

Ef þú ert ekki enn að þróa á Excel, mælum við með að þú skoðir inngangsleiðbeiningar okkar um Excel fjölvi . Nánar tiltekið þarftu að ganga úr skugga um að Developer flipinn sé tiltækur í Microsoft Excel borði, þar sem þú munt nota hann til að skrifa einfaldan kóða.

• Opnaðu Microsoft Excel. Athugaðu að búist er við að kóðinn sem gefinn er upp í þessari kennslu virki í Excel 2007 og víðar.
• Í tómu vinnublaði skaltu bæta við eftirfarandi töflu:

• Farðu nú á undan og skilgreindu nafngreint svið með því að smella á: Formúlur >> Skilgreina nafn

• Smelltu á OK

Breyting á innri lit klefi byggt á gildi með Cell.Interior.Color

• Smelltu á þróunarfærsluna í borði.
• Smelltu á Visual Basic eða Alt+F11 til að opna VBA ritstjórann þinn.
• Næst skaltu auðkenna vinnublaðið þar sem þú vilt keyra kóðann þinn. Að öðrum kosti skaltu velja einingu sem hefur VBA kóðann þinn.
• Farðu á undan og límdu þennan kóða. Í dæminu okkar munum við breyta innri lit fjölda frumna í ákveðin RGB-gildi fyrir frumu sem samsvara rauðum, gulum og grænum litum.
• Sérstaklega notum við Excel VBA aðferðina Cell.Interior.Color og sendum samsvarandi RGB gildi eða litavísitölu.

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

• Keyrðu kóðann þinn - annað hvort með því að ýta á F5 eða Run >> Run Sub / UserForm.
• Þú munt taka eftir að stöðumælaborðið var fyllt út eins og sýnt er hér að neðan:

• Vistaðu kóðann þinn og lokaðu VBA ritlinum þínum.