Возвращает значения ошибок из пользовательских функций

С помощью приведенного ниже примера функции вы можете заставить пользовательские функции возвращать значения ошибок, как это делают встроенные функции в Excel.

Function DummyFunctionWithErrorCheck(InputValue As Variant) As Variant
If InputValue < 0 Then ' return an error value
DummyFunctionWithErrorCheck = CVErr(xlErrNA) ' retunerer #I/T!
' xlErrDiv0, xlErrNA, xlErrName, xlErrNull, xlErrNum , xlErrRef, xlErrValue
Exit Function
End If
' do the calculation
DummyFunctionWithErrorCheck = InputValue * 2
End Function