小编Bla*_*ans的帖子

过滤表中的日期值

我有这个子:

Sub standardfilter()
    
        Dim ws As Worksheet
        Dim tbl As ListObject
        
        Set ws = ActiveSheet
        Set tbl = ws.ListObjects("Tabelle1")
        
        tbl.Range.AutoFilter field:=2, Criteria1:=">=Date()", Operator:=xlAnd
        
        Range("Tabelle1").Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlYes
        

End Sub
Run Code Online (Sandbox Code Playgroud)

它连接到一个命令按钮,执行时应首先过滤今天或将来的日期,然后按升序过滤另一个日期列。问题是,如果我只执行第一个过滤器,其中包含Criteria1:=">=Date()"今天或将来的数据,则不会显示任何数据。

Excel 表格如下所示: 在此输入图像描述

“Gremium”是事件名称,“Gremientermin”是事件的日期,“Frist”是该事件流程中特定工作流程的日期。

excel vba date filter

2
推荐指数
1
解决办法
58
查看次数

标签 统计

date ×1

excel ×1

filter ×1

vba ×1