Preskoči na glavno vsebino

Excel: če je barva pisave rdeča, vrnite določeno besedilo ali izvedite druge operacije

Kako lahko vrnete določeno besedilo, če je barva pisave rdeča v drugi celici, kot je prikazano na spodnjem posnetku zaslona? V tem članku bom predstavil nekaj trikov za izvajanje nekaterih operacij na podlagi besedila rdeče pisave v Excelu.


Če je barva pisave rdeča, vrnite določeno besedilo v drugo celico

Če želite vrniti določeno besedilo, če je barva pisave v drugi celici rdeča, naredite naslednje:

1. Pritisnite Alt + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo VBA v okno.

Koda VBA: Če je barva pisave rdeča, vrne določeno besedilo

Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
    Application.Volatile
    If Rng.Font.ColorIndex = 3 Then
    FontColorisRed = "Fail"
    Else
    FontColorisRed = "Pass"
    End If
End Function
Opombe: Če je barva pisave v zgornji kodi rdeča, vrnite besedilo "Fail«, če ni rdeče, vrni besedilo »Pass”. Obe besedili lahko spremenite po svojih potrebah.

3. Nato zaprite okno s kodo in vnesite to formulo: =FontColorISRed(B2)in nato povlecite ročico za polnjenje navzdol, da dobite druge rezultate, glejte posnetek zaslona:


Če je barva pisave rdeča, označite celico

Če želite poudariti celice z rdečo pisavo, naredite naslednje:

1. Pritisnite Alt + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo VBA v okno.

Koda VBA: Če je barva pisave rdeča, označite celico

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. In nato zaprite okno kode, pojdite na klik HOME > Pogojno oblikovanje > Novo pravilo, glej posnetek zaslona:

4. V izskočil Novo pravilo oblikovanja v pogovornem oknu izvedite naslednje postopke:

  • klik S formulo določite, katere celice želite formatirati v Izberite vrsto pravila polje s seznamom;
  • Vnesite to formulo =označenardečapisava(B2) v Oblikujte vrednosti, kjer je ta formula resnična besedilno polje;
  • Nato kliknite oblikovana gumb.

5. v Oblikuj celice v pogovornem oknu pod Izpolnite izberite eno barvo, s katero želite označiti celico, glejte posnetek zaslona:

6. In nato kliknite OK > OK da zaprete pogovorna okna. In zdaj so celice z rdečo pisavo označene naenkrat, glejte posnetek zaslona:


Če je barva pisave rdeča, spremenite barvo pisave

Včasih boste morda želeli spremeniti rdečo pisavo v drugo barvo pisave, tukaj bom govoril o dveh metodah, kako to doseči.

 Če je barva pisave rdeča, spremenite barvo pisave s funkcijo Najdi in zamenjaj

Če želite rdečo barvo pisave spremeniti v drugo, vam lahko funkcija Najdi in zamenjaj v Excelu naredi uslugo, naredite naslednje:

1. Izberite obseg podatkov, za katerega želite spremeniti barvo pisave, in nato pritisnite Ctrl + H tipke za odpiranje Poišči in zamenjaj pogovorno okno. V odprtem pogovornem oknu kliknite Možnosti>> gumb, glej posnetek zaslona:

2. V razširjenem pogovornem oknu izvedite naslednje operacije:

  • Pusti Našli kaj in Zamenjaj z prazne škatle;
  • Na desni strani Našli kaj polje, izberite oblikovana > Izberite Oblika iz celicein kliknite na celico z rdečo pisavo;
  • Nato na desni strani Zamenjaj z polje, izberite oblikovana > oblikovana Pojdite na Zamenjaj obliko dialog.

3. v Zamenjaj obliko pod pogovornim oknom Pisava izberite eno barvo, ki jo želite spremeniti Barva spustni seznam, glejte posnetke zaslona:

4. Nato kliknite OK zaprete Zamenjaj obliko in zdaj kliknite Zamenjaj vse gumb v Poišči in zamenjaj pogovornem oknu so vse celice z rdečo pisavo zamenjane z barvo pisave, ki ste jo določili, glejte sliko zaslona:

Opombe: Ko izberete obliko iz obstoječe celice, bodo izbrani vsi formati celic. V tem primeru pri izvajanju zamenjave, če se format ne ujema popolnoma, celica ne bo zamenjana.

 Če je barva pisave rdeča, spremenite barvo pisave z uporabno funkcijo

Če imate Kutools za Excel, Z njegovim Izberite Celice z obliko funkcijo, lahko izberete celice z rdečo pisavo in nato čim hitreje spremenite barvo pisave po svojih potrebah.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite obseg podatkov, ki ga želite uporabiti, in nato kliknite Kutools > Izberite > Izberite Celice z obliko, glej posnetek zaslona:

2. v Izberite Celice z obliko pogovorno okno, kliknite Izberite Oblika iz celice gumb. Nato izberite celico z rdečo pisavo, vsi atributi te celice so prikazani v spodnjem polju s seznamom. Če želite izbrati vse celice s popolnoma enakim oblikovanjem osnovne celice, označite vse možnosti atributov; Če želite samo izbrati celice z rdečo pisavo, počistite vse druge atribute razen font Color potrditveno polje. Oglejte si posnetek zaslona:

3. Nato kliknite OK in v naslednjem pozivnem polju kliknite Da, glej posnetek zaslona:

4. Vse celice z rdečo pisavo so izbrane hkrati, nato pa lahko določite barvo pisave, da spremenite rdečo pisavo, kot želite. Oglejte si posnetek zaslona:


  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce in vodenje podatkov; Vsebina razdeljenih celic; Združite podvojene vrstice in vsoto / povprečje... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Priljubljene in hitro vstavite formule, Obsegi, grafikoni in slike; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Razvrščanje vrtilne tabele po številka tedna, dan v tednu in še več ... Prikaži odklenjene, zaklenjene celice po različnih barvah; Označite celice s formulo / imenom...
zavihek kte 201905
  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations