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:

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

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

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

  • 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ë:

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

  • Ruani kodin tuaj dhe mbyllni redaktorin tuaj VBA.

Si të shkruani nga e djathta në të majtë në Microsoft Office 2016 , 2019 / 365?

Si të shkruani nga e djathta në të majtë në Microsoft Office 2016 , 2019 / 365?

Mësoni si të kaloni nga tastierat LTR në RTL në Microsoft Word.

Si të vendosni ngjyrën e shkronjave të tekstit Excel me VBA?

Si të vendosni ngjyrën e shkronjave të tekstit Excel me VBA?

Mësoni si të përdorni Excel VBA për të ndryshuar në mënyrë programore tekstin, ngjyrën, madhësinë dhe vetitë e qelizës.

Si të kontrolloni nëse një qelizë ose një varg qelizash të shumta është bosh me Excel VBA?

Si të kontrolloni nëse një qelizë ose një varg qelizash të shumta është bosh me Excel VBA?

Mësoni se si të programoni vba për të kërkuar qeliza boshe në një fletë pune ose një gamë qelizash.

Performanca e ngadaltë e Microsoft Word? Shtatë këshilla për ta bërë Word 365 / 2019 / 2016 të funksionojë shumë më shpejt

Performanca e ngadaltë e Microsoft Word? Shtatë këshilla për ta bërë Word 365 / 2019 / 2016 të funksionojë shumë më shpejt

Mësoni se si mund ta bëni me lehtësi Word 365 të funksionojë më shpejt duke çaktivizuar shtesat, duke përmirësuar harduerin tuaj dhe duke hequr qafe

A mund të fshij skedarët vc_red nga hard disku i kompjuterit tim personal?

A mund të fshij skedarët vc_red nga hard disku i kompjuterit tim personal?

Mësoni gjithçka që nevojitet për instalimin e VC_RED dhe skedarët e kabinetit. A është e sigurt t'i fshini ato nga sistemi juaj operativ Windows 7 & 10?

Si të punoni me kutitë e mesazheve dhe hyrjeve në PowerPoint VBA?

Si të punoni me kutitë e mesazheve dhe hyrjeve në PowerPoint VBA?

Mësoni se si të kodoni kutitë e mesazheve dhe hyrjeve me VBA në PowerPoint

Si të krijoni dhe shtoni rrëshqitje në prezantimet në PowerPoint me VBA?

Si të krijoni dhe shtoni rrëshqitje në prezantimet në PowerPoint me VBA?

Mësoni se si të shkruani një makro të thjeshtë VBA për të futur rrëshqitje dhe për të krijuar një Prezantim të ri

Si mund ti modifikoj ngjyrat e temës së ekranit të Office 2016?

Si mund ti modifikoj ngjyrat e temës së ekranit të Office 2016?

Mësoni se si të aplikoni skemat e ngjyrave të personalizuara të Office.

Shfaqni tekstin e kokës dhe të fundit vetëm në faqen e parë në Word 365 / 2016 / 2019 dhe Google Docs?

Shfaqni tekstin e kokës dhe të fundit vetëm në faqen e parë në Word 365 / 2016 / 2019 dhe Google Docs?

Mësoni se si të shfaqni fundin dhe kokën në faqen e parë vetëm në Word 365, 2016 dhe 2019; si dhe në Dokumentet e Google

Si të hapni skedarë .one në kompjuterët MAC dhe Windows?

Si të hapni skedarë .one në kompjuterët MAC dhe Windows?

Mësoni se si të hapni shtesat e skedarëve OneNote të MAC dhe Windows