Hvordan farves eller fremhæves bestemt ord i celler i Excel?

Hvis en celle indeholder flere ord, hvordan kan du kun fremhæve et bestemt ord i denne celle? Og hvad med at fremhæve dette bestemte ord i flere celler? Denne artikel vil give en metode til at opnå det.

Farve bestemt ord i en enkelt celle / flere celler med VBA-kode

Farve bestemt ord i en enkelt celle / flere celler med VBA-kode

Følgende VBA-kode kan hjælpe dig med at fremhæve det bestemte ord i et valg. Gør som følger.

1. Vælg området, der indeholder de celler, du vil fremhæve et bestemt ord indeni. Tryk derefter på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. I åbningen Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter VBA-kode i kodevinduet.

VBA-kode: Farve bestemt ord i celler i Excel

Sub HighlightStrings()
    Dim xHStr As String, xStrTmp As String
    Dim xHStrLen As Long, xCount As Long, I As Long
    Dim xCell As Range
    Dim xArr
    On Error Resume Next
    xHStr = Application.InputBox("What is the string to highlight：", "KuTools For Excel", , , , , , 2)
    If TypeName(xHStr) <> "String" Then Exit Sub
    Application.ScreenUpdating = False
        xHStrLen = Len(xHStr)
        For Each xCell In Selection
            xArr = Split(xCell.Value, xHStr)
            xCount = UBound(xArr)
            If xCount > 0 Then
                xStrTmp = ""
                For I = 0 To xCount - 1
                    xStrTmp = xStrTmp & xArr(I)
                    xCell.Characters(Len(xStrTmp) + 1, xHStrLen).Font.ColorIndex = 3
                    xStrTmp = xStrTmp & xHStr
                Next
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. Tryk på F5 nøgle for at køre koden. Og i Kutools til Excel dialogboks, skal du indtaste det bestemte ord, du vil fremhæve i celler, og klik derefter på OK knap. Se skærmbillede:

Derefter kan du se alle de ord, du har angivet, er farvet med rødt i valgte celler med det samme som vist nedenstående skærmbillede.

Relaterede artikler:

• Hvordan fremhæves celle, hvis der findes værdi i eller svarer til celle i en anden kolonne i Excel?
• Hvordan sammenlignes to strenge for lighed eller fremhæver forskelle i Excel?
• Hvordan laver man arknavns navn til celleværdi i Excel?
• Hvordan ændres værdi baseret på cellefarve i Excel?
• Hvordan ændres cellefarve, når der klikkes på eller vælges celle i Excel?

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...