5

有没有办法将背景颜色更改为xlNone,例如整个工作表。我看到您可以放置​​背景图像...但是如何更改工作表中所有单元格的颜色?

4

3 回答 3

17

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

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

或者,如果您不需要 VBA,只需单击角落里的这个小图标:

在此处输入图像描述

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

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

于 2012-10-22T10:03:48.947 回答
2

试试这个

Sheets("Sheet1").Select    
Cells.Select
With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
于 2012-10-22T09:50:55.380 回答
2

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

 Cells.Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505   'grey color
        .PatternTintAndShade = 0
    End With
于 2012-10-22T10:06:04.373 回答