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

■Patternプロパティ

網掛けの方法

VBA入力画面
網かけコードを入力したVBE画面

入力したコードです。

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マクロのサンプルファイル:フリーダウンロード








Copyright (C) excel.usefulhp.com All rights reserved.