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

zhangxq530

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

liuxuwentiger

Selection.AutoFilter

zhangxq530

自己来顶一下

lenghonghai

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

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

zhangxq530

多谢啦，用你的代码可以实现取消隐藏的整行数据，但整列隐藏数据显示不出来，求解！！
我加上了 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

原帖由 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

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

sdg1345

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

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

爱情多烦恼

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

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