Добрый день! Прошу помочь с доработкой макроса
Необходимо выделить слова внутри ячейки. А список этих слов находится в диапазоне ячеек.
В арховной теме
нашел то что мне подходит но здесь можно выделить только 1 слово или значение из одной ячейки.
вместо sSearchString = Range("B18") хотелось бы sSearchString = Range("B18:B30")
Надеюсь понятно задал вопрос.
Заранее спасибо
Необходимо выделить слова внутри ячейки. А список этих слов находится в диапазоне ячеек.
В арховной теме
нашел то что мне подходит но здесь можно выделить только 1 слово или значение из одной ячейки.
| Код |
|---|
Option Explicit
Option Compare Text
Sub ColorCells()
Dim iStart As Integer
Dim rng As Range, cell As Range, sSearchString As String
Set rng = Selection
sSearchString = Range("B18")
For Each cell In rng
If cell Like "*" & sSearchString & "*" Then
iStart = InStr(cell.Value, sSearchString)
With cell.Characters(Start:=iStart, Length:=Len(sSearchString)).Font
.Bold = True
.Color = RGB(0, 0, 255)
End With
End If
Next
End Sub |
Надеюсь понятно задал вопрос.
Заранее спасибо
