Основы офисного программирования и язык VBA


Пример 10.6


Sub Testfunc1()

Dim res As Variant, arg As Variant

arg = 12

res = Func1(arg)

If IsError(res) Then 'проверка ошибочности результата

Debug.Print "Ошибка #: ", res, "аргумент : ", arg

Else

Debug.Print "Результат : ", res

End If

arg = "двенадцать"

res = Func1(arg)

If IsError(res) Then 'проверка ошибочности результата

Debug.Print "Ошибка #: ", res, "аргумент : ", arg

Else

Debug.Print "Результат : ", res

End If

End Sub




Начало  Назад  Вперед



Книжный магазин