自动筛选相关知识点

爱疯

'筛选：打开、关闭
'筛选打开时：显示所有数据、过滤
'**************************************************************************************
'Worksheet.AutoFilterMode 属性：筛选打开时返回 True
Sub test1()
    If Sheets("Sheet1").AutoFilterMode Then
        Sheets("Sheet1").AutoFilterMode = False    '筛选关闭(不能将其设置为 True)
    End If
End Sub
'**************************************************************************************
'Worksheet.FilterMode 属性：筛选过滤时返回True
'Worksheet.ShowAllData 方法：显示筛选列表所有行，筛选关闭时执行将出错
Sub test2()
    If Sheets("Sheet1").FilterMode Then
        Sheets("Sheet1").ShowAllData    '显示所有数据
    End If
End Sub
'**************************************************************************************
'Worksheet.AutoFilter 属性：如果筛选已打开，则返回一个 AutoFilter 对象。只读。
'Range.AutoFilter 方法：切换筛选状态
Sub test3()
    If Not Sheets("Sheet1").AutoFilter Is Nothing Then
        Range("A1").AutoFilter    '切换，即转为筛选关闭
    End If
End Sub
'**************************************************************************************
'http://www.excelpx.com/thread-105869-1-1.html
Sub test4()    '只切换：打开或关闭
    On Error Resume Next
    ActiveSheet.AutoFilter.Range.AutoFilter
End Sub
'**************************************************************************************
Sub test5()    '隐藏筛选字段的自动筛选下拉箭头。
    Range("a1:d8").AutoFilter field:=2, Criteria1:=">59", VisibleDropDown:=False
End Sub


附件.rar (9.31 KB, 下载次数: 51)

2013-2-28 13:03 上传

点击文件名下载附件

hwc2ycy

再来个代码筛选指定数据的。

yingguangtanzhe

看不懂啊…………楼主大大，能给指点下不…………俺正想学excel筛选功能呢…………谢谢了…………

爱疯

hwc2ycy 发表于 2013-2-28 13:09
再来个代码筛选指定数据的。

谢谢hwc2ycy

这里我做的，只是给相关知识点举例，好理解。
不知“指定筛选数据”是怎样的情况，能给个例子么

爱疯

yingguangtanzhe 发表于 2013-2-28 13:28
看不懂啊…………楼主大大，能给指点下不…………俺正想学excel筛选功能呢…………谢谢了…………

不知你说的不懂是怎样的情况？能比如一下吗

yingguangtanzhe

爱疯 发表于 2013-2-28 16:04
不知你说的不懂是怎样的情况？能比如一下吗

算鸟，VBA一点基础也没有…………还是去学点初级鸟……

苗凱

Range("a1:d8").AutoFilter field:=2 是什麽意思啊

爱疯

苗凱 发表于 2013-12-31 15:42
Range("a1:d8").AutoFilter field:=2 是什麽意思啊

名称 必选/可选 数据类型 说明
Field 可选 Variant 相对于作为筛选基准字段（从列表左侧开始，最左侧的字段为第一个字段）的字段的整型偏移量。


field:=2的2表示筛选区域的第2列，即B列。
个人没发觉这个参数的好处。只是碰到有时要隐藏某些筛选下拉箭头，才用test5。

苗凱

爱疯 发表于 2013-12-31 17:05
名称 必选/可选 数据类型 说明
Field 可选 Variant 相对于作为筛选基准字段（从列表左侧开始，最左侧的 ...

谢谢，学习了