急求：用vba如何实现取消隐藏数据及自动筛选数据

zhangxq530 · 发表于 2011-5-9 19:13

如何实现，点击按钮，使该工作簿中所有隐藏的数据和自动筛选的数据显示出来？？
请各位帮帮忙！！

liuxuwentiger · 发表于 2011-5-9 19:29

Selection.AutoFilter

zhangxq530 · 发表于 2011-5-10 10:20

自己来顶一下

lenghonghai · 发表于 2011-5-10 10:42

Sub 按钮1_单击()
Dim sh As Worksheet, rng As Range
For Each sh In Worksheets
Set rng = sh.Range("a1").CurrentRegion
rng.Rows.AutoFit
Next sh
End Sub

zhangxq530 · 发表于 2011-5-10 11:11

能否再说的详细点
Selection.AutoFilter好像是自动筛选的属性，那么取消隐藏的呢？

zhangxq530 · 发表于 2011-5-10 11:28

多谢啦，用你的代码可以实现取消隐藏的整行数据，但整列隐藏数据显示不出来，求解！！
我加上了 sh.UsedRange.AutoFilter 可实现取消自动筛选。

Sub 按钮1_单击()
Dim sh As Worksheet, rng As Range
For Each sh In Worksheets
Set rng = sh.Range("a1").CurrentRegion
rng.Rows.AutoFit
sh.UsedRange.AutoFilter
Next sh
End Sub

lenghonghai · 发表于 2011-5-10 11:29

原帖由 zhangxq530 于 2011-5-10 11:28 发表
多谢啦，用你的代码可以实现取消隐藏的整行数据，但整列隐藏数据显示不出来，求解！！
我加上了 sh.UsedRange.AutoFilter 可实现取消自动筛选。

Sub 按钮1_单击()
Dim sh As Worksheet, rng As Range
For Ea ...

Sub 按钮1_单击()
Dim sh As Worksheet, rng As Range
For Each sh In Worksheets
Set rng = sh.Range("a1").CurrentRegion
rng.Rows.AutoFit
rng.Columns.AutoFit
Next sh
End Sub

zhangxq530 · 发表于 2011-5-10 11:39

哈哈可以了上传附件给大家共享下！

sdg1345 · 发表于 2018-7-26 14:19

lenghonghai 发表于 2011-5-10 11:29
Sub 按钮1_单击()
Dim sh As Worksheet, rng As Range
For Each sh In Worksheets

谢谢大佬！！！前来收藏！！！

爱情多烦恼 · 发表于 2018-7-26 14:35

sdg1345 发表于 2018-7-26 14:19
谢谢大佬！！！前来收藏！！！

我觉得应该再来一个,取消隐藏sheets

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

[求助] 急求：用vba如何实现取消隐藏数据及自动筛选数据

试试

回复 2楼 liuxuwentiger 的帖子

回复 4楼 lenghonghai 的帖子

这样试试看

回复 7楼 lenghonghai 的帖子