更改整个工作表的背景颜色答案

【问题标题】：Change Background Color for Entire Sheet更改整个工作表的背景颜色
【发布时间】：2012-10-12 02:27:29
【问题描述】：

有没有办法把背景色改成xlNone，例如对整个工作表。我看到你可以放一个背景图片...... 但是如何更改工作表中所有单元格的颜色呢？

【问题讨论】：

将动作记录为宏然后查看@源应该告诉你这不是吗？

【解决方案1】：

试试这个

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

【讨论】：

【解决方案2】：

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

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

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

然后选择一种颜色，或者不使用颜色 - 使用右键菜单或功能区菜单。

只是因为其他答案，我想提醒一下 - 没有必要使用选择！这是糟糕的宏记录器风格。只有少数情况下，使用选择是必要的或一个好主意。你总是可以只使用一个特定的范围。

【讨论】：

是的，我认为您的解决方案是完整且更快的！

【解决方案3】：

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

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

【讨论】：

您将背景颜色设置为灰色，而不是删除它；）
@t.thielemans，这就是提问者想要的，不是吗？