0

大家好，这里是新程序员 寻求帮助以获取一些我在论坛中似乎找不到的帮助。下面列出的程序非常适合设置自动过滤器以通过 DateCode = ActiveCell.Text 语句进行过滤

Dim DateCode
DateCode = ActiveCell.Text  'For this instant the active cell contains "T-09"

ActiveSheet.Range("$A$1:$T$10000").AutoFilter Field:=1, Criteria1:=DateCode

但是我希望基于相同的 DateCode / dim 语句创建一个 Dose Not Contain 过滤器？

下面的语句是简单宏记录器工具留下的足迹。该语句有效地将过滤器设置为 Dose Not Contain "DateCode"

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:= _
    "<>*DateCode*"

以下语句可以重写为以下内容，并且第一次可以完美运行。但是问题是每次执行脚本时我的日期代码都会更改。在我尝试反转 AF Criteria1 的逻辑之前，这不是问题：= 

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:= _
    "<>*T-09*"

任何帮助将不胜感激

4

1 回答 1

1

只需将变量插入 Criteria1 字符串：

ActiveSheet.Range("$A$1:$DH$10000").AutoFilter Field:=4, Criteria1:="<>*" & DateCode & "*"
于 2013-06-05T19:59:21.703 回答