Question

我使用VBA我试图过滤器在之前的业务日期。空白。

我试过在具有标准进入实际日期19年1月30日：和它的作品，但是当我跑我的代码什么也不显示。

。

Dim sht As Worksheet
Dim LastRow As Long
Dim xDay As String
Dim xDate As Date
Dim wb As Workbook: Set wb = ThisWorkbook

 Set sht = wb.Sheets("Open PO Raw Data")

If xDay = "Monday" Then
    xDate = Date - 3
Else
    xDate = Date - 1
End If

'
LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1

  sht.Range("A1:G" & LastRow).AutoFilter field:=7, _
  Criteria1:="xdate"

我希望G列显示19年1月30日的所有日期。

Answer 1

在引号"周围xdate在Criteria1:="xdate"意味着你的过滤器标准是文本 “xdate”，而不是值 xDate的值。删除引号。

编辑：

根据意见，这听起来像你用文字处理，而不是实际日期。在这种情况下，可以使用Criteria1:=Format(xDate, "mm/dd/yy")。

尝试使用VBA筛选上一个工作日期时为空白

1 个答案: