How to highlight or change the format of a single word in an excel file
- Thread starter jinujk
- Start date
Solution
Caldrumr
Distinguished
- Jun 5, 2011
- 112
- 0
- 18,690
From the Home tab in Excel, under Styles, click Conditional Formatting. Select New Rule, and click on Format Only Unique or Duplicate Values. From the Format All menu, select Duplicate from the drop-down menu, and click Format to select formatting.
This will allow you to format duplicate values automatically.
If you want different formatting for specific cells, click Format Only Cells that Contain, and select formatting for your choice of results.
I hope that helps.
This will allow you to format duplicate values automatically.
If you want different formatting for specific cells, click Format Only Cells that Contain, and select formatting for your choice of results.
I hope that helps.
- Mar 16, 2013
- 171,456
- 17,916
- 184,590
Found this. Have not tried it, so don't know if it actually works.
http://windowssecrets.com/forums/showthread.php/146908-Highlighting-one-word-in-a-cell
Sub HighlightStrings()
Application.ScreenUpdating = False
Dim Rng As Range, StrFnd As String, StrTmp As String, i As Long, j As Long, x As Long
StrFnd = InputBox("What is the string to highlight", "Highlighter")
x = Len(StrFnd)
For Each Rng In Selection
With Rng
j = UBound(Split(Rng.Value, StrFnd))
If j > 0 Then
StrTmp = ""
For i = 0 To j - 1
StrTmp = StrTmp & Split(Rng.Value, StrFnd)(i)
.Characters(Start:=Len(StrTmp) + 1, Length:=x).Font.ColorIndex = 3
StrTmp = StrTmp & StrFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = False
Dim Rng As Range, StrFnd As String, StrTmp As String, i As Long, j As Long, x As Long
StrFnd = InputBox("What is the string to highlight", "Highlighter")
x = Len(StrFnd)
For Each Rng In Selection
With Rng
j = UBound(Split(Rng.Value, StrFnd))
If j > 0 Then
StrTmp = ""
For i = 0 To j - 1
StrTmp = StrTmp & Split(Rng.Value, StrFnd)(i)
.Characters(Start:=Len(StrTmp) + 1, Length:=x).Font.ColorIndex = 3
StrTmp = StrTmp & StrFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
TRENDING THREADS
-
News Windows 11 will reportedly display a watermark if your PC does not support AI requirements- Started by Admin
- Replies: 20
-
-
-
Discussion What's your favourite video game you've been playing?- Started by amdfangirl
- Replies: 3K
Facebook
Twitter
Instagram