Excel VBA 从表中清除过滤器并抑制任何错误

Question

我是个新手，刚接触 Excel 和 VBA 等，请轻松一点。

我有一个大型数据库，其中包含表格形式的用户个人资料详细信息。我遇到的问题是我有一个命令按钮来清除应用于表的过滤器，我通过记录它获得了所需的宏，但是如果没有应用过滤器，我会遇到以下错误：

运行时错误“1004”：

工作表类的ShowAllData方法失败

我知道为什么我会收到错误，这只是因为没有应用过滤器，因此它会抛出此错误，我想要的是完全忽略此错误。

这是我的命令按钮代码：

Private Sub CommandButton25_Click()
ClearFilters2 Macro
Range("Table24[#Headers]").Select
ActiveSheet.ShowAllData
       
End Sub

任何抑制运行时错误的帮助将不胜感激，我可以要求提供更正的代码吗？

谢谢，

京东

Answer 1

您可以使用

On Error Resume Next

。

您应该确保在代码中的合适位置重新打开错误处理

On Error GoTo 0

。

您还可以创建一个标签，并告诉代码在发生错误时转到该标签

On Error GoTo <label>

。

请参阅 Chip Pearson 的文章，了解有关错误处理的更多信息。