Question

我使用此VBA在我的数据库中查找输入单词。如果我输入不在数据库中的单词，它将显示disboard“运行时错误'13'”...当我输入新单词时帮我解雇它

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。一般来说，我不是这个结构的粉丝（因为错误应该被处理而不是被忽略），但是单语句sub是一个合理的用例。如果遇到错误，则sub将无效，这是您想要的。另一方面，你可以做类似的事情：

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

Excel运行时错误'13'

1 个答案: