Kuinka asettaa Excel-solun väri VBA:n ehdon mukaan?

Viimeksi päivitetty: elokuu 2021; Microsoft Excel 365, 2019, 2016.

Tämän päivän VBA for Excel Automation -opetusohjelmassa opimme kuinka voimme ohjelmallisesti muuttaa solun väriä solun arvon perusteella.

Voimme käyttää tätä tekniikkaa, kun kehitämme esimerkiksi yksinkertaista tilamittaristoa.

Perustaa

Jos et vielä kehitä Excelissä, suosittelemme tutustumaan Excel-makrojen esittelyoppaaseemme . Erityisesti sinun on varmistettava, että Kehittäjä-välilehti on käytettävissä Microsoft Excel -nauhassasi, koska käytät sitä yksinkertaisen koodin kirjoittamiseen.

Avaa Microsoft Excel. Huomaa, että tässä opetusohjelmassa olevan koodin odotetaan toimivan Excel 2007:ssä ja uudemmissa versioissa.
Lisää tyhjään taulukkoon seuraava taulukko:

Siirry nyt eteenpäin ja määritä nimetty alue napsauttamalla: Kaavat>> Määritä nimi

Paina OK

Solun sisävärin muuttaminen arvon perusteella Cell.Interior.Color-toiminnolla

Napsauta Kehittäjä - merkintää nauhassa.
Paina Visual Basic tai Alt+F11 avataksesi kehittäjän VBA-editorin.
Korosta seuraavaksi työtaulukko, jossa haluat suorittaa koodisi. Vaihtoehtoisesti voit valita moduulin, jossa on VBA-koodisi.
Mene eteenpäin ja liitä tämä koodi. Esimerkissämme muokkaamme solualueen sisäväriä tiettyihin solujen RGB-arvoihin, jotka vastaavat punaista, keltaista ja vihreää väriä.
Käytämme erityisesti Excel VBA -menetelmää Cell.Interior.Color ja välitämme vastaavan RGB-arvon tai väriindeksin.

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

Suorita koodisi joko painamalla F5 tai Run>> Run Sub / UserForm.
Huomaat, että tilan hallintapaneeli on täytetty alla olevan kuvan mukaisesti:

Tallenna koodi ja sulje VBA-editori.

Jätä kommentti

Voittoa tavoittelemattoman organisaation vuosikertomuksen PowerPoint-malli: Ilmaiset latausvaihtoehdot ja dialuettelo

Luo selkeä voittoa tavoittelemattoman organisaation vuosikertomus PowerPointissa ilmaisen mallin, käytännöllisen diarakenteen, vaikuttavuusmittareiden, taloustietojen ja lahjoittajille tarkoitettujen esitysvinkkien avulla.

Minimalistinen sijoittajapuheen PowerPoint-malli teknologia-alan startup-yrityksille: Mitä sisällyttää ja mitä jättää pois

Rakenna clean tech -alan startup-sijoittajan pitch-deck PowerPointilla käytännöllisellä diarakenteella, näyttöön perustuvalla viestinnällä, saavutettavalla suunnittelulla ja vähemmillä häiriötekijöillä.

Yksinkertainen tehtävien delegointimatriisimalli Wordille: Käytännönläheinen versio pienten tiimien esimiehille

Käytä tätä yksinkertaista tehtävien delegointimatriisimallia Wordissa omistajien, päätösrajojen, määräaikojen ja tarkistuspisteiden määrittämiseen ilman, että pienen tiimin työstä tulee liian monimutkaista.

Yksinkertainen päivähoidon läsnäololomakkeen malli: Tulostettava kirjautuminen sisään ja ulos kotihoitoon

Käytä tätä yksinkertaista tulostettavaa päivähoidon läsnäololomaketta kotihoitoon. Lomakkeeseen tulee lasten nimet, saapumis- ja lähtöajat, allekirjoitukset ja vinkkejä sääntöjen noudattamiseen.

Tulostettava yhden sivun markkinointistrategiamalli paikallisille yrityksille

Käytä tätä tulostettavaa yksisivuista markkinointistrategiapohjaa määrittääksesi paikallisen yleisösi, tarjonnan, kanavat, budjetin, viikoittaiset toimenpiteet ja mitattavissa olevat tavoitteet.

Kuinka estää Exceliä muuttamasta numeroita automaattisesti päivämääriksi

Estä Exceliä muuntamasta arvoja, kuten 1/2, 11-53 tai JAN1, päivämääriksi. Opi luotettavia korjauksia kirjoittamiseen, liittämiseen, CSV-tuontiin ja jo muunnettujen solujen käyttöön.

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.

Näin korjaat Outlookin virheen: sähköpostia voi vastaanottaa, mutta ei lähettää

Korjaa Outlook, kun sähköpostia voi vastaanottaa mutta ei lähettää. Tarkista Lähtevät, offline-tila, kirjautuminen, SMTP-asetukset, profiilit ja Microsoft 365 -muutokset.

Yksinkertainen kahden viikon välein tapahtuvan palkanmaksun Excel-seurantamalli pienille tiimeille: käytännön asennusopas

Rakenna yksinkertainen kahden viikon välein tapahtuva palkanmaksuseurantamalli Exceliin pienelle tiimille, mukaan lukien tunnit, palkat, vähennykset, tarkistusliput, yhteenvedot ja kirjanpito-ohjeet.

Tulostettava tapahtumasuunnittelun tarkistuslista ja budjettimalli Wordiin: Mitä sisällyttää ja milloin käyttää Exceliä

Luo tai mukauta tulostettava tapahtumasuunnittelun tarkistuslista ja budjettimalli Microsoft Wordissa, joka sisältää käytännön osioita, kompromisseja ja vinkkejä Wordin ja Excelin vertailuun.