Question

如何用VBA筛选日期？

请问如何用VBA编写运行后只筛选大于等于当天的日期？

Answer 1

dim rag as range,s as date
s=date
for each rag in range("B181:B" & [B65536].end(xlup). row)
if rag.value>s then '大于当前日期
next
上面是遍历对象单元是否大于当前日期。
用宏录制下筛选，条件设置为大于某值，然后把这个值用date替换掉