| Вопрос: Поиск значения в цикле: Run-time error 91 | Добавлено: 05.08.04 08:41 |
Автор вопроса:  Sage
|
|
В цикле Do Loop ищется ячейка с заданным содержимым
Do ... ... Cells.Find(What:=Stcr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _False).Activate ... Loop ставил инструкцию On Error GoTo ErrorHandle: как в тело цикла, так и перед ним - результат - если значение на листе отсутствует, то в первый раз переходит к метеке ErrorHandle, когда возникает ситуация снова, выдает ошибку (см Subj) |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: tea84 Вопросов: 4 Ответов: 8 |
Профиль | | #1 | Добавлено: 05.08.04 11:34 |
|
попробуй так:
dim r as range set r=sheet.Cells.Find(What:=Stcr, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _False) do while (not (r is nothing)) ..... set r=sheet.Cells.FindNext(r) ..... loop |
||
Страница: 1 |