如何记忆当前筛选状态. 供返回?

cgx5871 · 发表于 2018-6-6 19:41

我设置了一个按钮, --"取消筛选"
修改数据后, 如何达到另一个按钮点击---"返回上一个筛选状态"

smsn · 发表于 2018-6-6 19:48

应该不能返回，但是你可以把先前状态用代码记录下载。

smsn · 发表于 2018-6-6 19:49

给个参考
Sub Filterabc()
Ver = Val(Application.Version)
If ActiveSheet.AutoFilterMode = False Then
Endr = Range("C65536").End(xlUp).Row
ActiveSheet.Range("A2:AO" & Endr).AutoFilter field:=2, Criteria1:="abc"
Else: ActiveSheet.AutoFilterMode = False
End If
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何记忆当前筛选状态. 供返回?