Основы офисного программирования и язык 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

Пример 10.6.

Закрыть окно






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



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