Visual Basic excel：过滤器显示比今天更早的日期

Question

我正在尝试在Excel中使用Visual Basic，以便我可以使用链接到按钮的宏来过滤表格，该表格显示今天或早于今天的所有行。当我使用以下代码时，不显示任何行：

Sub showoverdue_Click()
Range("A7:L500").Select
ActiveSheet.Range("A7:L500").AutoFilter Field:=8, Criteria1:="<=" & Date
End Sub

当我将操作符更改为=时，今天的日期已正确过滤但我无法获得＆＃34;＆lt;＆＃34;或＆＃34;＆lt; =＆＃34;工作正常。

我的日期数据采用英国格式（dd / mm / yyyy）格式化 - 我不确定这是否有效。

我很感激任何建议。

Answer 1

使用以下数据：

运行：

//class variable
private boolean isRunning = false;


public synchronized void start()
{
if(isRunning)return;
isRunning = true;
}

将产生：