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:

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

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

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

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

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

  • Salvestage oma kood ja sulgege VBA redaktor.

Kuidas kirjutada Microsoft Office 2016-s, 2019/365-s paremalt vasakule?

Kuidas kirjutada Microsoft Office 2016-s, 2019/365-s paremalt vasakule?

Siit saate teada, kuidas Microsoft Wordis LTR-klaviatuuridelt RTL-klaviatuuridele lülituda.

Kuidas määrata Exceli teksti fondi värvi VBA-ga?

Kuidas määrata Exceli teksti fondi värvi VBA-ga?

Siit saate teada, kuidas kasutada Excel VBA-d lahtri teksti, värvi, suuruse ja atribuutide programmiliseks muutmiseks.

Kuidas kontrollida, kas lahter või mitme lahtri vahemik on Excel VBA abil tühi?

Kuidas kontrollida, kas lahter või mitme lahtri vahemik on Excel VBA abil tühi?

Siit saate teada, kuidas programmeerida vba-d otsima töölehel või lahtrivahemikus tühje lahtreid.

Microsoft Wordi aeglane jõudlus? Seitse nõuannet Word 365 / 2019 / 2016 palju kiiremaks töötamiseks

Microsoft Wordi aeglane jõudlus? Seitse nõuannet Word 365 / 2019 / 2016 palju kiiremaks töötamiseks

Siit saate teada, kuidas saate Word 365 hõlpsalt kiiremini tööle panna, keelates lisandmoodulid, uuendades oma riistvara ja eemaldades

Kas ma saan vc_red failid oma personaalarvuti kõvakettalt kustutada?

Kas ma saan vc_red failid oma personaalarvuti kõvakettalt kustutada?

Siit saate teada kõike vajalikku VC_RED-i installi- ja kabinetifailide kohta. Kas nende kustutamine operatsioonisüsteemist Windows 7 ja 10 on ohutu?

Kas kuvada Word 365 / 2016 / 2019 ja Google Docsi päise ja jaluse teksti ainult esimesel lehel?

Kas kuvada Word 365 / 2016 / 2019 ja Google Docsi päise ja jaluse teksti ainult esimesel lehel?

Siit saate teada, kuidas jalust ja päist esimesel lehel kuvada ainult Word 365, 2016 ja 2019 puhul; samuti Google'i dokumentides

Kuidas töötada PowerPoint VBA-s sõnumi- ja sisestuskastidega?

Kuidas töötada PowerPoint VBA-s sõnumi- ja sisestuskastidega?

Siit saate teada, kuidas PowerPointis VBA-ga sõnumi- ja sisestuskaste kodeerida

Kuidas luua ja lisada slaide PowerPointi esitlustele VBA abil?

Kuidas luua ja lisada slaide PowerPointi esitlustele VBA abil?

Siit saate teada, kuidas kirjutada slaidide sisestamiseks ja uue esitluse loomiseks lihtne VBA-makro

Kuidas saan muuta oma Office 2016 ekraaniteema värve?

Kuidas saan muuta oma Office 2016 ekraaniteema värve?

Siit saate teada, kuidas kohandatud Office'i värviskeeme rakendada.

Kuidas avada .one-faile MAC- ja Windowsi arvutites?

Kuidas avada .one-faile MAC- ja Windowsi arvutites?

Siit saate teada, kuidas käivitada MAC-i ja Windowsi OneNote'i faililaiendeid