セルを網掛け(パターン)で塗りつぶす : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク



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

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

Excel Tipsメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved