Question

我正在尝试设置，感谢一个选项按钮，我在Excel中的数据过滤器？

我有一个到期日，我希望使用此过滤器排除所有过期的项目。

单元格A3使用Excel函数Today（）给我今天的日期。

我知道这是有效的：

Sub OptionButton6_Click()
  Rows("12:12").Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$12:$AK$175").AutoFilter Field:=7, Criteria1:= _
     ">12/09/2016" , Operator:=xlAnd
  Range("A1").Select
End Sub

我试过这个：

Sub OptionButton6_Click()
  Rows("12:12").Select
  Selection.AutoFilter
  ActiveSheet.Range("$A$12:$AK$175").AutoFilter Field:=7, Criteria1:= _
      A3, Operator:=xlAnd
  Range("A1").Select
End Sub

A3为：=CONCATENATE(">",TEXT(TODAY(),"dd/mm/yyyy"))

您对如何解决此问题有任何想法吗？

非常感谢， Trancavel

Answer 1

试试这个：

ActiveSheet.Range("$A$12:$AK$175").AutoFilter Field:=7, _
     Criteria1:= ">" & DateValue(Now()), Operator:=xlAnd

如何在VBA中自动更改过滤条件？

1 个答案: