Sub FilterData() Dim today As Date Dim dayOfWeek As Integer Dim currTime As Date Dim filterValue As String '获取当天日期和星期几 today = Date dayOfWeek = Weekday(today, vbMonday) '判断是否是星期一 If dayOfWeek <> 2 Then '如果不是星期一,则在第2列筛选出以"產綫"开头的数据 Columns("B:B").AutoFilter Field:=2, Criteria1:="產綫*" Else '如果是星期一,则获取当前时间 currTime = Time '判断当前时间段 If currTime >= TimeValue("08:00:00") And currTime <= TimeValue("19:00:00") Then '如果是在08:00到19:00之间,则在第5列筛选出内容是D的数据 filterValue = "D" Else '如果是在20:00到07:00之间,则在第5列筛选出内容是N的数据 filterValue = "N" End If '在第5列筛选出符合条件的数据 Columns("E:E").AutoFilter Field:=5, Criteria1:=filterValue End If End Sub修改這段代碼中如果不是星期1就將第2列中開頭是設備的整行隱藏掉
时间: 2024-02-14 15:08:09 浏览: 25
好的,根据您的要求,我修改了代码,现在如果不是星期一,它将隐藏第二列中所有以“設備”开头的整行数据。以下是修改后的代码:
```
Sub FilterData()
Dim today As Date
Dim dayOfWeek As Integer
Dim currTime As Date
Dim filterValue As String
'获取当天日期和星期几
today = Date
dayOfWeek = Weekday(today, vbMonday)
'判断是否是星期一
If dayOfWeek <> 2 Then
'如果不是星期一,则隐藏第二列中所有以"設備"开头的整行数据
For Each cell In Range("B:B")
If Left(cell.Value, 2) = "設備" Then
cell.EntireRow.Hidden = True
End If
Next cell
Else
'如果是星期一,则获取当前时间
currTime = Time
'判断当前时间段
If currTime >= TimeValue("08:00:00") And currTime <= TimeValue("19:00:00") Then
'如果是在08:00到19:00之间,则在第5列筛选出内容是D的数据
filterValue = "D"
Else
'如果是在20:00到07:00之间,则在第5列筛选出内容是N的数据
filterValue = "N"
End If
'在第5列筛选出符合条件的数据
Columns("E:E").AutoFilter Field:=5, Criteria1:=filterValue
End If
End Sub
```
您可以将此代码复制并粘贴到 Excel 的 VBA 编辑器中(按 Alt + F11 打开),然后将其保存为宏。每次需要执行操作时,只需运行该宏即可。
请注意,此代码将在每个星期一执行时跳过隐藏行的操作,并在第二列中筛选出以“設備”开头的数据。如果您需要更改此行为,请修改代码中的比较运算符和相应的字符串值。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.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)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)