Как вызвать ошибку из функции VBA

Мне нужно вызвать (вернуть) событие ошибки из функции VBA, тогда вызывающая функция этой функции может вызвать ошибку Go to call. Е. Г

function Test()
 On Error Go to myError:
       TestErr()
 Exit Function

 myerror:
    Test = "Error Triggered"
End Function

Function TestErr()
    ?? 'How to Trigger error here
End Function

Спасибо

8
excel vba

3 ответов

Err.Поднять 5, "необязательные ошибка источник" , "описание ошибки"

справочник MSDN http://msdn.microsoft.com/en-us/library/aa164019%28office.10%29.aspx#odc_tentipsvba_topic3

19

грязный способ: 1 / 0

8

Не то, что вы просили, но обратите внимание, что если вы хотите вернуть ошибку в ячейку из UDF, используйте CVErr. Как

Test = CVErr(xlErrNA)

для возврата #NA

3