excel vba autofilter today's date

您可以使用Excel VBA的AutoFilter功能来筛选出当天的日期数据。以下是一个简单的示例代码：

Sub FilterTodayDate()
    '定义变量
    Dim todayDate As Date
    Dim rng As Range
    '获取当天日期
    todayDate = Date
    '设置需要筛选的日期范围
    Set rng = Range("A1:A10") '将A1到A10列作为示例
    '使用Autofilter函数进行筛选
    rng.AutoFilter Field:=1, Criteria1:="=" & todayDate, Operator:=xlAnd
End Sub
在此示例代码中，我们首先使用变量“todayDate”来存储当前日期。然后，我们选择需要筛选的日期范围，并使用AutoFilter函数筛选出符合条件的数据。
在AutoFilter函数中，我们使用“Field”参数指定需要筛选的列号码（在这里，我们使用列A，因此列号码为1）。然后，我们使用“Criteria1”参数设置要筛选的条件，这里我们使用当前日期，并在前面添加一个等号“=”。最后，我们使用“Operator”参数指定“和”条件。
请注意，这里的日期格式必须与Excel中单元格中的日期格式相同。如果您使用的是不同的日期格式，则需要将“todayDate”变量进行格式化，以匹配单元格中的日期格式。
希望这个代码能够帮到您！