Hvordan indstiller man en Excel-cellefarve i henhold til en betingelse med VBA?

Sidst opdateret: august 2021; Microsoft Excel 365, 2019, 2016.

I dagens VBA for Excel Automation-vejledning lærer vi om, hvordan vi programmæssigt kan ændre farven på en celle baseret på celleværdien.

Vi kan bruge denne teknik, når vi for eksempel udvikler et simpelt status dashboard.

Opsætning

Hvis du endnu ikke udvikler på Excel, vil vi anbefale, at du kigger i vores introduktionsvejledning til Excel-makroer . Specifikt skal du sørge for, at fanen Udvikler er tilgængelig i dit Microsoft Excel-bånd, da du skal bruge det til at skrive en simpel kode.

• Åbn Microsoft Excel. Bemærk, at koden i denne øvelse forventes at fungere i Excel 2007 og senere.
• Tilføj følgende tabel i et tomt regneark:

• Gå nu videre og definer et navngivet område ved at trykke på: Formler>>Definer navn

• Tryk på OK

Ændring af celle interiør farve baseret på værdi med Cell.Interior.Color

• Tryk på Developer -indgangen på båndet.
• Tryk på Visual Basic eller Alt+F11 for at åbne din udvikler VBA-editor.
• Fremhæv derefter det arbejdsark, som du gerne vil køre din kode i. Alternativt kan du vælge et modul, der har din VBA-kode.
• Gå videre og indsæt denne kode. I vores eksempel vil vi ændre den indvendige farve af en række celler til specifikke celle RGB-værdier svarende til de røde, gule og grønne farver.
• Specifikt bruger vi Excel VBA-metoden Cell.Interior.Color og videregiver den tilsvarende RGB-værdi eller farveindeks.

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

• Kør din kode – enten ved at trykke på F5 eller Kør>> Kør Sub / UserForm.
• Du vil bemærke, at statusdashboardet blev udfyldt som vist nedenfor:

• Gem din kode og luk din VBA-editor.