更改整张纸的背景颜色

Question

有没有办法将背景颜色更改为xlNone，例如更改为整个工作表。我看到你可以放一张背景图片......但你怎么能改变表格中所有单元格的颜色呢？

Answer 1

您可以使用以下代码轻松完成此操作：

Public Sub Demo()
  'set color
  WorksheetName.Cells.Interior.ColorIndex = 1 'black
  'clear color
  WorksheetName.Cells.Interior.ColorIndex = xlColorIndexNone
end sub

或者如果您不需要VBA，只需点击角落里的这个小图标：

并使用右键菜单或功能区菜单选择颜色或不使用颜色。

仅仅因为其他答案，我想提醒一下 - 没有必要使用选择！这是糟糕的录音机风格。只有少数几个部分，使用选择是必要的或一个好主意。您始终可以使用特定范围。

Answer 2

试试这个

Sheets("Sheet1").Select    
Cells.Select
With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With

Answer 3

以下是如何更改当前工作表中所有单元格的背景颜色

 Cells.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505   'grey color
        .PatternTintAndShade = 0
    End With