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
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
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 Domů > 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:
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:
Nejlepší kancelářské nástroje produktivity
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
- 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...
- 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 snižuje stovky kliknutí myší každý den!
