Excel VBA自动筛选排除日期条件

我试图通过排除输入日期条件来过滤日期，但没有成功，我的代码选择了过滤器中的所有日期。请帮助我输入代码，我想排除输入日期，并在“筛选”列中选择剩余日期。下面是我的代码

子日期过滤器（）
将fdate设置为字符串
fdate=InputBox（“以（Ex:DD/MM/yyy）格式输入从日期开始的报告，例如：2019年10月23日”，格式为（Now（），“DD/mmm/yyyy”））
范围（“A1:G”和范围（“A”和Rows.Count）。结束（xlUp.Row）。选择
Selection.AutoFilter字段：=7，准则1:=“”&fdate，运算符：=xlFilterValues
选择，复制
工作表（“观察”）。激活
范围（“A1”）。选择
活动表。粘贴
端接头

自动筛选日期可能很棘手。看见基本上，你需要使用“真实日期”，并在设置标准时使用数字等效项。嗨，罗恩·罗森菲尔德，嗨，罗恩·罗森菲尔德，谢谢你的回复。我已经引用了你提到的帖子，但是运气不好，你能帮我把代码排除在2019年11月18日之外，并在autofilter中选择剩余日期吗？你表中的日期是“真实日期”吗？或者它们是文本字符串？编辑您的帖子，以显示您如何尝试应用链接帖子中显示的原则。

Sub Date_Filter()

Dim fdate As String


fdate = InputBox("Enter report From date in (Ex: DD/MM/yyy)format Ex:23/Oct/2019", Format(Now(), "dd/mmm/yyyy"))


Range("A1:G" & Range("A" & Rows.Count).End(xlUp).Row).Select

Selection.AutoFilter Field:=7, Criteria1:="<>" & fdate, Operator:=xlFilterValues

Selection.Copy
Sheets("Observation").Activate
Range("A1").Select
ActiveSheet.Paste

End Sub