Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Продолжает поиск, начатый методом Найти . Находит предыдущую ячейку, удовлетворяющую тем же условиям, и возвращает объект Range , представляющий эту ячейку. Не влияет на выделенный фрагмент или текущую ячейку.
Синтаксис
выражение. НайтиПредыдущее (до)
выражение: переменная, представляющая объект Range.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Before | Необязательный | Variant | Ячейка, в которой нужно выполнить поиск. Соответствует положению активной ячейки, когда поиск выполняется из пользовательского интерфейса. Обратите внимание, что Before должна быть одна ячейка в диапазоне. Помните, что поиск начинается до этой ячейки; Поиск в указанной ячейке не будет выполнен до тех пор, пока метод не вернется к этой ячейке. Если этот аргумент не указан, поиск начинается перед верхней левой ячейкой диапазона. |
Возвращаемое значение
Диапазон
Примечания
Когда поиск достигает начала указанного диапазона поиска, он оборачивается до конца диапазона. Чтобы остановить поиск при этом возврате, сохраните адрес первой найденной ячейки, а затем проверьте адрес каждой последующей найденной ячейки, сравнив его с этим сохраненным адресом.
Пример
В этом примере показано, как метод FindPrevious используется с методами Find и FindNext . Прежде чем запускать этот пример, убедитесь, что лист Лист1 содержит по крайней мере два вхождения слова "Феникс" в столбце 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 и обратная связь.