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