Kuidas määrata Exceli lahtri värvi vastavalt tingimusele VBA-ga?

Viimati värskendatud: august 2021; Microsoft Excel 365, 2019, 2016.

Tänases VBA for Exceli automatiseerimise õpetuses õpime, kuidas saame programmiliselt lahtri värvi lahtri väärtuse alusel muuta.

Seda tehnikat saame kasutada näiteks lihtsa oleku armatuurlaua väljatöötamisel.

Seadistamine

Kui te ei arenda veel Excelis, soovitame tutvuda meie Exceli makrode sissejuhatava juhendiga . Täpsemalt peate veenduma, et vahekaart Arendaja on teie Microsoft Exceli lindil saadaval, kuna kasutate seda lihtsa koodi kirjutamiseks.

• Avage Microsoft Excel. Pange tähele, et selles õpetuses esitatud kood peaks töötama Excel 2007 ja uuemates versioonides.
• Lisage tühjale töölehel järgmine tabel:

• Nüüd minge edasi ja määrake nimega vahemik, vajutades: Valemid>> Määratle nimi

• Vajutage nuppu OK

Lahtri sisemuse värvi muutmine väärtuse alusel funktsiooniga Cell.Interior.Color

• Klõpsake lindil kirjet Arendaja .
• Arendaja VBA redaktori avamiseks vajutage Visual Basicut või Alt+F11.
• Järgmisena tõstke esile tööleht, millel soovite oma koodi käitada. Teise võimalusena valige moodul, millel on teie VBA kood.
• Jätkake ja kleepige see kood. Meie näites muudame lahtrite vahemiku sisevärvi konkreetsete lahtri RGB väärtustega, mis vastavad punasele, kollasele ja rohelisele värvile.
• Täpsemalt kasutame Exceli VBA meetodit Cell.Interior.Color ja edastame vastava RGB väärtuse või värviindeksi.

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äivitage oma kood – kas vajutades klahvi F5 või Run>> Run Sub / UserForm.
• Märkate, et oleku armatuurlaud on täidetud järgmiselt:

• Salvestage oma kood ja sulgege VBA redaktor.