[讨论]如何扑捉自动筛选的动作？

fcy

'显示筛选名称的函数20041030 Function FilterCriteria(Rng As Range) As String Application.Volatile Dim Filter As String Filter = "" On Error GoTo Finish With Rng.Parent.AutoFilter If Intersect(Rng, .Range) Is Nothing Then GoTo Finish With .Filters(Rng.Column - .Range.Column + 1) If Not .On Then GoTo Finish Filter = Mid(.Criteria1, 2) Select Case .Operator Case xlAnd Filter = Filter & " 和 " & Mid(.Criteria2, 2) Case xlOr Filter = Filter & " 或 " & Mid(.Criteria2, 2) End Select End With End With Finish: FilterCriteria = Filter End Function

以上是修改后的程序，去掉了显示条件前面的“＝”号。

[此贴子已经被作者于2004-10-31 15:37:59编辑过]

asdf1001

11楼是在单元格中去掉自动筛选的 逻辑符号 ,

如果两个条件都是用来筛选"=" 的时候,可能看起来比较清爽,(估计是其用意所在)

如果是通过自定义筛选,万万不可使用,否则">="就 成了"=",造成误解

fcy

以下是引用asdf1001在2004-10-31 16:41:00的发言：

11楼是在单元格中去掉自动筛选的 逻辑符号 ,

如果两个条件都是用来筛选"=" 的时候,可能看起来比较清爽,(估计是其用意所在)

如果是通过自定义筛选,万万不可使用,否则">="就 成了"=",造成误解

楼上说得在理，以下又进行了修改，可以满足不同的需要。

'显示筛选名称的函数20041101 Function FilterCriteria(Rng As Range) As String Application.Volatile Dim Filter As String Filter = "" On Error GoTo Finish With Rng.Parent.AutoFilter If Intersect(Rng, .Range) Is Nothing Then GoTo Finish With .Filters(Rng.Column - .Range.Column + 1) If Not .On Then GoTo Finish Filter = .Criteria1 Select Case .Operator Case xlAnd Filter = Filter & " 和 " & .Criteria2 Case xlOr Filter = Filter & " 或 " & .Criteria2 End Select '当不进行自定义筛选时去掉条件前的"＝"号 If .Operator <> xlAnd And .Operator <> xlOr Then Filter = Mid(.Criteria1, 2) End With End With Finish: FilterCriteria = Filter End Function

fcy

以下是引用fcy在2004-10-30 10:55:00的发言：

如何扑捉自动筛选的动作？

当进行筛选操作时，能不能通过vba扑捉当前是否进行了筛选操作，并做出相应反应，触发相应事件。

现在可以解决这个问题了：在表中任意插入一个公式，选用Worksheet_Calculate()重新计算事件即可实现该功能。以下宏根据实际需要可进行修改：

Private Sub Worksheet_Calculate() Application.EnableEvents = False '加上此语句非常重要 Dim i As Integer If Not Sheets("Sheet1").AutoFilterMode Then Cells(2, 4).Value = "职务：" Exit Sub End If '填充筛选条件 With Sheets("Sheet1").AutoFilter 'For i = 1 To 4 ' If .Filters(i).On Then Cells(1, i).Value = "*" & .Filters(i).Criteria1 'Next If .Filters(2).On Then fit = .Filters(2).Criteria1 Cells(2, 6).Value = Mid(fit, 2) Else Cells(2, 6).Value = "" End If End With Application.EnableEvents = True '加上此语句非常重要

End Sub '20041031调试成功

以上宏适用于直接筛选，不适用于自定义筛选！

[em17][em17][em17][em17][em17][em25][em25][em23]

[此贴子已经被作者于2004-11-2 8:16:24编辑过]

垂拱平章

请问：在 With Rng.Parent.AutoFiler 中的 Parent 是起什么作用的。这一句是说：“读取所有单元格的筛选器。”可咱一直没弄明白。请那位高手给于指教。
我是初学者，问题如果幼稚请不要笑咱。

nbqmdzlcdint

努力加油学习中

wqfzqgk

不错，仔细研究一下