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