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

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 z miško!
dno pisarniške mize
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije