関数・メソッド

セルに網掛け(パターン)を設定する【Patternプロパティ】【ExcelVBA】

Patternプロパティ

Patternプロパティはセル背景に網掛け(パターン)を重ねることができます。
Colorプロパティと合わせると、よりアクセントになります。

構文
object.Pattern = 設定値

※設定値に使われるxlPatternの定数一覧はこちら

各種網掛けをセルに表示させるサンプルコード

Public Sub Sample()

'各網掛けを設定
  Range("B2").Interior.Pattern = xlPatternSolid      '1
  Range("B3").Interior.Pattern = xlPatternChecker     '2
  Range("B4").Interior.Pattern = xlPatternCrissCross      '3
  Range("B5").Interior.Pattern = xlPatternGrid            '4
  Range("B6").Interior.Pattern = xlPatternGray8           '5
  Range("B7").Interior.Pattern = xlPatternGray16          '6
  Range("B8").Interior.Pattern = xlPatternGray25          '7
  Range("B9").Interior.Pattern = xlPatternGray50          '8
  Range("B10").Interior.Pattern = xlPatternGray75         '9
  Range("B11").Interior.Pattern = xlPatternSemiGray75     '10
  Range("C2").Interior.Pattern = xlPatternHorizontal      '11
  Range("C3").Interior.Pattern = xlPatternLightHorizontal '12
  Range("C4").Interior.Pattern = xlPatternVertical        '13
  Range("C5").Interior.Pattern = xlPatternLightVertical   '14
  Range("C6").Interior.Pattern = xlPatternDown            '15
  Range("C7").Interior.Pattern = xlPatternLightDown       '16
  Range("C8").Interior.Pattern = xlPatternUp              '17
  Range("C9").Interior.Pattern = xlPatternLightUp         '18
  Range("C10").Interior.Pattern = xlPatternAutomatic      '19

End Sub

※上記実行後

関連記事

コメント

タイトルとURLをコピーしました