修改為在不改變其他顔色的情況下
时间: 2024-03-03 11:49:01 浏览: 16
好的,根据您的要求,以下是新的VBA代码:
```VBA
Sub HighlightTodayAndTomorrow()
Dim todayDate As Date
Dim tomorrowDate As Date
Dim lastRow As Long
Dim i As Long
todayDate = Date
tomorrowDate = Date + 1
lastRow = ActiveSheet.UsedRange.Rows.Count
For i = 1 To lastRow
If Cells(i, 1).Value = todayDate Or Cells(i, 1).Value = tomorrowDate Then
If Rows(i).Interior.ColorIndex = xlNone Then
Rows(i).Interior.Color = RGB(198, 239, 206) '将符合条件的行背景色设为淡绿色
End If
End If
Next i
End Sub
```
这段代码会将当前工作表中日期等于今天或明天的行高亮显示为淡绿色,但是不会改变已经有颜色的行的背景色。我添加了一个判断,如果行的背景色不是 xlNone,则不会对该行进行操作。如果您需要修改颜色,可以自行修改 RGB 函数中的参数。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![m](https://img-home.csdnimg.cn/images/20210720083646.png)
![m](https://img-home.csdnimg.cn/images/20210720083646.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)