Cum se setează culoarea fontului text Excel cu VBA?

Cum se setează culoarea fontului text Excel cu VBA?

În acest tutorial vom învăța cum să folosim Visual Basic pentru aplicații (VBA) pentru a modifica dimensiunea și stilul textului într-o celulă Excel pe baza conținutului celulei. Acest tutorial se aplică pentru Excel 365, 2021, 2019 și 2016.

Preliminarii

Dacă sunteți nou în dezvoltarea Excel VBA, vă voi recomanda ca, înainte de a parcurge tutorialul, să vă uitați la primul nostru macro Excel VBA.

Înainte de a începe codarea, ar trebui să activați fila de dezvoltator pe Excel în Panglică, deoarece altfel nu veți putea accesa Editorul Visual Basic.

Modificați proprietățile textului celulei Excel cu VBA

Definiți foaia de calcul

Vom începe prin a defini o foaie de calcul Excel pe care o vom folosi ca exemplu. Simțiți-vă liber să îl utilizați pentru a urma acest tutorial.

  • Deschideți Microsoft Excel și creați un nou registru de lucru Excel activat cu macrocomenzi ( .xlsm ) numit Excel_Macros.xlsm
  • Salvați foaia de calcul pe unitatea locală.
  • În foaia de lucru Sheet1 , continuați și adăugați tabelul de mai jos:

Cum se setează culoarea fontului text Excel cu VBA?

  • Acum, din Panglică, apăsați Formule .
  • Apoi apăsați Definire nume .
  • Definiți un interval numit pe care veți aplica codul VBA așa cum se arată mai jos și apăsați OK .

Cum se setează culoarea fontului text Excel cu VBA?

Utilizați proprietatea Cell.Font VBA pentru a schimba culoarea și stilul fontului

  • Treceți la fila Dezvoltator .
  • Apoi mergeți mai departe și apăsați butonul Visual Basic .
  • În partea stângă Project Explorer , evidențiați proiectul Excel_Macros.xlsm , apoi apăsați Insert și alegeți Module .
  • Va fi creat un nou modul VBA numit Module1 .
  • Continuați și inserați următorul cod în modulul nou creat:
Sub Color_Cell_Text_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Completion_Status")

'loop through all cells in the range
For Each MyCell In StatusRange

StatValue = MyCell.Value

'modify the cell text values as needed.
Select Case StatValue

    'green
    Case "Progressing"
    With MyCell.Font
        .Color = RGB(0, 255, 0)
        .Size = 14
        .Bold = True
     End With

    'orange
    Case "Pending Feedback"
    With MyCell.Font
        .Color = RGB(255, 141, 0)
        .Size = 14
        .Bold = True
    End With
    
    'red
    Case "Stuck"
    With MyCell.Font
        .Color = RGB(255, 0, 0)
        .Size = 14
        .Bold = True
    End With

End Select

Next MyCell

End Sub
  • Apăsați butonul Salvare din editorul dvs. Visual Basic.
  • Acum apăsați Run și apoi alegeți Run Sub/UserForm (sau pur și simplu apăsați F5).
  • Treceți la foaia de lucru Sheet1 și observați modificările. Intrărilor dvs. din tabel li s-au atribuit mai multe coduri de culoare în funcție de textul lor (folosind funcția de culoare RGB) și, de asemenea, am setat textul să fie aldine și să-i mărim dimensiunea.

Cum se setează culoarea fontului text Excel cu VBA?

  • Dacă nu ați salvat codul, apăsați butonul Salvare (sau Ctrl+S), apoi salvați și registrul de lucru.

Accesați macrocomanda VBA

  • Rețineți că codul dvs. este întotdeauna disponibil pentru a fi executat din comanda Macro-uri situată în fila Vizualizare (sau alternativ în Dezvoltator | Macro-uri)

Cum se setează culoarea fontului text Excel cu VBA?

Bonus: stil celular

Excel oferă posibilitatea de a crea „Stiluri” pentru celule. Stilurile pot fi găsite în Panglica Acasă > Stiluri:

stiluri de font excel vba

Stilurile vă permit să salvați formatarea dorită a celulelor. Apoi atribuiți acel stil unei celule noi și toată formatarea celulei este aplicată instantaneu. Inclusiv dimensiunea fontului, culoarea celulei, starea protecției celulelor și orice altceva disponibil din meniul Formatare celule:

meniul formatare celule excel

Personal, pentru multe dintre modelele la care lucrez, de obicei creez un stil de celulă „Intrare”:

Interval("a1").Stil = "Intrare"

Folosind stiluri, puteți identifica cu ușurință tipurile de celule în foaia de lucru. Exemplul de mai jos va trece prin toate celulele din foaia de lucru și va schimba orice celulă cu Style = „Input” în „InputLocked”:

Dim Cell ca interval

Pentru fiecare celulă din ActiveSheet.Cells

Dacă Cell.Style = "Input" apoi Cell.Style = "InputLocked"

Încheiați dacă

Celula următoare


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...