Kaip nustatyti Excel langelio spalvą pagal sąlygą naudojant VBA?

Paskutinį kartą atnaujinta: 2021 m. rugpjūčio mėn.; „Microsoft Excel 365“, 2019, 2016 m.

Šiandienos VBA for Excel automatizavimo vadovėlyje sužinosime, kaip galime programiškai pakeisti langelio spalvą pagal langelio vertę.

Šią techniką galime naudoti, pavyzdžiui, kurdami paprastą būsenos prietaisų skydelį.

Sąranka

Jei dar nekuriate naudodami „Excel“, rekomenduojame perskaityti įvadinį „Excel“ makrokomandų vadovą . Tiksliau, turite įsitikinti, kad „Microsoft Excel“ juostelėje yra skirtukas Kūrėjas, nes jį naudosite rašydami paprastą kodą.

Atidarykite „Microsoft Excel“. Atminkite, kad šioje mokymo programoje pateiktas kodas turėtų veikti naudojant „Excel 2007“ ir naujesnes versijas.
Tuščiame darbalapyje pridėkite šią lentelę:

Dabar eikite į priekį ir apibrėžkite pavadintą diapazoną paspausdami: Formulės>> Apibrėžkite pavadinimą

Paspauskite OK

Celės vidaus spalvos keitimas pagal vertę naudojant Cell.Interior.Color

Paspauskite kūrėjo įrašą juostelėje.
Paspauskite Visual Basic arba Alt + F11, kad atidarytumėte kūrėjo VBA redaktorių.
Tada pažymėkite darbalapį, kuriame norite paleisti savo kodą. Arba pasirinkite modulį, kuriame yra jūsų VBA kodas.
Eikite į priekį ir įklijuokite šį kodą. Mūsų pavyzdyje pakeisime langelių diapazono vidinę spalvą į konkrečias ląstelių RGB reikšmes, atitinkančias raudoną, geltoną ir žalią spalvas.
Tiksliau, mes naudojame Excel VBA metodą Cell.Interior.Color ir perduodame atitinkamą RGB reikšmę arba spalvos indeksą.

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

Vykdykite kodą paspausdami F5 arba Vykdyti>> Vykdyti sub / UserForm.
Pastebėsite, kad būsenos prietaisų skydelis užpildytas, kaip parodyta toliau:

Išsaugokite kodą ir uždarykite VBA redaktorių.

Palikti komentarą

Kaip eksportuoti „Salesforce“ kontaktus į švarų „Excel“ formatą nesugadinant ID ar telefono numerių

Švariai eksportuokite „Salesforce“ kontaktus į „Excel“: sukurkite tinkamą ataskaitą, eksportuokite kaip „Details Only CSV“, importuokite naudodami „Power Query“, išsaugokite ID ir pradinus nulius, saugiai pašalinkite dublikatus ir patikrinkite rezultatą.

Spausdinamas savaitinis valymo tvarkaraščio šablonas „Airbnb“ šeimininkams (Word ir PDF)

Naudokite šį spausdinamą savaitinį valymo tvarkaraštį „Airbnb“ šeimininkams, kad organizuotumėte apsikeitimo valymą, giliajį valymą, atsargų papildymą, saugos patikras ir spausdinimą iš Word į PDF.

Nemokamas mėnesinių sąskaitų kalendoriaus organizatoriaus šablonas „Excel“: praktinis 2026 m. nustatymas

Organizuokite mėnesines sąskaitas „Excel“ naudodami nemokamą sąskaitų kalendoriaus išdėstymą, mokėjimo terminų stebėjimą, būsenos formules, automatinio mokėjimo laukus ir praktinius pinigų srautų patarimus.

Excel formulės neapskaičiuoja automatiškai? Ištaisykite tai per 3 paprastus veiksmus

Ištaisykite Excel formules, kurios neapskaičiuoja automatiškai, atlikdami tris veiksmus: įjunkite automatinį skaičiavimą, perskaičiuokite ir sutvarkykite formulių langelius.

Nepriklausomo rangovo išlaidų sekimo šablonas JAV laisvai samdomiems darbuotojams: ką sekti 2026 m.

Sukurkite praktišką išlaidų sekimo įrankį JAV laisvai samdomiems darbuotojams su Schedule C kategorijomis, kvitų laukais, nuvažiuotų mylių sekimu ir 2026 m. IRS taisyklių pakeitimais.

Geriausios nemokamos sąskaitų faktūrų programėlės mažoms JAV paslaugų įmonėms (2026 m.)

Palyginkite geriausias nemokamas sąskaitų faktūrų programėles JAV paslaugų įmonėms 2026 m., įskaitant „Zoho Invoice“, „Wave“, „Square“, „PayPal“ ir „Invoice Ninja“.

Nemokamas nuosavybės nuomos išlaidų ir pajamų stebėtojo „Excel“ šablonas: pradedančiųjų vadovas

Naudokite nemokamą „Excel“ nuomos nuosavybės stebėtoją pajamoms, išlaidoms, nuosavybei ir mėnesiniam pinigų srautui organizuoti. Sužinokite, ką fiksuoti, kaip tai nustatyti ir kokių klaidų vengti.

Nemokamas projekto būsenos ataskaitos pristatymo šablonas Agile komandoms: ką turėtumėte įtraukti?

Naudokite šį nemokamą, paruoštą kopijavimui Agile projekto būsenos ataskaitos pristatymo šabloną, kad parodytumėte progresą, riziką, sprendimus ir tolesnius veiksmus, nepaversdami atnaujinimų triukšmu.

Kaip išspręsti problemą „PowerPoint ekrano įrašymo garsas neveikia“

PowerPoint ekrano įraše yra vaizdas, bet nėra garso? Patikrinkite garso valdiklį, Windows mikrofono prieigą, įvesties nustatymus, atkūrimo suderinamumą, atnaujinimus ir taisymą.

Nemokamas darbuotojų pamainų grafiko šablonas „Excel“ su valandų skaičiuotuvu

Sukurkite nemokamą „Excel“ darbuotojų pamainų grafiką su automatiniais valandų skaičiavimais, naktinių pamainų apdorojimu, pertraukų atskaitomis, savaitiniais sumavimais, viršvalandžių planavimo žymomis ir spausdinamą komandos peržiūrą.