Excel VBA セルに網かけ(パターン)を設定する

スポンサーリンク
スポンサーリンク

セルに網かけ(パターン)を設定する方法

セルに網かけ(パターン)を設定するには
Interior【インテリア】オブジェクトの
Pattern【パターン】プロパティを使用します。
網かけは、
セルの背景色の上に重ね合わせるように
設定することができます。

Pattern【パターン】プロパティ

値の取得と設定ができます。

Pattern【パターン】プロパティ

オブジェクト.Pattern = 設定値
【戻り値】バリアント型(Variant)の値


設定値の説明

  • オブジェクト(必須)
    Interiorオブジェクトを指定します。
    Interior【インテリア】オブジェクトは塗りつぶしを表すオブジェクトです。
  • 設定値(必須)
    網かけのパターンをxlPattern列挙型の定数で指定します。
xlPattern列挙型の定数
定数内容パターン
xlPatternSolid1塗りつぶし
xlPatternGray75-412675% 灰色
xlPatternGray50-412550% 灰色
xlPatternGray25-412425% 灰色
xlPatternGray161716% 灰色
xlPatternGray8188% 灰色
xlPatternHorizontal-4128濃い横線
xlPatternVertical-4166濃い縦線
xlPatternDown-4121左上から右下までの濃い対角線
xlPatternUp-4162左下から右上までの濃い対角線
xlPatternChecker9斜め格子
xlPatternSemiGray7510濃い斜め格子
xlPatternLightHorizontal11明るい横線
xlPatternLightVertical12明るい縦線
xlPatternLightDown13左上から右下までの明るい対角線
xlPatternLightUp14左下から右上までの明るい対角線
xlPatternGrid15縦横格子
xlPatternCrissCross16実線斜め格子

PatternColor【パターンカラー】プロパティ

PatternColorIndex【パターンカラーインデックス】プロパティ

網かけに色を設定するには
Interiorオブジェクトの
PatternColor【パターンカラー】プロパティまたは
PatternColorIndex【パターンカラーインデックス】プロパティを使用します。
値の取得と設定ができます。

PatternColor、PatternColorIndexの書式

オブジェクト.PatternColor = RGB
オブジェクト.PatternColorIndex = Index
【戻り値】バリアント型(Variant)の値


設定値の説明

  • オブジェクト(必須)
    Interiorオブジェクトを指定します。
  • RGB(必須)
    RGB関数や色の定数などで指定します。
  • Index(必須)
    1~56のカラーパレットのインデックス番号で指定します。

各網かけをセルに表示するコード例

Sub 網掛け()
Range("B2").Interior.Pattern = xlPatternSolid
With Range("C2").Interior
.Pattern = xlPatternGray75
.PatternColor = RGB(255, 0, 0)
End With
With Range("D2").Interior
.Pattern = xlPatternGray50
.PatternColor = RGB(0, 255, 0)
End With
With Range("B3").Interior
.Pattern = xlPatternGray25
.PatternColor = RGB(0, 0, 255)
End With
Range("C3").Interior.Pattern = xlPatternGray16
Range("D3").Interior.Pattern = xlPatternGray8
Range("B4").Interior.Pattern = xlPatternHorizontal
Range("C4").Interior.Pattern = xlPatternVertical
Range("D4").Interior.Pattern = xlPatternDown
Range("B5").Interior.Pattern = xlPatternUp
Range("C5").Interior.Pattern = xlPatternChecker
Range("D5").Interior.Pattern = xlPatternSemiGray75
Range("B6").Interior.Pattern = xlPatternLightHorizontal
Range("C6").Interior.Pattern = xlPatternLightVertical
Range("D6").Interior.Pattern = xlPatternLightDown
Range("B7").Interior.Pattern = xlPatternLightUp
Range("C7").Interior.Pattern = xlPatternGrid
Range("D7").Interior.Pattern = xlPatternCrissCross

実行結果

網かけを解除する方法

Patternプロパティの設定値を
xlPatternNone【パーターンノン】に設定します。

シートのすべての網かけを解除するコード例

Sub 網かけ解除()
Cells.Interior.Pattern = xlPatternNone
End Sub

以上で
セルに網かけ(パターン)を設定する方法についての解説を終了します。
ありがとうございました。

スポンサーリンク
スポンサーリンク

フォローする

スポンサーリンク
スポンサーリンク