从当前日期过滤 7 个日期（中间缺少日期）

Question

我是 VBA 的初学者，我需要编写一个列，其中我必须从当前日期起 7 天取消勾选。我一直在使用用户 LR42 的这段代码

    selMonth = Format(DateSerial(Year(Date), Month(Date), Day(Date) - 7),   _
                  "m/d/yyyy")

    With Sheet1 '/* change to your actual sheet */
    '/* reference last row to column A */
    lr = .Range("A" & .Rows.Count).End(xlUp).Row
    Set myRange = .Range("A1:AY" & lr)
    myRange.AutoFilter 1, "<=" & selMonth

它确实从我的数据中取消了 7 天。但是，有时问题是，数据看起来像这样：

Jan 16
Jan 17
Jan 18
Jan 19
Jan 20
**no Jan 21**
Jan 22
**no Jan 23**
Jan 24

今天的日期是 1 月 24 日。当前日期 - 7 天是 1 月 18 日。我希望代码取消勾选 7 天（包括当前日期），同时考虑到这些日期中可能缺少日期这一事实。如果我要手动取消勾选它，我会在 1 月 16 日之前取消勾选。但是，根据上面的数据，代码只会在 1 月 18 日之前取消勾选（同时跳过没有 1 月 23 日和 21 日的事实） .

我应该如何对其进行编码，以使代码还考虑到这 7 天内可能缺少日期这一事实？

Answer 1

我正在努力针对美国格式的日期进行测试，但请尝试以下设置。假设您的数据设置为一个名为 Table1 的 Excel 表，并且它有一个名为 Date 的列（在 A 列中），正在对其进行排序，并且日期没有重复。

注意：Ctrl + T 在数据范围的填充单元格中，将数据范围转换为 Excel 中的表格

Option Explicit

Sub FilterData()

    Dim wb As Workbook
    Dim ws As Worksheet

    Set wb = ThisWorkbook
    Set ws = wb.Worksheets("Sheet1")

    Dim sourceTable As ListObject

    Set sourceTable = ws.ListObjects("Table1")

    Dim cutOffDate As Date
    cutOffDate = CDate(ws.Range("A" & Split(Split(sourceTable.DataBodyRange.Address, ":")(1), "$")(2)).Offset(-7, 0).Value2)

    With sourceTable.Sort
        .SortFields.Clear
        .SortFields.Add _
        Key:=Range("Table1[[#All],[Date]]"), SortOn:=xlSortOnValues, Order:= _
        xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    sourceTable.Range.AutoFilter Field:=1, Criteria1:="<" & cutOffDate, Operator:=xlAnd

End Sub

以表格为例：

对于非美国日期格式语言环境：如果您遇到不同日期格式（即非美国格式）导致过滤器功能不正确的问题，您可以尝试@Ron Rosenfeld 的建议，基本上将变量作为 Long 或 Double 传递避免内部转换：

例如

Dim cutOffDate As Long
cutOffDate = ws.Range("A" & Split(Split(sourceTable.DataBodyRange.Address, ":")(1), "$")(2)).Offset(-7, 0).Value2