Поиск данных в диапазоне
Используя средства языка VBA, можно по-разному искать требуемые данные в указанном диапазоне. Рассмотрим несколько популярных способов поиска данных.
Поиск в диапазоне значения по шаблону
Предположим, возникла необходимость просмотреть большой отчет и заменить во всех его местах слово Доход словом Выручка, выделив при этом цветом ячейки, в которых выполнялась такая замена. Решить эту задачу нам поможет следующий макрос (листинг 2.28).
Листинг 2.28. Поиск и замена по шаблону
Sub ReplaceCellsData()
Dim cell As Range
' Просмотр всех ячеек диапазона G1:K20 и замена искомого
текста
For Each cell In [G1:K20]
If cell.Value Like «*Доход*» Then
cell.Value = «Выручка»
cell.Interior.Color = RGB(255, 255, 0)
Else
cell.Interior.Color = RGB(255, 255, 255)
End If
Next
End Sub
После выполнения данного макроса слово Доход, встречающееся в диапазоне G1:K20, заменяется словом Выручка, а соответствующие ячейки выделяются желтым цветом. Вся остальная часть диапазона заливается белым цветом (при этом содержимое всех ячеек по-прежнему отображается, а сетка исчезает).
Поиск значения с выводом результата
Можно настроить параметры поиска требуемого значения таким образом, что его результат будет выведен в отдельном информационном окне. Вот пример макроса (листинг 2.29), который позволяет решить эту задачу.
Листинг 2.29. Поиск значения с отображением результата в отдельном окне
Sub Search()
Dim rgResult As Range
' Поиск заданного значения в диапазоне B1:B20 и вывод результата
Set rgResult = Range(«B1:B20»).Find(9999, , xlValues)
If rgResult Is Nothing Then
MsgBox «Поиск не дал результатов»
Else
MsgBox rgResult.Address
End If
End Sub
С помощью данного макроса обрабатывается диапазон В1:В20, в котором ведется поиск значения 9 99 9. При обнаружении данного значения появляется окно с указанием адреса соответствующей ячейки. Если же указанное значение не обнаружено, то в данном окне отображается сообщение Поиск не дал результатов.
Поиск с выделением найденных данных
Достаточно удобным является вид поиска, в котором используется выделение найденных ячеек. Применение данного способа весьма целесообразно при работе с большими объемами данных. Для настройки поиска можно использовать, например, такой макрос (листинг 2.30).
Листинг 2.30. Выделение найденных данных
Sub FindAndSelect()
Dim strStartAddr As String ' Хранит координаты первого найденного _ значения
Dim rgResult As Range
' Поиск первого входжения искомого слова
Set rgResult = Range(«B1:B10»).Find(«Прибыль», , xlValues)
If Not rgResult Is Nothing Then
' Сохраним адрес найденной ячейки (чтобы контролировать _
зацикливание поиска)
strStartAddr = rgResult.Address
End If
Do While Not rgResult Is Nothing
' Обработка результата поиска
rgResult.Interior.Color = RGB(255, 255, 0)
' Новый поиск
Set rgResult = Range(«B1:B10»).FindNext(rgResult)
If rgResult.Address = strStartAddr Then
' Поиск завершен
Exit Do
End If
Loop
End Sub
Этот макрос обрабатывает диапазон В1:В10 и ищет в нем значение Прибыль. Все ячейки, в которых обнаружено данное значение, будут выделены желтым цветом (строка rgResult. Interior. Color = RGB (255, 255, 0)). С помощью подобных макросов можно обрабатывать любые диапазоны и находить в них любые значения.