将它做成工作表自定函数并用于需要的单元格,当你筛选后自动更新。 参考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编辑过] |