Метод Range.FindPrevious (Excel)

Статья
04/07/2023

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