1、Sub 设置护眼色()
With Cells
.Borders.Color = 12632256
.Interior.Color = 12312507
End With
End Sub
效果图如下:

2、Sub 取消护眼色()
With Cells
.Borders.LinStyle = xlNone
.Interior.Color = xlNone
End With
End Sub
时间:2026-02-14 03:58:45
1、Sub 设置护眼色()
With Cells
.Borders.Color = 12632256
.Interior.Color = 12312507
End With
End Sub
效果图如下:

2、Sub 取消护眼色()
With Cells
.Borders.LinStyle = xlNone
.Interior.Color = xlNone
End With
End Sub