Cum să setați culoarea unei celule Excel în funcție de o condiție cu VBA?

Ultima actualizare: august 2021; Microsoft Excel 365, 2019, 2016.

În tutorialul de automatizare VBA pentru Excel de astăzi, vom afla despre cum putem schimba în mod programatic culoarea unei celule în funcție de valoarea celulei.

Putem folosi această tehnică atunci când dezvoltăm un tablou de bord simplu de stare, de exemplu.

Înființat

Dacă nu dezvoltați încă pe Excel, vă recomandăm să consultați ghidul nostru introductiv pentru Macro-urile Excel . Mai exact, trebuie să vă asigurați că fila Dezvoltator este disponibilă în Panglica Microsoft Excel, deoarece o veți folosi pentru a scrie un cod simplu.

  • Deschideți Microsoft Excel. Rețineți că codul furnizat în acest tutorial este de așteptat să funcționeze în Excel 2007 și ulterior.
  • Într-o foaie de lucru goală, adăugați următorul tabel:

Cum să setați culoarea unei celule Excel în funcție de o condiție cu VBA?

  • Acum mergeți mai departe și definiți un interval numit apăsând: Formule>>Definiți nume

Cum să setați culoarea unei celule Excel în funcție de o condiție cu VBA?

  • Apăsați OK

Schimbarea culorii interioare a celulei în funcție de valoare cu Cell.Interior.Color

  • Apăsați intrarea pentru Dezvoltator din Panglică.
  • Apăsați pe Visual Basic sau Alt+F11 pentru a deschide editorul VBA de dezvoltator.
  • Apoi evidențiați Foaia de lucru în care doriți să rulați codul. Alternativ, selectați un modul care are codul dvs. VBA.
  • Continuați și inserați acest cod. În exemplul nostru, vom modifica culoarea interioară a unei game de celule la anumite valori RGB ale celulei corespunzătoare culorilor roșu, galben și verde.
  • Mai exact, folosim metoda Excel VBA Cell.Interior.Color și trecem valoarea RGB corespunzătoare sau indicele de culoare.
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
  • Rulați codul - fie apăsând pe F5, fie Run>> Run Sub / UserForm.
  • Veți observa că tabloul de bord de stare a fost completat după cum se arată mai jos:

Cum să setați culoarea unei celule Excel în funcție de o condiție cu VBA?

  • Salvați codul și închideți editorul VBA.

Leave a Comment

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

Luptă cu eroarea Blue Screen of Death (BSOD) în Windows 10. Obțineți remedieri de depanare pentru a rezolva această eroare cu ușurință.

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Dacă doriți să creați etichete în aplicația Gmail, acest ghid vă oferă soluția. Aflati cum sa faceti acest lucru atât pe telefon, cât și pe desktop.

Cum să adăugați chenar la o pagină în Microsoft Word

Cum să adăugați chenar la o pagină în Microsoft Word

Îmbunătățiți-vă documentele cu un chenar de pagină personalizat în Word. Află cum să adăugați și să personalizezi chenarul.

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Dacă Xbox-ul dvs. nu se va conecta la Wi-Fi, urmăriți soluțiile furnizate în acest articol pentru a vă conecta Xbox și a continua să jucați.

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

Dacă PS4 se oprește de la sine, urmați soluțiile noastre eficiente pentru a remedia problema rapid și ușor.

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Aflați cele mai bune soluții pentru a remedia eroarea „microfonul este dezactivat de setările sistemului” pe Google Meet, Zoom și Hangouts.

Cum să scrieți fracții în Google Docs

Cum să scrieți fracții în Google Docs

Descoperiți modalitățile simple și eficiente de a scrie fracții în Google Docs folosind caractere speciale și echivalente automate.

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

Remedierea eroarei Google ReCaptcha „Eroare pentru proprietarul site-ului: tip cheie invalid” prin soluții eficiente și actualizate.

Cum să calibrați culoarea monitorului în Windows 10

Cum să calibrați culoarea monitorului în Windows 10

Setările de calibrare a culorilor încorporate în Windows 10 vă ajută să îmbunătățiți acuratețea culorii monitoarelor dvs. Acest ghid detaliat vă arată cum să găsiți și să configurați aceste setări.

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la rețeaua PlayStation a eșuat atunci când vă conectați la PS4, apoi urmați remedieri precum actualizarea software-ului sistemului PSN, modificarea setărilor DNS...