请老师帮我我修改这个宏

qish1888 · 发表于 2011-3-28 15:49

我有一个工作薄,有三个工作表,全部处于筛选中。写了一个宏，要这个宏解除筛选，但仍然处于筛选状。
Sub Re()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
ws.ShowAllData
Next
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub
运行的结查是：只有当前工作薄被解除。错在哪儿？请老师指正。

山风 · 发表于 2011-3-28 16:33

对自动筛选的操作必须是打开（激活）该工作表，才能有效

Sub Re()
Application.ScreenUpdating = False
Dim ws As Worksheet
For Each ws In Worksheets
Sheets(ws.Name).Select '激活工作表
Rows("2:2").Select
Selection.AutoFilter
Next
Sheets("表二").Select '返回表二
Application.ScreenUpdating = True
MsgBox "OK!"
End Sub

问题表.rar (253.93 KB, 下载次数: 18)

qish1888 · 发表于 2011-4-7 08:20

谢谢老师,给我解决大难题,

wqfzqgk · 发表于 2011-9-11 08:06

学习一下，了解是什么情况，原来这样

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

[2007] 请老师帮我我修改这个宏

谢谢老师,给我解决大难题,