VBA Error Handler No13 Type mismatch

vba함수의 변수에 잘못된 Type으로 입력하면 발생하는 에러는 Error No.13입니다.

원하지 않는 값을 입력하면 무시할 수도 있습니다. 하지만 숫자 계산항목에서는 잘못된 값이 들어가 있음에도 인지를 못할 때가 있기 때문에 주의해야 합니다.

이럴 때를 위해 Err No.13 (Type Mismatch) 은 따로 처리하는 것이 좋으며 관련 예제는 다음과 같습니다.

Public Function PropertyTP(ByVal output As String, ByVal Name1 As String)
    On Error GoTo ErrorHandler
    Dim Property_temp As Double
 
    Property_temp = brProP_private(output, Name1)
    
    If Abs(Property_temp) > 1E+30 Then
        'Return error message
        PropertyTP = get_error_message()
    Else
        PropertyTP = Property_temp
    End If
    Exit Function
    
	ErrorHandler:
	' 잘못된 문구가 들어오면 에러발생
    If Err = 13 Then
     Exit Function
    End If
    
    MsgBox "The most recent error number is " & Err & ". Its message text is: " & Error(Err)
    Exit Function
End Function