Метод Range.FindPrevious (Excel)
Продолжает поиск, начатый с помощью метода Find . Находит предыдущую ячейку, соответствующую тем же условиям, и возвращает объект Range , представляющий ячейку. Не влияет на выделение или активную ячейку.
Синтаксис
expression. FindPrevious (Before)
выражение: переменная, представляющая объект Range.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Before | Необязательный | Variant | Ячейка, перед которой требуется выполнить поиск. Соответствует положению активной ячейки, когда поиск выполняется из пользовательского интерфейса. Обратите внимание, что параметр Before должен быть одной ячейкой в диапазоне. Помните, что поиск начинается перед этой ячейкой; В указанной ячейке не выполняется поиск до тех пор, пока метод не завернется обратно в эту ячейку. Если этот аргумент не указан, поиск начинается перед левой верхней ячейкой диапазона. |
Возвращаемое значение
Диапазон
Замечания
Когда поиск достигает начала указанного диапазона поиска, он обертывается до конца диапазона. Чтобы остановить поиск при этом возврате, сохраните адрес первой найденной ячейки, а затем проверьте адрес каждой последующей найденной ячейки, сравнив его с этим сохраненным адресом.
Пример
В этом примере показано, как метод FindPrevious используется с методами Find и FindNext . Перед выполнением этого примера убедитесь, что лист Sheet1 содержит по крайней мере два вхождения слова Phoenix в столбце B.
Sub FindTest()
Dim fc As Range
Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
MsgBox "The first occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
MsgBox "The next occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
MsgBox "The previous occurrence is in cell " & fc.Address
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.