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

Näin korjaat ongelman: PowerPointin näytöntallennuksen ääni ei toimi

Onko PowerPointin näytöntallennuksessa videota mutta ei ääntä? Tarkista ääniasetukset, Windowsin mikrofoni-ominaisuudet, tulolaitteet, toistoyhteensopivuus, päivitykset ja korjaus.

Ilmainen työntekijöiden vuorolista Excel-mallipohja tuntilaskurilla

Luo ilmainen Excel-vuorolista automaattisilla tunneilla, yövuorojen käsittelyllä, taukovähennyksillä, viikkotunneilla, ylityövaroituksilla ja tulostettavalla tiiminäkymällä.

Ilmainen pienyrityksen laskupohja Exceliin automaattisella arvonlisäverolaskennalla

Luo ilmainen Excel-laskupohja, joka laskee verotettavat määrät, myyntiverot ja yhteissummat automaattisesti. Vertaa yhden verokannan, hakutaulukon ja rivikohtaisia verotusasetuksia sekä selvitä, milloin Excel ei enää riitä.

Miten muunnat PDF:n muokattavaksi Wordiksi menettämättä muotoilua

Muunna PDF muokattavaksi Wordiksi vähäisimmällä muotoiluhäviöllä käyttämällä Wordia tai Acrobatia. Opi, milloin suora muunnos toimii, milloin OCR on tarpeen ja miten korjata taulukot, fontit ja sivunvaihdot.

Tulostettava rakennusurakan kustannusarvio Excel-mallipohja pienille urakoitsijoille

Laadi tulostettava rakennusurakan kustannusarvio Excelissä: työsuunnitelma, materiaalit, työvoima, yleiskulut, vararahat, katteet, verot ja tulostusvalmiit yhteenvetosummat – mukana kaavat ja vältettävät virheet.

Näin luot yksinkertaisen liidenseurantajärjestelmän Excelissä ennen CRM-järjestelmän ostamista

Rakenna käytännöllinen liidenseuranta Exceliin taulukolla, vaihevalikoilla, seuranta-ajankohdilla, myöhässä olevien merkkauksilla, suodattimilla ja yksinkertaisella putkistoyhteenvetolla – sekä merkkejä siitä, milloin on aika siirtyä CRM-järjestelmään.

Tulostettava päivittäinen aikablokkauksen mallipohja PDF: etätyöläisille – aloittelijaystävällinen opas

Opi käyttämään tulostettavaa päivittäistä aikablokkauksen mallipohjaa PDF-muodossa etätyöhön: suunnittele keskittymisblokit, palaverit, tauot, puskurit ja tulosta se oikein.

HubSpot Free CRM vs. Zoho CRM yksittäisille kiinteistönvälittäjille: Kumpi on parempi vuonna 2026?

Vertaa HubSpot Free CRM:ää ja Zoho CRM:ää yksittäisille kiinteistönvälittäjille, mukaan lukien yhteystiedot, sähköposti, myyntiputket, mukauttaminen, automaatio, mobiilikäyttö ja päivitysten kompromissit.

Näin korjaat Word-asiakirjan, joka avautuu vain luku -tilassa Macilla

Korjaa Macilla vain luku -tilassa avautuva Word-asiakirja tarkistamalla heinäkuun 2026 Office-päivitysongelma, Wordin muokkaustila, asiakirjan suojaus, Finderin käyttöoikeudet, OneDrive-pääsy ja tiedostosijainti.

Yksinkertainen Excel-in varastolaskentapohja vähittäiskaupalle: kentät, kaavat ja laskentaprosessi

Laadi yksinkertainen vähittäiskaupan varastolaskentataulukko Exceliin käytännöllisillä sarakkeilla, poikkeamakaavoilla, laskennan ohjauksella, tulostusvinkeillä ja nopealla tarkistuslistalla.