Question

希望这是一个简单的修复程序，但是我对此还太陌生，不知道要在函数中查找什么。我基本上是为正在进行的工作制作一个自动过滤器功能，并且一切正常，除非我开始单击我制作的“清除过滤器”功能块。

我想包含此功能，因此可以单击“过滤器1”，“过滤器2”，然后单击快速的“清除过滤器”以使情况恢复正常。如果在单击“清除过滤器”之前没有单击“过滤器1”或“过滤器2”，它将进入调试模式。有办法解决吗？

Sub Filter1()
  Dim LastRow As Long

  LastRow = Range("C1").CurrentRegion.Rows.Count
  Range("A1:H" & LastRow).Select
  Selection.AutoFilter Field:=3, Criteria1:="VariableX"

End Sub

Sub Clear()

  Selection.AutoFilter

End Sub

在此先感谢您的帮助！

Answer 1

在“过滤器1”或“过滤器2”之后没有出现错误，是因为模块选择了一个范围。

Sub Clear（）

“在进行选择之前必须先选择

范围（“ A1”）。选择

选择。自动过滤

结束子

VBA过滤器功能-防止点击错误

1 个答案: