超级表筛选问题

cdga110 · 发表于 2024-2-28 10:03

本帖最后由 cdga110 于 2024-2-28 10:58 编辑

用超级表标题的几个字段执行筛选后，想要用一条vba代码，直接取消所有筛选，将表数据恢复到筛选前状态，注意，是只把数据只恢复到筛选前，不是取消字段单元格的筛选箭头按钮。我试了好几个方法都只能取消区域状态下的筛选数据，没有支持超级表的，请大神指点，谢谢。

tanglf188 · 发表于 2024-2-28 10:05

If Sheet1.FilterMode = True Then Sheet1.ShowAllData '如果有列筛选则显示所有数据
If Sheet1.AutoFilterMode = True Then Sheet1.Range("A1").AutoFilter '如果有下拉箭头(选择了筛选功能)则取消下拉箭头

limonet · 发表于 2024-2-28 10:31

关键字：field:=

limonet · 发表于 2024-2-28 10:32

Sub limonet()
Dim i%
For i = 1 To 4
ActiveSheet.ListObjects("表3").Range.AutoFilter Field:=i
Next i
End Sub

taller · 发表于 2024-2-28 10:35

本帖最后由 taller 于 2024-2-28 10:40 编辑

szdcp · 发表于 2024-2-28 10:53

Range("A1").Select
ActiveSheet.ShowAllData

cdga110 · 发表于 2024-2-28 11:00

@limonet ,@taller 非常感谢两位老师指点，问题已解决，谢谢

cdga110 · 发表于 2024-2-28 11:30

@szdcp 非常感谢

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

[已解决] 超级表筛选问题

评分

评分

评分

评分