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

fcy

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

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

fcy

请看示例：

KdvwU4tj.rar (11.44 KB, 下载次数: 326)

2004-10-30 11:33 上传

点击文件名下载附件

[此贴子已经被作者于2004-10-30 11:32:01编辑过]

shangyu

将它做成工作表自定函数并用于需要的单元格，当你筛选后自动更新。

参考j-walk的自定函数：

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
        End With
    End With
Finish:
    FilterCriteria = Filter
End Function

[此贴子已经被taller于2007-8-2 12:21:47编辑过]

cofe2000

以下是引用shangyu在2004-10-30 14:26:00的发言：

将它做成工作表自定函数并用于需要的单元格，当你筛选后自动更新。

参考j-walk的自定函数：

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 End With End With Finish: FilterCriteria = Filter End Function

意外收获，谢谢

fcy

以下是引用shangyu在2004-10-30 14:26:00的发言：

将它做成工作表自定函数并用于需要的单元格，当你筛选后自动更新。

参考j-walk的自定函数：

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 End With End With Finish: FilterCriteria = Filter End Function

请问如何使用此自定义函数？Rng　变量指什么？

shangyu

将这段代码放入模块中；

在你工作表的单元格（如B1）输入=FilterCriteria(B2)，其中B2是筛选字段的单元格；

当你在B2筛选不同内容时，B1反映你筛选的内容。

wuaza

为什么出现＃name?

我在sheet1中插入子过程：

Sub a() Call FilterCriteria(Range("c3")) End Sub 倒未出现错误。请问参数到底应该怎么输入？

见附件，我把函数输入在A1单元格。 pnx0rjyz.rar (13.02 KB, 下载次数: 56)

2004-10-30 16:45 上传

点击文件名下载附件

[此贴子已经被作者于2004-10-30 16:43:04编辑过]

shangyu

以下是引用wuaza在2004-10-30 16:40:00的发言：

为什么出现＃name?

不是放入工作表模块、放入普通模块中： jQOaHouB.rar (13.7 KB, 下载次数: 264)

2004-10-30 16:54 上传

点击文件名下载附件
[讨论]如何扑捉自动筛选的动作？

zz5151353

犯了同7楼楼主错误,原来是这问题. 3楼 shangyu 版主这一招解的好,实用,刚好也遇到这样困扰,终于在这里得到解答,谢谢版主.

fcy

真是高手，谢谢了。