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

Excel: Pokud je barva písma červená, vraťte konkrétní text nebo proveďte jiné operace

Jak byste mohli vrátit konkrétní text, pokud je barva písma v jiné buňce červená, jak je znázorněno na obrázku níže? V tomto článku představím několik triků, jak provádět některé operace založené na textu červeného písma v Excelu.


Pokud je barva písma červená, vraťte konkrétní text do jiné buňky

Chcete-li vrátit konkrétní text, pokud je barva písma v jiné buňce červená, postupujte takto:

1. lis Alt + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. Potom klepněte na tlačítko Vložit > Modul, zkopírujte a vložte níže uvedený kód VBA do okna.

Kód VBA: Pokud je barva písma červená, vraťte konkrétní text

Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
    Application.Volatile
    If Rng.Font.ColorIndex = 3 Then
    FontColorisRed = "Fail"
    Else
    FontColorisRed = "Pass"
    End If
End Function
Poznámka: Pokud je ve výše uvedeném kódu barva písma červená, vraťte text „Selhat“, pokud není červená, vraťte text „Přejít“. Tyto dva texty můžete změnit podle potřeby.

3. Poté zavřete okno kódu a zadejte tento vzorec: =FontColorISRed(B2)a poté přetáhněte úchyt výplně dolů, abyste získali další výsledky, viz snímek obrazovky:


Pokud je barva písma červená, zvýrazněte buňku

Pokud chcete zvýraznit buňky podle červeného písma, postupujte takto:

1. lis Alt + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. Potom klepněte na tlačítko Vložit > Modul, zkopírujte a vložte níže uvedený kód VBA do okna.

Kód VBA: Pokud je barva písma červená, zvýrazněte buňku

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. A pak zavřete okno s kódem a klikněte na Home > Podmíněné formátování > Nové pravidlo, viz screenshot:

4. Ve vyskočené Nové pravidlo pro formátování dialogové okno, proveďte následující operace:

  • klikněte Pomocí vzorce určete, které buňky chcete formátovat v Vyberte typ pravidla seznam;
  • Zadejte tento vzorec =highlightredfont(B2) do Formátovat hodnoty, kde je tento vzorec pravdivý Textové pole;
  • Potom klepněte na tlačítko Formát .

5. V Formát buněk v dialogovém okně pod Vyplnit vyberte jednu barvu, kterou chcete zvýraznit buňku, viz snímek obrazovky:

6. A pak klikněte OK > OK zavřete dialogová okna. A nyní jsou buňky s červeným písmem zvýrazněny najednou, viz snímek obrazovky:


Pokud je barva písma červená, změňte barvu písma

Někdy možná budete chtít změnit červené písmo na jinou barvu písma, zde budu mluvit o dvou způsobech, jak toho dosáhnout.

 Pokud je barva písma červená, změňte barvu písma pomocí funkce Najít a nahradit

Chcete-li změnit červenou barvu písma na jinou, může vám pomoci funkce Najít a nahradit v Excelu, proveďte prosím následující kroky:

1. Vyberte rozsah dat, u kterého chcete změnit barvu písma, a stiskněte Ctrl + H klávesy pro otevření Najít a nahradit dialogové okno. V otevřeném dialogu klikněte na Možnosti >> tlačítko, viz screenshot:

2. V rozbaleném dialogovém okně proveďte následující operace:

  • Opustit Najít to, co a Nahradit krabice prázdné;
  • Na pravé straně Najít to, co pole, vyberte Formát > Vyberte Formát z buňkya klikněte na buňku s červeným písmem;
  • Poté na pravé straně Nahradit pole, vyberte Formát > Formát přejděte na Nahradit formát dialog.

3. V Nahradit formát dialogové okno pod Písmo vyberte jednu barvu, kterou chcete změnit Barva rozevírací seznam, viz snímky obrazovky:

4. Potom klepněte na tlačítko OK zavřít Nahradit formát dialogové okno a nyní klepněte na Nahradit vše tlačítko v Najít a nahradit V dialogovém okně jsou všechny buňky s červeným písmem nahrazeny vámi zadanou barvou písma, viz snímek obrazovky:

Poznámka: Když vyberete formát z existující buňky, převezmou se všechny formáty buněk. V tomto případě při provádění funkce Nahradit, pokud se formát přesně neshoduje, buňka nebude nahrazena.

 Pokud je barva písma červená, změňte barvu písma pomocí užitečné funkce

Pokud máte Kutools pro Excel, S jeho Vyberte buňky s formátem můžete vybrat buňky červeným písmem a poté co nejrychleji změnit barvu písma podle svých potřeb.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Vyberte rozsah dat, který chcete použít, a potom klepněte na Kutools > vybrat > Vyberte buňky s formátem, viz screenshot:

2. V Vyberte buňky s formátem , klepněte na tlačítko OK Vyberte Formát z buňky knoflík. A pak vyberte buňku s červeným písmem, všechny atributy této buňky se zobrazí v seznamu níže. Pokud chcete vybrat všechny buňky s přesně stejným formátováním jako základní buňka, zaškrtněte všechny možnosti atributů; Pokud chcete pouze vybrat buňky pouze s červeným písmem, zrušte zaškrtnutí všech ostatních atributů kromě atributu Barva písma zaškrtávací políčko. Viz snímek obrazovky:

3. Potom klepněte na tlačítko OK a v následujícím poli výzvy klepněte na Ano, viz screenshot:

4. Všechny buňky s červeným písmem jsou vybrány najednou a poté můžete určit barvu písma a změnit červené písmo podle potřeby. Viz snímek obrazovky:



  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...
karta kte 201905
  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění