按确切date过滤电子表格（MM / DD / YYYY）

我正在构build一个从用户表单收集数据的工具，然后最终用户应该能够过滤所有数据的主集，并将其复制到电子邮件中。 出于某种原因，我的filter并没有将设置细化到确切的一天，而只是下降到了一个月。 date存储在用当前date自动填充的用户自定义文本框中，但如果用户select报告较早的数据，用户可以更改它。 这是我的filter的代码;

Private Sub CommandButton6_Click() Sheets("Master").ListObjects("Append1").Range.AutoFilter Field:=1, Operator:= _ xlFilterValues, Criteria2:=Array(1, date2_txtb) End Sub 

date2_txtb =包含date的文本框追加1：修改后的查询组成“主集”

更新：

 Private Sub UserForm_Initialize() date2_txtb.Text = Format(Now(), "MM/DD/YYYY") End Sub 

Answer 1

我想这是你想要的。

 date2_txtb = "11/11/2017" Dim vDate As Date Dim lDate As Long vDate = DateSerial(Year(date2_txtb), Month(date2_txtb), Day(date2_txtb)) lDate = vDate ThisWorkbook.Sheets("Master").ListObjects("Append1").Range.AutoFilter Field:=1, Criteria1:=">=" & lDate, Operator:=xlAnd, Criteria2:="<" & lDate + 1