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

Question

Мне нужно вызвать (вернуть) событие ошибки из функции VBA, после чего вызывающая функция этой функции может вызвать при ошибке Перейти к вызову. * 1001 например *

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

Спасибо

Answer 1

Err.Raise 5, «необязательный источник ошибок», «необязательное описание ошибки»

ссылка MSDN http://msdn.microsoft.com/en-us/library/aa164019%28office.10%29.aspx#odc_tentipsvba_topic3

Answer 2

Грязный путь: 1 / 0

Answer 3

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

Test = CVErr(xlErrNA)

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