Excel VBA：セルを網掛け（パターン）で塗りつぶす｜Interior.Pattern

網掛けの色の設定と各種パターンを設定するVBAを掲載しています。




Homeに戻る > Excel セルのTipsへ

Excel VBAで網掛けを設定するには、Interior.Pattern を使います。

網掛けの色を設定するには、Interior.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：薄い斜線の格子

カラーに関連する「Excel VBA：カラーパレットのインデックス番号の一覧と配色表」も掲載していますので、参考にしてください。

掛けの色の設定と各種パターンを設定するVBA

Excelシート画面

C列は、規定値の黒でパターンを実行しています。

D列は、赤色に設定しパターンを実行しています。

網掛け実行ーシート

Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
   Range("C5").Interior.Pattern = xlPatternAutomatic
   Range("C6").Interior.Pattern = xlPatternChecker
   Range("C7").Interior.Pattern = xlPatternCrissCross
   Range("C8").Interior.Pattern = xlPatternDown
   Range("C9").Interior.Pattern = xlPatternGray16
   Range("C10").Interior.Pattern = xlPatternGray25
   Range("C11").Interior.Pattern = xlPatternGray50
   Range("C12").Interior.Pattern = xlPatternGray75
   Range("C13").Interior.Pattern = xlPatternGray8
   Range("C14").Interior.Pattern = xlPatternGrid
   Range("C15").Interior.Pattern = xlPatternHorizontal
   Range("C16").Interior.Pattern = xlPatternLightDown
   Range("C17").Interior.Pattern = xlPatternLightHorizontal
   Range("C18").Interior.Pattern = xlPatternLightUp
   Range("C19").Interior.Pattern = xlPatternLightVertical
   Range("C20").Interior.Pattern = xlPatternNone
   Range("C21").Interior.Pattern = xlPatternSemiGray75
   Range("C22").Interior.Pattern = xlPatternSolid
   Range("C23").Interior.Pattern = xlPatternUp
   Range("C24").Interior.Pattern = xlPatternVertical

   Range("D5").Interior.PatternColorIndex = 3
   Range("D5").Interior.Pattern = xlPatternAutomatic
   Range("D6").Interior.PatternColorIndex = 3
   Range("D6").Interior.Pattern = xlPatternChecker
   Range("D7").Interior.PatternColorIndex = 3
   Range("D7").Interior.Pattern = xlPatternCrissCross
   Range("D8").Interior.PatternColorIndex = 3
   Range("D8").Interior.Pattern = xlPatternDown
   Range("D9").Interior.PatternColorIndex = 3
   Range("D9").Interior.Pattern = xlPatternGray16
   Range("D10").Interior.PatternColorIndex = 3
   Range("D10").Interior.Pattern = xlPatternGray25
   Range("D11").Interior.PatternColorIndex = 3
   Range("D11").Interior.Pattern = xlPatternGray50
   Range("D12").Interior.PatternColorIndex = 3
   Range("D12").Interior.Pattern = xlPatternGray75
   Range("D13").Interior.PatternColorIndex = 3
   Range("D13").Interior.Pattern = xlPatternGray8
   Range("D14").Interior.PatternColorIndex = 3
   Range("D14").Interior.Pattern = xlPatternGrid
   Range("D15").Interior.PatternColorIndex = 3
   Range("D15").Interior.Pattern = xlPatternHorizontal
   Range("D16").Interior.PatternColorIndex = 3
   Range("D16").Interior.Pattern = xlPatternLightDown
   Range("D17").Interior.PatternColorIndex = 3
   Range("D17").Interior.Pattern = xlPatternLightHorizontal
   Range("D18").Interior.PatternColorIndex = 3
   Range("D18").Interior.Pattern = xlPatternLightUp
   Range("D19").Interior.PatternColorIndex = 3
   Range("D19").Interior.Pattern = xlPatternLightVertical
   Range("D20").Interior.PatternColorIndex = 3
   Range("D20").Interior.Pattern = xlPatternNone
   Range("D21").Interior.PatternColorIndex = 3
   Range("D21").Interior.Pattern = xlPatternSemiGray75
   Range("D22").Interior.PatternColorIndex = 3
   Range("D22").Interior.Pattern = xlPatternSolid
   Range("D23").Interior.PatternColorIndex = 3
   Range("D23").Interior.Pattern = xlPatternUp
   Range("D24").Interior.PatternColorIndex = 3
   Range("D24").Interior.Pattern = xlPatternVertical

End Sub



Homeに戻る > Excel セルのTipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved