Hoppa till huvudinnehåll

Excel: Om teckensnittsfärgen är röd, returnera en specifik text eller gör andra operationer

Hur skulle du kunna returnera en specifik text om teckensnittsfärgen är röd i en annan cell enligt skärmbilden nedan? I den här artikeln kommer jag att introducera några knep för att göra vissa operationer baserat på den röda teckensnittstexten i Excel.


Om teckensnittsfärgen är röd returnerar du specifik text i en annan cell

För att returnera en specifik text om teckensnittsfärgen är röd i en annan cell, gör så här:

1. Tryck Alt + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulerna, kopiera och klistra in nedanstående VBA-kod i fönstret.

VBA-kod: Om teckensnittsfärgen är röd, returnera specifik 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
Anmärkningar: I ovanstående kod, om teckensnittsfärgen är röd, returnera texten "Underkänd", om inte rött, returnera texten "Pass”. Du kan ändra de två texterna efter dina behov.

3. Stäng sedan kodfönstret och ange denna formel: =TeckensnittsfärgISRöd(B2), och dra sedan fyllningshandtaget nedåt för att få de andra resultaten, se skärmdump:


Om teckensnittsfärgen är röd markerar du cellen

Om du vill markera cellerna baserat på det röda teckensnittet, gör så här:

1. Tryck Alt + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulerna, kopiera och klistra in nedanstående VBA-kod i fönstret.

VBA-kod: Om teckensnittsfärgen är röd, markera cellen

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. Och stäng sedan kodfönstret, gå till klicka Hem > Villkorlig formatering > Ny regel, se skärmdump:

4. I poppade ut Ny formateringsregel dialogrutan, gör följande:

  • Klicka Använd en formel för att bestämma vilka celler som ska formateras i Välj en regeltyp listruta;
  • Ange denna formel =highlightredfont(B2) i Formatera värden där denna formel är sann textruta;
  • Klicka sedan bildad knapp.

5. I Formatera celler under dialogrutan Fyll fliken, välj en färg du vill markera cellen, se skärmdump:

6. Och klicka sedan på OK > OK för att stänga dialogrutorna. Och nu är cellerna med rött teckensnitt markerade på en gång, se skärmdump:


Om teckensnittsfärgen är röd ändrar du teckensnittsfärgen

Ibland kanske du vill ändra det röda teckensnittet till en annan teckensnittsfärg, här kommer jag att prata om två metoder för att uppnå det.

 Om teckensnittsfärgen är röd ändrar du teckensnittsfärgen med funktionen Sök och ersätt

För att ändra den röda teckensnittsfärgen till en annan kan funktionen Sök och ersätt i Excel göra dig en tjänst, vänligen gör med följande steg:

1. Välj det dataintervall som du vill ändra teckensnittsfärgen på och tryck sedan på Ctrl + H nycklar för att öppna Sök och ersätt dialog ruta. Klicka på i den öppna dialogrutan Alternativ >> knapp, se skärmdump:

2. Gör följande i den utökade dialogrutan:

  • Lämna Hitta det och Ersätt med lådor tomma;
  • På höger sida av Hitta det fält, välj bildad > Välj Format från cell, och klicka på en cell med rött teckensnitt;
  • Sedan, på höger sida av Ersätt med fält, välj bildad > bildad för att gå till Ersätt format dialog.

3. I Ersätt format under dialogrutan Font fliken väljer du en färg som du vill ändra från Färg rullgardinslista, se skärmdumpar:

4. Klicka sedan OK att stänga Ersätt format dialogrutan och klicka nu Ersätt alla knapp i Sök och ersätt dialogrutan, alla celler med rött teckensnitt ersätts med teckensnittsfärgen du angav, se skärmdump:

Anmärkningar: När du väljer format från en befintlig cell, kommer alla format av cellerna att plockas upp. I det här fallet, när du utför Ersätt, om ett format inte matchar exakt, kommer cellen inte att ersättas.

 Om teckensnittsfärgen är röd ändrar du teckensnittsfärgen med en användbar funktion

Om du har Kutools för Excel, med dess Välj celler med format funktionen kan du välja cellerna med rött teckensnitt och sedan ändra teckensnittsfärgen efter dina behov så snabbt som möjligt.

När du har installerat Kutools för Excel, gör så här:

1. Välj det dataintervall som du vill använda och klicka sedan Kutools > Välja > Välj celler med format, se skärmdump:

2. I Välj celler med format dialogrutan, klicka Välj Format från cell knapp. Och välj sedan en cell med rött teckensnitt, alla attribut för denna cell visas i listrutan nedan. Om du vill markera alla celler med exakt samma formatering av bascellen, markera alla attributalternativ; Om du bara vill markera cellerna med endast rött teckensnitt, avmarkera alla andra attribut utom font Color kryssruta. Se skärmdump:

3. Klicka sedan OK och klicka i följande uppmaningsruta Ja, se skärmdump:

4. Alla celler med rött teckensnitt markeras på en gång, och sedan kan du ange en teckensnittsfärg för att ändra det röda teckensnittet efter behov. Se skärmdump:


  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
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