Аналог Find Next для поиска по всему документу

@Alla_g · Регистрация: 22.07.2009

Author24 — интернет-сервис помощи студентам

Скажите пожалуйста: есть свойство или метод - аналог клавише Find Next у окна 'Найти'. Если просто найти (без replace), то как организовать, чтобы искало по всему документу (найти и заменить по всему документу - есть). Или надо делать обычный цикл?

26.07.2009, 10:39

В Help по Visual Basic надо поискать методы для обьекта Range Find (Поиск) или Replace (Замена). Можно воспользоваться Запись макроса и посмотреть код.

Вот примеры для Excel 2000

Visual Basic

'Поиск 1 по всему документу
Set oFind =Cells.Find(What:='1', After:=ActiveCell, LookIn:=xlFormulas, LookAt:= xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If oFind is Nothing Then 'не найден
Else 'найден
End IF
' Замена 1 на 2 по всему документу
Cells.Replace What:='1', Replacement:='2', LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

@Alla_g 0 / 0 / 0 Регистрация: 22.07.2009 Сообщений: 3
		1
	Аналог Find Next для поиска по всему документу 23.07.2009, 21:00. Показов 3550. Ответов 1 Метки нет (Все метки) Скажите пожалуйста: есть свойство или метод - аналог клавише Find Next у окна 'Найти'. Если просто найти (без replace), то как организовать, чтобы искало по всему документу (найти и заменить по всему документу - есть). Или надо делать обычный цикл? 0

	26.07.2009, 10:39

Опции темы