Excel VBA 使用 DIM 值将自动筛选设置为“不包含”答案

【问题标题】：Excel VBA Set AutoFilter as "Dose Not Contain" Using DIM ValueExcel VBA 使用 DIM 值将自动筛选设置为“不包含”
【发布时间】：2013-06-06 04:08:47
【问题描述】：

大家好，这里是新程序员就我在论坛上找不到的东西寻求帮助。下面列出的程序非常适合设置自动过滤器以通过 DateCode = ActiveCell.Text Statment 进行过滤

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*"

任何帮助将不胜感激

【问题讨论】：

标签： excel vbscript autofilter

【解决方案1】：

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

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

【讨论】：