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

2、Sub 取消护眼色()With Cells .Borders.LinStyle = xlNone .Interior.Color = xlNoneEnd WithEnd Sub
时间:2024-10-13 22:48:43
1、Sub 设置护眼色()With Cells .Borders.Color = 12632256 .Interior.Color = 12312507End WithEnd Sub效果图如下:
2、Sub 取消护眼色()With Cells .Borders.LinStyle = xlNone .Interior.Color = xlNoneEnd WithEnd Sub