excel - 过滤 Excel 表格以在 VBA 中的周五显示下周一的数据

Question

我每天都会过滤大量数据以构建报告。例如，我过滤表格以显示下周、本周、今天和明天的值。但是，我还想过滤一个表格以显示下周一周五的数据。这样我就可以在前一周的星期五准备应该在周末之后的星期一显示的数据。

过滤今天，明天，本周，下周我正在使用

xlFilterToday
xlFilterTomorrow
xlFilterNextWeek 
xlFilterThisWeek 

所以我知道这可能不是最优雅的表格排序方式，但它可以完成工作

lastrow = Range("D" & startrow).End(xlDown).Row
ActiveSheet.Range("$B$7:$S$" & lastrow).AutoFilter Field:=7, Criteria1:=xlFilterThisWeek, Operator:=xlFilterDynamic

所以我想知道有没有办法改变

Criteria1:=xlFilterThisWeek

类似于

Criteria1:=xlFilterNextMonday 

我试图在这里寻找这样的声明 https://docs.microsoft.com/en-us/office/vba/api/excel.xldynamicfiltercriteria

但没有成功。

非常感谢您的帮助，谢谢。

Answer 1

不幸的是，VBA 不提供任何接近 xlFilterNextMonday 的功能。 (不过会很酷!)。也许尝试类似:

Dim nextMonday As String

nextMonday = Format(Date + 8 - Weekday(Date, vbMonday), "dd/mm/yyyy")

ActiveSheet.Range("$A$1:$B$30").AutoFilter Field:=1, _
    Criteria1:=nextMonday

结果:


Format(..., "dd/mm/yyyy")的原因|是因为 VBA 在解释日期时会说美国语，所以您需要相应地更改日期格式以匹配您的源数据(我这边的英国格式)。