具有日期限制的Excel自动过滤器

Question

我尝试为我公司的部门实施一个易于使用的Autofilter-mask。我的目的是使其尽可能灵活，因此员工无需编程即可管理它。

我目前的问题是，他们希望使用以下输入过滤日期：＆lt; 1W，＆lt; 3M，＆gt; 6M等。

有人知道将此输入添加到VBA自动过滤方法的可能性吗？

我心中有这样的事情：

filterRange.AutoFilter
filterRange.AutoFilter 'dateColumn', "<3M"

最好的方法是将员工的输入直接传递给autofilter方法。

提前thx。

Answer 1

我以一种不太舒服的方式解决了它。在隐藏的工作表上，诸如“＆lt; 3M”之类的值与传递给自动过滤器功能的具体值相关联。单元格调用dateadd函数，该函数返回日期以覆盖用户期间。

Public Function getDate(interval, no) 
getDate = Format(DateAdd(interval, no, Date), "dd.mm.yyyy") 
End Function