Excel: Als de letterkleur rood is, geef dan een specifieke tekst terug of voer andere bewerkingen uit
Hoe kun je een specifieke tekst teruggeven als de letterkleur in een andere cel rood is, zoals te zien is in onderstaande schermafbeelding? In dit artikel laat ik enkele handige methoden zien om bewerkingen uit te voeren op basis van rode letterkleur in Excel.
Als de letterkleur rood is, geef dan een specifieke tekst terug in een andere cel
Om een specifieke tekst terug te geven als de letterkleur in een andere cel rood is, doe je het volgende:
1. Druk gelijktijdig op Alt+ F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik vervolgens op Invoegen > Module, kopieer en plak onderstaande VBA-code in het venster.
VBA-code: Als de letterkleur rood is, geef dan een specifieke tekst terug
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. Sluit daarna het codevenster en voer deze formule in: =FontColorISRed(B2), sleep vervolgens de vulgreep naar beneden om de overige resultaten te krijgen, zie schermafbeelding:
Ontdek de Magie van Excel met Kutools AI
- Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
- Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
- VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules gemakkelijk.
- Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.
Als de letterkleur rood is, markeer dan de cel
Als je cellen wilt markeren op basis van rode letterkleur, doe dan het volgende:
1. Druk gelijktijdig op Alt+ F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik vervolgens op Invoegen > Module, kopieer en plak 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. Sluit daarna het codevenster, ga naar Start > Voorwaardelijke opmaak gebruiken > Nieuwe regel, zie schermafbeelding:
4. Voer in het verschenen dialoogvenster Nieuwe opmaakregel de volgende stappen uit:
- Klik op Een formule gebruiken om te bepalen welke cellen moeten worden opgemaakt in de lijst Selecteer een regeltype;
- Voer deze formule =highlightredfont(B2) in het tekstvak Waarden opmaken waar deze formule waar is in;
- Klik vervolgens op de knop Opmaak.
5. Kies in het dialoogvenster Celopmaak instellen, onder het tabblad Opvulling, een kleur waarmee je de cel wilt markeren, zie schermafbeelding:
6. Klik vervolgens op OK > OK om de dialoogvensters te sluiten. Nu zijn de cellen met rode letterkleur direct gemarkeerd, zie schermafbeelding:
Als de letterkleur rood is, wijzig dan de letterkleur
Soms wil je misschien de rode letterkleur wijzigen naar een andere kleur. Hier bespreek ik twee methoden om dit te bereiken.
Als de letterkleur rood is, wijzig dan de letterkleur met de functie Zoeken en Vervangen
Om de rode letterkleur te wijzigen naar een andere kleur, kun je gebruikmaken van de functie Zoeken en Vervangen in Excel. Volg hiervoor deze stappen:
1. Selecteer het gegevensbereik waarvan je de letterkleur wilt wijzigen en druk vervolgens op Ctrl + H om het dialoogvenster Zoeken en Vervangen te openen. Klik in het geopende venster op de knop Opties>>, zie schermafbeelding:
2. Voer in het uitgebreide dialoogvenster de volgende handelingen uit:
- Laat de vakken Zoeken naar en Vervangen door leeg;
- Aan de rechterkant van het veld Zoeken naar, selecteer Opmaak > Selecteer formaat vanaf cel en klik op een cel met rode letterkleur;
- Klik vervolgens aan de rechterkant van het veld Vervangen door op Opmaak > Opmaak om naar het dialoogvenster Vervangopmaak te gaan.
3. Kies in het dialoogvenster Vervangopmaak, onder het tabblad Lettertype, een kleur uit de vervolgkeuzelijst Kleur die je wilt gebruiken, zie schermafbeeldingen:
4. Klik vervolgens op OK om het dialoogvenster Vervangopmaak te sluiten en klik daarna op de knop Alles vervangen in het dialoogvenster Zoeken en Vervangen. Alle cellen met rode letterkleur worden nu vervangen door de door jou opgegeven kleur, zie schermafbeelding:
Als de letterkleur rood is, wijzig dan de letterkleur met een handige functie
Als je Kutools voor Excel hebt, kun je met de functie Selecteer cellen met een vergelijkbaar formaat de cellen met rode letterkleur selecteren en vervolgens de letterkleur snel aanpassen naar wens.
Na het installeren van Kutools voor Excel, doe je het volgende:
1. Selecteer het gegevensbereik dat je wilt gebruiken en klik vervolgens op Kutools > Selecteren > Selecteer cellen met een vergelijkbaar formaat, zie schermafbeelding:
2. Klik in het dialoogvenster Selecteer cellen met een vergelijkbaar formaat op de knop Selecteer formaat vanaf cel. Selecteer vervolgens een cel met rode letterkleur; alle eigenschappen van deze cel worden weergegeven in de onderstaande lijst. Wil je alle cellen selecteren met exact dezelfde opmaak als de basiscell, vink dan alle attribuutopties aan. Wil je alleen de cellen met rode letterkleur selecteren, vink dan alleen het selectievakje Kleur aan en de rest uit. Zie schermafbeelding:
3. Klik vervolgens op de knop OK en klik in het volgende promptvenster op Ja, zie schermafbeelding:
4. Alle cellen met rode letterkleur zijn nu geselecteerd. Je kunt nu een andere letterkleur instellen om de rode kleur te wijzigen. Zie schermafbeelding:
De Beste Office Productiviteitstools
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%
- Super Formulebalk (bewerk eenvoudig meerdere regels tekst en formules); Leeslayout (lees en bewerk eenvoudig grote aantallen cellen); Plakken in gefilterd bereik...
- Cellen/Rijen/Kolommen samenvoegen en gegevens behouden; Celinhoud splitsen; Dubbele rijen combineren en optellen/gemiddelde berekenen... Voorkom dubbele cellen; Bereiken vergelijken...
- Selecteer dubbele of unieke rijen; Selecteer lege rijen (alle cellen zijn leeg); Super Zoeken en Fuzzy Zoeken in veel werkboeken; Willekeurige selectie...
- Exacte kopie van meerdere cellen zonder formuleverwijzing te wijzigen; Automatisch verwijzingen naar meerdere werkbladen maken; Opsommingstekens, selectievakjes en meer invoegen...
- Favoriete en snel formules, bereiken, grafieken en afbeeldingen invoegen; Cellen versleutelen met wachtwoord; Mailinglijst maken en e-mails versturen...
- Tekst extraheren, Tekst toevoegen, Verwijder tekens op een specifieke positie, Spaties verwijderen; Maak en print statistieken per pagina; Converteer tussen celinhoud en opmerkingen...
- Superfilter (filter schema's opslaan en toepassen op andere werkbladen); Geavanceerd sorteren op maand/week/dag, frequentie en meer; Speciaal filteren op vet, cursief...
- Werkboeken en werkbladen combineren; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere werkbladen; Batchconversie xls, xlsx en PDF...
- Draaitabelgroepering op weeknummer, dag van de week en meer... Toon ontgrendelde, vergrendelde cellen met verschillende kleuren; Markeer cellen die een formule/naam bevatten...
- Schakel tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project in.
- 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!
