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

現在のシートのすべてのセルの背景色を変更する方法は次のとおりです

 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 に答える
2

これを試して

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