首页 > 解决方案 > 过滤日期格式为“dd/mm/yyyy h:mm”

问题描述

是未过滤数据的屏幕截图

Sub qwe()
     ThisWorkbook.Sheets("book").Range("f1").AutoFilter Field:=6, Criteria1:=CDate("2018/10/1 4:20")
    End Sub

我需要使用自定义格式“dd/mm/yyyy h:mm”过滤日期

标签: excelvba

解决方案


我玩弄了您的代码,在某些情况下过滤行为确实很奇怪。为我解决的问题是.Criteria这样设置:

Sub qwe()
 ThisWorkbook.Sheets("book").Range("f1").AutoFilter Field:=6, Criteria1:="=2018/10/1 4:20"
End Sub

为此,您需要确保数据的格式类似于.Criteria: yyyy/mm/dd h:mm

请注意,这不是您在问题 ( dd/mm/yyyy h:mm) 中明确要求的格式。如果你的数据是这样格式化的,你需要这样设置.Criteria"=01/10/2018 4:20"


推荐阅读