Note: The other languages of the website are Google-translated. Back to English

Excel: Dacă culoarea fontului este roșu, returnați un anumit text sau efectuați alte operațiuni

Cum ați putea returna un anumit text dacă culoarea fontului este roșie într-o altă celulă, așa cum se arată mai jos? În acest articol, voi introduce câteva trucuri pentru efectuarea unor operațiuni bazate pe textul cu font roșu din Excel.


Dacă culoarea fontului este roșie, returnați textul specific într-o altă celulă

Pentru a returna un anumit text dacă culoarea fontului este roșie într-o altă celulă, procedați astfel:

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și inserați codul VBA de mai jos în fereastră.

Cod VBA: Dacă culoarea fontului este roșie, returnează text specific

Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
    Application.Volatile
    If Rng.Font.ColorIndex = 3 Then
    FontColorisRed = "Fail"
    Else
    FontColorisRed = "Pass"
    End If
End Function
notițe: În codul de mai sus, dacă culoarea fontului este roșie, returnați textul „Eșua”, dacă nu este roșu, returnați textul „Trece”. Puteți schimba cele două texte, după nevoia dvs.

3. Apoi, închideți fereastra de cod și introduceți această formulă: =FontColorISRed(B2), apoi trageți mânerul de umplere în jos pentru a obține celelalte rezultate, vedeți captura de ecran:


Dacă culoarea fontului este roșie, evidențiați celula

Dacă doriți să evidențiați celulele pe baza fontului roșu, procedați astfel:

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și inserați codul VBA de mai jos în fereastră.

Cod VBA: Dacă culoarea fontului este roșie, evidențiați celula

Function HighlightRedFont(pRg As Range) As Boolean
'Updateby ExtendOffice
Dim xRg As Range
Dim xBol As Boolean
xBol = False
    For Each xRg In pRg
        If xRg.Font.Color = vbRed Then
            xBol = True
        End If
    Next
  HighlightRedFont = xBol
End Function

3. Și apoi, închideți fereastra de cod, mergeți la clic Acasă > Formatarea condițională > Noua regulă, vezi captura de ecran:

4. În pop-out Noua regulă de formatare caseta de dialog, efectuați următoarele operații:

  • Clic Utilizați o formulă pentru a determina ce celule să formatați în Selectați un tip de regulă casetă listă;
  • Introduceți această formulă =font evidențiat(B2) în Formatează valorile în care această formulă este adevărată casetă de text;
  • Apoi apasa Format butonul.

5. În Celule de format caseta de dialog, sub Umple fila, alegeți o culoare pe care doriți să evidențiați celula, vedeți captura de ecran:

6. Apoi, faceți clic OK > OK pentru a închide casetele de dialog. Și acum, celulele cu font roșu sunt evidențiate simultan, vezi captura de ecran:


Dacă culoarea fontului este roșie, schimbați culoarea fontului

Uneori, poate doriți să schimbați fontul roșu într-o altă culoare de font, aici voi vorbi despre două metode pentru a-l realiza.

 Dacă culoarea fontului este roșie, atunci schimbați culoarea fontului cu funcția Găsiți și înlocuiți

Pentru a schimba culoarea roșie a fontului cu alta, funcția Găsiți și înlocuiți în Excel vă poate face o favoare, vă rugăm să urmați următorii pași:

1. Selectați intervalul de date pentru care doriți să schimbați culoarea fontului, apoi apăsați Ctrl + H tastele pentru a deschide Găsiți și înlocuiți căsuță de dialog. În dialogul deschis, faceți clic Opțiuni>> buton, vezi captura de ecran:

2. În caseta de dialog extinsă, efectuați următoarele operații:

  • Paraseste Gaseste ce și Înlocui cu cutii goale;
  • În partea dreaptă a Gaseste ce câmp, selectați Format > Alegeți Format din celulă, și faceți clic pe o celulă cu font roșu;
  • Apoi, pe partea dreaptă a Înlocui cu câmp, selectați Format > Format a merge la Înlocuiți formatul dialog.

3. În Înlocuiți formatul dialog, sub Font fila, alegeți o culoare pe care doriți să o modificați din Culori lista derulantă, vedeți capturile de ecran:

4. Apoi apasa OK pentru a închide Înlocuiți formatul dialog și acum, faceți clic Înlocuiește-le pe toate buton în Găsiți și înlocuiți caseta de dialog, toate celulele cu font roșu sunt înlocuite cu culoarea fontului specificată de dvs., vedeți captura de ecran:

notițe: Când alegeți format dintr-o celulă existentă, toate formatele celulelor vor fi preluate. În acest caz, la efectuarea înlocuirii, dacă un format nu se potrivește exact, celula nu va fi înlocuită.

 Dacă culoarea fontului este roșie, atunci schimbați culoarea fontului cu o caracteristică utilă

Dacă aveţi Kutools pentru Excel, Cu său Selectați celule cu format funcția, puteți selecta celulele cu font roșu și apoi modificați culoarea fontului în funcție de nevoile dvs. cât mai repede posibil.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Selectați intervalul de date pe care doriți să îl utilizați, apoi faceți clic Kutools > Selectați > Selectați celule cu format, vezi captura de ecran:

2. În Selectați celule cu format casetă de dialog, faceți clic pe Alegeți Format din celulă buton. Apoi, selectați o celulă cu font roșu, toate atributele acestei celule sunt afișate în caseta de mai jos. Dacă doriți să selectați toate celulele cu exact aceeași formatare a celulei de bază, vă rugăm să verificați toate opțiunile de atribut; Dacă doriți doar să selectați celulele cu font roșu, debifați toate celelalte atribute, cu excepția Culoare font Caseta de bifat. Vedeți captura de ecran:

3. Apoi apasa OK butonul și, în următoarea casetă de prompt, faceți clic Da, vezi captura de ecran:

4. Toate celulele cu font roșu sunt selectate simultan și apoi puteți specifica o culoare de font pentru a schimba fontul roșu după cum aveți nevoie. Vedeți captura de ecran:



  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
fila kte 201905
  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse în fiecare zi!
fundul officetab
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate