セルに網掛けをする：Excel（エクセル）マクロ

セルに網掛けをするには、網のパターン（Patternプロパティ）と網のパターンの色（PatternColorIndexプロパティ）を指定します。

■Patternプロパティ

• xlSolid　-　塗りつぶし(網かけ無し)
• xlGray75　-　75%灰色
• xlGray50　-　50%灰色
• xlGray25　-　25%灰色
• xlGray16　-　12.5%灰色
• xlGray8　-　6.25%灰色
• xlHorizontal　-　横縞
• xlVertical　-　縦縞
• xlDown　-　右下がり縞
• xlUp　-　右上がり縞
• xlChecker　-　斜線格子
• xlSemiGray75　-　極太斜線格子
• xlLightHorizontal　-　横縞(広)
• xlLightVertical　-　縦縞(広)
• xlLightDown　-　右下がり縞(広)
• xlLightUp　-　右上がり縞(広)
• xlGrid　-　格子
• xlCrissCross　-　斜線格子(薄)

網掛けの方法

VBA入力画面


入力したコードです。

---

Sub 網掛けする()
    ActiveSheet.Unprotect
    With Range("B3:D4").Interior
        .ColorIndex = 3
        .Pattern = xlGray50
        .PatternColorIndex = 6
    End With

    With Range("B5:D6").Interior
        .ColorIndex = 4
        .Pattern = xlHorizontal
        .PatternColorIndex = 7
    End With
End Sub

Sub 網掛けを消去する()
     Range("B3:D6").Interior.ColorIndex = xlNone
End Sub

プログラムの説明

---

Subプロシージャの宣言
Sub 網掛けする()
シート保護の解除
ActiveSheet.Unprotect
セル範囲の塗りつぶし属性
With Range("B3:D4").Interior
セルの塗りつぶし
.ColorIndex = 3
網掛けパターン
.Pattern = xlGray50
網掛けパターン色
.PatternColorIndex = 6
Withステートメントの終了
End With
セル範囲の塗りつぶし属性
With Range("B5:D6").Interior
セルの塗りつぶし
.ColorIndex = 4
網掛けパターン
.Pattern = xlHorizontal
網掛けパターン色
.PatternColorIndex = 7
Withステートメントの終了
End With
プロシージャの終了
End Sub
Subプロシージャの宣言
Sub 網掛けを消去する()
塗りつぶしのクリア
Range("B3:D6").Interior.ColorIndex = xlNone
プロシージャの終了
End Sub

セルの網かけの実行画面

マクロの実行画面です。網かけするには、網かけするマクロを実行します。　消去するには、網かけを消去するマクロを実行します。


網かけするマクロの実行結果です。B3:D4 と B5:D6 は別の属性で網かけを実行しています。


Excelマクロのサンプルファイル：フリーダウンロード

---

---