'判断是否是星期一并且筛选第二列不以"设备"开头的数据 If Weekday(Date, vbMonday) <> 1 Then ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*设备*" End If在這句代碼中添加,判斷今天的日期是否是當月的1號,如果是就篩選出第2列中包含月的數據,如果不是就不刷選出包含月的數據,
时间: 2024-03-03 18:53:24 浏览: 27
可以将代码修改为以下形式:
```
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`。
相关问题
If Weekday(Date, vbMonday) <> 5 Then If Day(Date) = 3 Then ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*る*", Operator:=xlAnd, Criteria2:="<>砞称-*" Else ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*砞称-*", Operator:=xlAnd, Criteria2:="<>*る*" End If End If
这段代码会根据日期和星期几来应用自动过滤器。如果日期不是星期五,那么它将检查日期是否为3号,并根据结果应用过滤器。如果日期为3号,则应用一个过滤器,如果日期不是3号,则应用另一个过滤器。
如果您想要修改代码,使其筛选出包含“る”的数据,可以将 `Criteria1` 修改为 `"=*る*"`。如果您想要同时筛选出不包含“砞称-” 的数据,则可以将 `Criteria2` 修改为 `"<>*砞称-*"`。修改后的代码如下所示:
```
If Weekday(Date, vbMonday) <> 5 Then
If Day(Date) = 3 Then
ws.Range("B1").AutoFilter Field:=2, Criteria1:="=*る*", Operator:=xlAnd, Criteria2:="<>*砞称-*"
Else
ws.Range("B1").AutoFilter Field:=2, Criteria1:="<>*砞称-*", Operator:=xlAnd, Criteria2:="=*る*"
End If
End If
```
这将在日期不是星期五时,筛选出包含“る”但不包含“砞称-” 的数据;在日期为3号时,筛选出包含“る”且不包含“砞称-” 的数据。
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號就篩選出包含月的數據,如果不是1號,就不篩選出包含月的資料
要实现您的要求,可以将原始代码中的条件改为仅在日期为1号时应用过滤器,如下所示:
```
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
```
这将检查日期是否为1号,如果是1号,将应用包含“月”但不包含“设备”的过滤器,否则将应用不包含“设备”的过滤器。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)