更改整个工作表的背景色
更改整个工作表的背景色
提问于 2012-10-22 17:45:32
有没有办法将背景颜色更改为xlNone，例如整个工作表。我看到你可以放一张背景图片。但是如何更改工作表中所有单元格的颜色呢？
回答 3
Stack Overflow用户
回答已采纳
发布于 2012-10-22 18:03:49
使用下面的代码可以很容易地做到这一点：
Public Sub Demo()
'set color
WorksheetName.Cells.Interior.ColorIndex = 1 'black
'clear color
WorksheetName.Cells.Interior.ColorIndex = xlColorIndexNone
end sub或者，如果您不需要VBA，只需单击角落中的这个小图标：
然后选择一种颜色，或不使用颜色-使用右键单击菜单或功能区菜单。
仅仅因为其他的答案，我想提醒一下--没有必要使用选择！这是一个糟糕的宏录制器风格。只有很少的情况下，使用选择是必要的或者是一个好主意。您始终可以只使用特定的范围。
Stack Overflow用户
发布于 2012-10-22 17:50:55
尝尝这个
Sheets("Sheet1").Select
Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End WithStack Overflow用户
发布于 2012-10-22 18:06:04
下面是如何更改当前工作表中所有单元格的背景色
Cells.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.14996795556505 'grey color
.PatternTintAndShade = 0
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/13008714
复制相关文章
相似问题
腾讯云开发者
