Ga naar hoofdinhoud

Excel: als de letterkleur rood is, retourneer dan een specifieke tekst of voer andere bewerkingen uit

Hoe zou je een specifieke tekst kunnen retourneren als de letterkleur rood is in een andere cel, zoals hieronder afgebeeld? In dit artikel zal ik enkele trucs introduceren voor het uitvoeren van sommige bewerkingen op basis van de rode lettertypetekst in Excel.


Als de letterkleur rood is, retourneer dan specifieke tekst in een andere cel

Ga als volgt te werk om een ​​specifieke tekst terug te geven als de letterkleur rood is in een andere cel:

1. pers Alt + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. Dan klikken Invoegen > Module, kopieer en plak de onderstaande VBA-code in het venster.

VBA-code: als de letterkleur rood is, retourneer dan specifieke tekst

Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
    Application.Volatile
    If Rng.Font.ColorIndex = 3 Then
    FontColorisRed = "Fail"
    Else
    FontColorisRed = "Pass"
    End If
End Function
Note: In de bovenstaande code, als de letterkleur rood is, retourneer dan de tekst "Mislukken”, indien niet rood, retourneer de tekst “Passeren”. U kunt de twee teksten, in uw behoefte veranderen.

3. Sluit vervolgens het codevenster en voer deze formule in: =LettertypekleurISRood(B2)en sleep vervolgens de vulgreep naar beneden om de andere resultaten te krijgen, zie screenshot:


Als de letterkleur rood is, markeer dan de cel

Als u de cellen wilt markeren op basis van het rode lettertype, gaat u als volgt te werk:

1. pers Alt + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. Dan klikken Invoegen > Module, kopieer en plak de onderstaande VBA-code in het venster.

VBA-code: als de letterkleur rood is, markeer dan de cel

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. En sluit dan het codevenster, ga naar klik Home > Conditionele opmaak > Nieuwe regel, zie screenshot:

4. In de pop-out Nieuwe opmaakregel dialoogvenster voert u de volgende bewerkingen uit:

  • Klik Gebruik een formule om te bepalen welke cellen moeten worden opgemaakt in de Selecteer een regeltype keuzelijst;
  • Voer deze formule in =gemarkeerdrood lettertype(B2) in de Formatteer waarden waar deze formule waar is tekstvak;
  • Dan klikken Formaat knop.

5. In de Cellen opmaken dialoogvenster onder het Vulling tab, kies een kleur waarin u de cel wilt markeren, zie screenshot:

6. En klik dan OK > OK om de dialoogvensters te sluiten. En nu worden de cellen met rood lettertype in één keer gemarkeerd, zie screenshot:


Als de letterkleur rood is, verander dan de letterkleur

Soms wil je misschien het rode lettertype in een andere letterkleur veranderen, hier zal ik het hebben over twee methoden om dit te bereiken.

 Als de letterkleur rood is, wijzig dan de letterkleur met de functie Zoeken en vervangen

Als u de rode letterkleur wilt wijzigen in een andere, kan de functie Zoeken en vervangen in Excel u een plezier doen, doe dit als volgt:

1. Selecteer het gegevensbereik waarvan u de letterkleur wilt wijzigen en druk vervolgens op Ctrl + H toetsen om de te openen Zoeken en vervangen dialoog venster. Klik in het geopende dialoogvenster op Opties>> knop, zie screenshot:

2. Voer in het uitgevouwen dialoogvenster de volgende bewerkingen uit:

  • Verlaat de Zoeken naar en Vervangen door dozen leeg;
  • Aan de rechterkant van de Zoeken naar veld, selecteer Formaat > Kies Opmaak vanuit cel, en klik op een cel met een rood lettertype;
  • Dan, aan de rechterkant van de Vervangen door veld, selecteer Formaat > Formaat naar de Vervang formaat dialoogvenster.

3. In de Vervang formaat dialoogvenster, onder het doopvont tabblad, kies een kleur die u wilt wijzigen uit de Kleur vervolgkeuzelijst, zie screenshots:

4. Dan klikken OK om de te sluiten Vervang formaat dialoogvenster, en klik nu op Alles vervangen knop in de Zoeken en vervangen dialoogvenster worden alle cellen met een rood lettertype vervangen door de lettertypekleur die u hebt opgegeven, zie screenshot:

Note: Wanneer u opmaak kiest uit een bestaande cel, worden alle opmaak van de cellen overgenomen. In dit geval, bij het uitvoeren van Vervangen, als een opmaak niet exact overeenkomt, wordt de cel niet vervangen.

 Als de letterkleur rood is, verander dan de letterkleur met een handige functie

Als je Kutools for Excel, Met Selecteer Cellen met indeling functie, kunt u de cellen met een rood lettertype selecteren en vervolgens de letterkleur zo snel mogelijk naar uw behoefte wijzigen.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het gegevensbereik dat u wilt gebruiken en klik vervolgens op Kutools > kies > Selecteer Cellen met indeling, zie screenshot:

2. In de Selecteer Cellen met indeling dialoogvenster, klik Kies Opmaak vanuit cel knop. En selecteer vervolgens een cel met een rood lettertype, alle attributen van deze cel worden weergegeven in de onderstaande keuzelijst. Als u alle cellen wilt selecteren met exact dezelfde opmaak als de basiscel, vink dan alle attribuutopties aan; Als u alleen de cellen met alleen een rood lettertype wilt selecteren, schakelt u alle andere kenmerken uit, behalve de font Color selectievakje. Zie screenshot:

3. Dan klikken OK en klik in het volgende promptvenster op Ja, zie screenshot:

4. Alle cellen met een rood lettertype worden in één keer geselecteerd en vervolgens kunt u een letterkleur opgeven om het rode lettertype naar behoefte te wijzigen. Zie screenshot:


  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen en het bewaren van gegevens; Gespleten cellen inhoud; Combineer dubbele rijen en som / gemiddelde... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Favoriete formules en snel invoegen, Bereiken, grafieken en afbeeldingen; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Draaitabel groeperen op weeknummer, dag van de week en meer ... Toon ontgrendelde, vergrendelde cellen door verschillende kleuren; Markeer cellen met formule / naam...
kte tabblad 201905
  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
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