如何过滤时间

Question

我想知道如何过滤许多时间变量。

ActiveSheet.Range("$F$4:$G$18").AutoFilter Field:=3, Criteria1:=Array("11:45:00 AM", "11:46:00 AM", "11:47:00 AM", "11:48:00 AM", "11:49:00 AM" _
, "11:50:00 AM", "11:51:00 AM", "11:52:00 AM", "11:53:00 AM", "11:54:00 AM", "11:55:00 AM", "11:56:00 AM", "11:57:00 AM", "11:58:00 AM", "11:59:00 AM", _
"12:00:00 PM", "12:01:00 PM", "12:02:00 PM", "12:03:00 PM", "12:04:00 PM", "12:05:00 PM"), Operator:=xlFilterValues

这就是我过滤时间的方式，但我想知道是否有更好的方法来做到这一点。比如在框中询问用户输入开始时间和结束时间，它会自动过滤时间。

enter image description here

Answer 1

这是来自录制的宏，经过修改后适合您的

    ActiveSheet.Range("$F$4:$G$18").AutoFilter Field:=3, Criteria1:=">=11:45:00 AM", Operator:=xlAnd, Criteria2:="<=12:05:00 PM"