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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
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!