После выполнения макроса Clock на экране в назначенное время (20 часов 55 минут) появится окно с сообщением Пора ужинать!!!. Следует учитывать, что для каждого последующего появления в назначенное время такого окна необходимо отдельно запускать макрос.

Поиск данных в диапазоне

Используя средства языка VBA, можно по-разному искать требуемые данные в указанном диапазоне. Рассмотрим несколько популярных способов поиска данных.

Поиск в диапазоне значения по шаблону

Предположим, возникла необходимость просмотреть большой отчет и заменить во всех его местах слово Доход словом Выручка, выделив при этом цветом ячейки, в которых выполнялась такая замена. Решить эту задачу нам поможет следующий макрос (листинг 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), который позволяет решить эту задачу.

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).

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)). С помощью подобных макросов можно обрабатывать любые диапазоны и находить в них любые значения.

Создание цветной границы диапазона