Excel VBA搜索形状

Question

我希望有人可以指出这段代码出了什么问题。 我正在用它来搜索工作表上的形状。 我想在该形状不存在时触发一条消息。 使用下面的代码，当形状实际存在时，为什么将其转到错误处理程序？

Private Sub CommandButton1_Click()

On Error GoTo errHandler

Dim SearchFor
SearchFor = UCase(InputBox("Search: "))

ActiveSheet.Shapes.Range(Array(SearchFor)).Visible = True

errHandler:
MsgBox "No Reference Found For: " & SearchFor

End Sub

Answer 1

您总是去找错误处理程序，这就是原因。 我在到达之前添加了退出子：

 Private Sub CommandButton1_Click()

On Error GoTo errHandler

Dim SearchFor
SearchFor = UCase(InputBox("Search: "))

ActiveSheet.Shapes.Range(Array(SearchFor)).Visible = True
Exit sub
errHandler:
MsgBox "No Reference Found For: " & SearchFor

End Sub

找到形状后，它将永远不会到达Exit Sub之后的状态。 如果有错误，GoTo将绕过它。 如果您想阅读更多有关GoTo的信息，请访问： https : //msdn.microsoft.com/zh-cn/library/69whc95c.aspx