ホーム > カテゴリ > Excel・VBA >

セルの背景色/網掛けを設定する [ExcelのVBA]

セルの背景色を設定する

次のコードはセルの「背景色」を設定する使用例となります。

Private Sub CommandButton1_Click()
  With Range("B2")
    ' 背景色の設定
    .Interior.ColorIndex = 5
    .Interior.Color = RGB(0, 255, 0)
    .Interior.Color = vbRed
    
    ' 背景色のクリア
    ' .Interior.ColorIndex = 0
  End With
End Sub

[結果]

※背景色の設定方法は3種類ありますので例として3つのコードで指定しています。実際には最後のコード(6行目)の色が設定されます。

※カラー定数、RGB、カラーインデックスの色の見本は「セルのフォントを設定する」の記事の下部をご覧ください。

セルに網掛けを設定する

次のコードはセルに「網掛け」を設定する使用例となります。

Private Sub CommandButton1_Click()
  With Range("B2")
    ' 網掛けの種類
    .Interior.Pattern = xlGray25
    
    ' 網掛けの色
    '.Interior.PatternColorIndex = 5
    '.Interior.PatternColor = RGB(0, 255, 0)
    '.Interior.PatternColor = vbRed
       
    ' 網掛けの色のクリア
    ' .Interior.Pattern = xlNone
  End With
End Sub

[結果]

網掛け定数と見本

xlNoneクリア
xlSolid塗りつぶしなし
xlPatternGray7575% 灰色
xlPatternGray5050% 灰色
xlPatternGray2525% 灰色
xlPatternGray1616% 灰色
xlPatternGray88% 灰色
xlHorizontal濃い横線
xlVertical濃い縦線
xlDown左上から右下までの濃い対角線
xlUp左下から右上までの濃い対角線
xlCheckerチェッカーボード
xlSemiGray7575% 濃いモアレ
xlLightHorizontal明るい横線
xlLightVertical明るい縦線
xlLightDown左上から右下までの明るい対角線
xlLightUp左下から右上までの明るい対角線
xlGridグリッド
xlCrissCross十字線

ここで紹介している定数はConstants列挙ですが、XlPattern列挙の定数も使用する事が可能です。※定数名が異なるだけで内容は同じです。

エクセル講座のクイックリンク

ホーム 新機能 基本(初級) 基本(中級) 基本(上級) 関数 マクロ VBA TIPS





関連記事


前の記事：セルのフォントを設定する [ExcelのVBA]
次の記事：セルの文字配置を設定する [ExcelのVBA]

公開日：2015年07月15日 最終更新日：2015年07月22日
記事NO：01204