Hur ställer man in en Excel-cellfärg enligt ett villkor med VBA?

Senast uppdaterad: augusti 2021; Microsoft Excel 365, 2019, 2016.

I dagens VBA för Excel Automation-handledning lär vi oss om hur vi kan ändra färgen på en cell programmässigt baserat på cellvärdet.

Vi kan till exempel använda denna teknik när vi utvecklar en enkel statuspanel.

Uppstart

Om du ännu inte utvecklar på Excel rekommenderar vi att du tittar på vår introduktionsguide till Excel-makron . Specifikt måste du se till att fliken Utvecklare är tillgänglig i ditt Microsoft Excel-band, eftersom du kommer att använda den för att skriva lite enkel kod.

Öppna Microsoft Excel. Observera att koden som tillhandahålls i denna handledning förväntas fungera i Excel 2007 och senare.
Lägg till följande tabell i ett tomt kalkylblad:

Gå nu vidare och definiera en namngiven Range genom att trycka på: Formler>>Definiera namn

Tryck på OK

Ändra cellinredningsfärg baserat på värde med Cell.Interior.Color

Tryck på posten utvecklare i menyfliksområdet.
Tryck på Visual Basic eller Alt+F11 för att öppna din utvecklare VBA-redigerare.
Markera sedan arbetsbladet där du vill köra din kod. Alternativt kan du välja en modul som har din VBA-kod.
Fortsätt och klistra in den här koden. I vårt exempel kommer vi att modifiera den inre färgen i ett område av celler till specifika cell RGB-värden som motsvarar de röda, gula och gröna färgerna.
Specifikt använder vi Excel VBA-metoden Cell.Interior.Color och skickar motsvarande RGB-värde eller färgindex.

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ör din kod – antingen genom att trycka på F5 eller Kör>> Kör Sub / UserForm.
Du kommer att märka att statuspanelen fylldes enligt nedan:

Spara din kod och stäng din VBA-editor.

Lämna en kommentar

PowerPoint-mall för årsredovisning för ideella organisationer: Gratis nedladdningsalternativ och checklista för bildspel

Skapa en tydlig årsredovisning för ideella organisationer i PowerPoint med en gratis mall, praktisk bildstruktur, effektmått, ekonomi och presentationstips som är redo för givare.

PowerPoint-mall för minimalistisk investerarpresentation för teknikstartups: Vad som ska inkluderas och vad som ska utelämnas

Skapa en PowerPoint-presentation för investerare i cleantech-startups med praktisk bildstruktur, evidensfokuserat budskap, tillgänglig design och färre distraktioner.

Enkel mall för uppgiftsdelegeringsmatris för Word: En praktisk version för små teamchefer

Använd den här enkla mallen för uppgiftsdelegeringsmatris i Word för att tilldela ägare, beslutsgränser, deadlines och kontrollpunkter utan att komplicera ett litet team alltför mycket.

Mall för enkel närvarolista för dagis: Utskrivbar in- och utloggning för hemomsorg

Använd detta enkla utskrivbara närvaroblad för dagis för hemomsorg, med barnens namn, ankomst-/avgångstider, underskrifter och tips om efterlevnad.

Utskrivbar mall för marknadsföringsstrategi på en sida för lokala företag

Använd den här utskrivbara mallen för marknadsföringsstrategi på en sida för att definiera din lokala målgrupp, erbjudande, kanaler, budget, veckovisa åtgärder och mätbara mål.

Hur man stoppar Excel från att automatiskt ändra siffror till datum

Stoppa Excel från att konvertera värden som 1/2, 11-53 eller JAN1 till datum. Lär dig pålitliga lösningar för inmatning, inklistring, CSV-import och redan konverterade celler.

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.

Så åtgärdar du felet att Outlook inte kan skicka e-post men kan ta emot

Åtgärda Outlook när du kan ta emot e-post men inte skicka. Kontrollera Utkorg, offlineläge, inloggning, SMTP-inställningar, profiler och ändringar i Microsoft 365.

Enkel biweekly lönespårare i Excel för små team: En praktisk installationsguide

Bygg en enkel biweekly lönespårare i Excel för ett litet team, med timmar, lön, avdrag, granskningsflaggor, sammanfattningar och vägledning för dokumentation.

Utskrivbar checklista och budgetmall för evenemangsplanering för Word: Vad som ska inkluderas och när man ska använda Excel istället

Skapa eller anpassa en utskrivbar checklista och budgetmall för evenemangsplanering i Microsoft Word, med praktiska avsnitt, avvägningar och tips för Word kontra Excel.