Как в VBA выглядит команда обработки ошибок при невозможности выполнить макрокоманду?

22.07.2008, 08:48. **Показов** 2251. **Ответов** 2

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

Нижеприведенная функция ведет поиск номера на листе EXCEL:

Visual Basic

        Worksheets('1').Columns('B:B').Select
        
        Dim VarResult As Variant
        VarResult = txtNumber.Value
    
    Selection.Find(What:=VarResult, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Activate

Проблема в следующем:
При благополучном нахождении номера, управление переходит к следующей инструкции, но при отсутствии номера выходит сообщение об ошибке и выполнение инструкций останавливается. Как этого избежать?
Заранее благодарен.

22.07.2008, 11:52

См. справку по Find Method
Нужно делать так

Visual Basic

Set oFind = Selection.Find(What:=VarResult, After:=ActiveCell, LookIn:=xlValues, LookAt :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= False)
 
If oFind Is Nothing  Then 'не найден
 
Else ' найден
 
End If

22.07.2008, 15:40

Есть два оператора VB для обаботки ошибок.
On Error Resume Next
On Error Goto <metka>
Если их нет, то выполнение останавливается с окошком сообщения. Если есть, никакого окошка не появляется, выполнение продолжается дальше, однако это (ошибочное состояние) надо учитывать.

Vita
	22.07.2008, 15:40	3
	Есть два оператора VB для обаботки ошибок. On Error Resume Next On Error Goto <metka> Если их нет, то выполнение останавливается с окошком сообщения. Если есть, никакого окошка не появляется, выполнение продолжается дальше, однако это (ошибочное состояние) надо учитывать.