Помогите пожалуйста разобраться с макросом, очень нужен мне на работе.
У меня есть макрос:
Этот макрос ищет по столбцу А с 1 по 10000 строку, слово "слон" и выделяет ячейку цветом. Я бы хотела его доработать так, чтобы макрос искал не одно слово "слон", а искал еще несколько слов, и закрашивал ячейку разным цветом, к примеру: "слон" закрашивал красным, "белку" закрашивал зеленым, "шмеля" закрашивал серым.
Пожалуйста помогите!
У меня есть макрос:
| Код |
|---|
Sub FindAndSelect()
Dim strStartAddr As String ' Хранит координаты первого найденного _
значения
Dim rgResult As Range
' Поиск первого входжения искомого слова
Set rgResult = Range("A1:A10000").Find("слон", , xlValues)
If Not rgResult Is Nothing Then
' Сохраним адрес найденной ячейки (чтобы контролировать _
зацикливание поиска)
strStartAddr = rgResult.Address
End If
Do While Not rgResult Is Nothing
' Обработка результата поиска
rgResult.Interior.Color = RGB(135, 206, 235)
' Новый поиск
Set rgResult = Range("A1:A10000").FindNext(rgResult)
If rgResult.Address = strStartAddr Then
' Поиск завершен
Exit Do
End If
Loop
MsgBox ("Поиск завершен!")
End Sub
|
Этот макрос ищет по столбцу А с 1 по 10000 строку, слово "слон" и выделяет ячейку цветом. Я бы хотела его доработать так, чтобы макрос искал не одно слово "слон", а искал еще несколько слов, и закрашивал ячейку разным цветом, к примеру: "слон" закрашивал красным, "белку" закрашивал зеленым, "шмеля" закрашивал серым.
Пожалуйста помогите!
Изменено: - 09.05.2013 18:49:39
