Kā iestatīt Excel šūnas krāsu atbilstoši nosacījumam ar VBA?

Pēdējo reizi atjaunināts: 2021. gada augustā; Microsoft Excel 365, 2019, 2016.

Šodienas VBA for Excel automatizācijas apmācībā mēs uzzināsim, kā mēs varam programmatiski mainīt šūnas krāsu, pamatojoties uz šūnas vērtību.

Mēs varam izmantot šo paņēmienu, piemēram, izstrādājot vienkāršu statusa informācijas paneli.

Uzstādīt

Ja jūs vēl neveicat izstrādes programmu programmā Excel, iesakām iepazīties ar mūsu Excel makro ievada rokasgrāmatu . Konkrēti, jums ir jāpārliecinās, vai Microsoft Excel lentē ir pieejama cilne Izstrādātājs, jo to izmantosit, lai rakstītu vienkāršu kodu.

• Atveriet Microsoft Excel. Ņemiet vērā, ka šajā apmācībā sniegtais kods darbosies programmā Excel 2007 un jaunākās versijās.
• Tukšā darblapā pievienojiet šādu tabulu:

• Tagad dodieties uz priekšu un definējiet nosaukto diapazonu, noklikšķinot uz Formulas>> Define Name

• Nospiediet OK

Šūnas iekšējās krāsas maiņa, pamatojoties uz vērtību, izmantojot Cell.Interior.Color

• Lentē noklikšķiniet uz ieraksta Izstrādātājs .
• Nospiediet Visual Basic vai Alt+F11, lai atvērtu izstrādātāja VBA redaktoru.
• Pēc tam iezīmējiet darblapu, kurā vēlaties palaist savu kodu. Vai arī atlasiet moduli, kuram ir jūsu VBA kods.
• Iet uz priekšu un ielīmējiet šo kodu. Mūsu piemērā mēs pārveidosim šūnu diapazona iekšējo krāsu līdz noteiktām šūnu RGB vērtībām, kas atbilst sarkanajai, dzeltenajai un zaļajai krāsai.
• Konkrēti, mēs izmantojam Excel VBA metodi Cell.Interior.Color un nododam atbilstošo RGB vērtību vai krāsu indeksu.

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

• Palaidiet savu kodu, nospiežot F5 vai Palaist>> Palaist sub / UserForm.
• Jūs ievērosiet, ka statusa informācijas panelis ir aizpildīts, kā parādīts tālāk:

• Saglabājiet savu kodu un aizveriet VBA redaktoru.