Si të vendosni një ngjyrë të qelizave Excel sipas një kushti me VBA?

Përditësimi i fundit: Gusht 2021; Microsoft Excel 365, 2019, 2016.

Në tutorialin e sotëm të VBA për Excel Automation, do të mësojmë se si mund të ndryshojmë në mënyrë programore ngjyrën e një qelize bazuar në vlerën e qelizës.

Ne mund ta përdorim këtë teknikë për shembull kur zhvillojmë një panel të thjeshtë statusi.

Konfigurimi

Nëse nuk jeni ende duke u zhvilluar në Excel, ne do t'ju rekomandojmë të shikoni udhëzuesin tonë hyrës për Excel Macros . Në mënyrë të veçantë, duhet të siguroheni që skeda Zhvilluesi është i disponueshëm në Shiritin tuaj të Microsoft Excel, pasi do ta përdorni për të shkruar një kod të thjeshtë.

• Hapni Microsoft Excel. Vini re se kodi i dhënë në këtë tutorial pritet të funksionojë në Excel 2007 dhe më tej.
• Në një fletë pune bosh, shtoni tabelën e mëposhtme:

• Tani shkoni përpara dhe përcaktoni një varg të emërtuar duke shtypur: Formulat>> Define Name

• Shtypni OK

Ndryshimi i ngjyrës së brendshme të qelizës bazuar në vlerë me Cell.Interior.Color

• Klikoni hyrjen e Zhvilluesit në Shirit.
• Shtypni Visual Basic ose Alt+F11 për të hapur redaktorin e zhvilluesit tuaj VBA.
• Më pas theksoni fletën e punës në të cilën dëshironi të ekzekutoni kodin tuaj. Përndryshe, zgjidhni një modul që ka kodin tuaj VBA.
• Vazhdoni dhe ngjisni këtë kod. Në shembullin tonë ne do të modifikojmë ngjyrën e brendshme të një sërë qelizash në vlera specifike RGB të qelizave që korrespondojnë me ngjyrat e kuqe, të verdhë dhe jeshile.
• Konkretisht ne përdorim metodën Excel VBA Cell.Interior.Color dhe kalojmë vlerën përkatëse RGB ose indeksin e ngjyrave.

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

• Ekzekutoni kodin tuaj – ose duke shtypur F5 ose Run>> Run Sub / UserForm.
• Do të vini re se pulti i statusit ishte i mbushur siç tregohet më poshtë:

• Ruani kodin tuaj dhe mbyllni redaktorin tuaj VBA.