'判断是否是星期一并且筛选第二列不以"设备"开头的数据 If Weekday(Date, vbMonday) <> 1 Then ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*设备*" End If在這句代碼中添加,判斷今天的日期是否是當月的1號,如果是就篩選出第2列中包含月的數據,如果不是就不刷選出包含月的數據,
时间: 2024-03-03 15:53:24 浏览: 131
判断日期范围内是否存在星期几
可以将代码修改为以下形式:
```
If Weekday(Date, vbMonday) <> 1 Then
If Day(Date) = 1 Then
ws.Range("B1").AutoFilter Field:=2, Criteria1:="=*月*", Operator:=xlAnd, Criteria2:="<>*设备*"
Else
ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*设备*"
End If
End If
```
这样,代码就会在判断不是星期一的情况下,再判断今天的日期是否为当月的1号,如果是则筛选出第2列同时包含“月”且不以“设备”开头的数据,如果不是就筛选出第2列不以“设备”开头的数据。同时,由于要同时满足两个条件,因此使用了 `Operator:=xlAnd`。
阅读全文