Excel 런타임 오류 '13'

Question

이 VBA를 사용하여 데이터베이스에서 입력 단어를 조회합니다. 나는 데이터베이스에없는 단어를 입력하면 나는 새로운 단어

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Address = "$B$3" Then 
ActiveSheet.Hyperlinks.Add Anchor:=[C3], Address:="", SubAddress:= _ 
"EV!C" & Cells(3, 3) 
End If 
End Sub 

Answer 1

를 입력하고 때, 당신은 항상에서 On Error Resume Next을 추가 할 수 있습니다 ... "런타임 오류 '13'"disboard 보여 내가 그것을 기각 도움이 될 것입니다 서브의 맨. 일반적으로 나는이 구조의 팬이 아니기 때문에 (오류는 무시하지 말고 무시해야하기 때문에), 하나의 명령문 하위는 합리적인 유스 케이스이다. 오류가 발생하면 서브는 효과가 없으므로 원하는 것처럼 보입니다. 반면에 다음과 같이 할 수 있습니다.

Private Sub Worksheet_Change(ByVal Target As Range) 
    On Error GoTo err_handler 
    If Target.Address = "$B$3" Then 
     ActiveSheet.Hyperlinks.Add Anchor:=[C3], Address:="", SubAddress:= _ 
     "EV!C" & Cells(3, 3) 
    End If 
    Exit Sub 
err_handler: 
    MsgBox "Please enter a valid word." 
End Sub