根据Excel单元格设置过滤器值

时间:2014-11-14 14:28:31

标签: excel excel-vba spreadsheet vba

我正在尝试根据存储在几个单元格中的值设置过滤器值,而不是在我选择要过滤的字段下的向下箭头时出现的对话框中输入过滤器值。 这是介于功能之间的数字过滤器(自定义自动过滤器)

非常感谢任何帮助。

1 个答案:

答案 0 :(得分:0)

尝试这个(使用虚拟单元格,因为你没有发布任何细节):

Sub CustomNoFilterBetween()
With ActiveSheet
    LowerCrt = .Range("B2").Value
    UpperCrt = .Range("B3").Value

    .Range("$C$6:$C$16").AutoFilter Field:=1, Criteria1:=">=" & LowerCrt, _
    Operator:=xlAnd, Criteria2:="<=" & UpperCrt
End With
End Sub

enter image description here