Excel VBA を学ぶなら moug モーグ | 即効テクニック | セルの塗りつぶし属性を参照する(Interiorプロパティ)

Q＆A掲示板の使い方 Excel （一般機能） Excel （VBA） Access （一般機能） Access （VBA） Word （一般機能） Word （VBA） PowerPoint （一般・VBA） Outlook （全般） Windows （全般）プログラミングセキュリティ WEBページ制作グラフィックデータベース経理スマートフォン
Excel 一般機能テクニック Excel VBA テクニック Word一般機能テクニック Access 一般機能テクニック Access VBA テクニック
Excel 基礎 Word 基礎 Excel 関数仕事に役立つ Excel 関数 Excel で描くオートシェイプ画ほっとひといき給湯室
VBAエキスパートとはマクロガール☆マコと学ぼう Excel VBA ビギナーズ VBAセミナー情報 VBA書籍
書籍プレゼントメルマガ「オフパー」おすすめ書籍おすすめサイトフリーソフト mougブログ

HOME > 即効テクニック > Excel VBA > セル操作関連のテクニック > セルの塗りつぶし属性を参照する(Interiorプロパティ)

即効テクニック

セル操作関連のテクニック

セルの塗りつぶし属性を参照する(Interiorプロパティ)

(Excel 2000)

指定したオブジェクトの色やパターンといった塗り潰し属性を表すInteriorオブジェクトを参照します。セル範囲の塗り潰しを設定したい場合には、Rangeオブジェクトの下位オブジェクトであるInteriorオブジェクトを参照します。

　構文  Object.Interior     取得のみ

　設定項目    内容
  Object      Range, Styleオブジェクト

次のサンプルはInteriorオブジェクトの主要なプロパティを使用し、セルを塗り潰すサンプルです。

●サンプル●

Sub InteriorSamp1()

　Range("A1:A5").Interior.ColorIndex = 1 '--(1)カラーパレットの色で塗り潰し
　Range("B1:B5").Interior.Pattern = xlPatternChecker
　　　　　　　　　　　　　　　　　　'--(2)チェックのパターン
　Range("C1:C5").Interior.Color = RGB(255, 0, 0)
　　　　　　　　　　　　　　　　　　'--(3)RGB値で塗り潰し
　With Range("D1:D5").Interior      '--(4)
      .Pattern = xlGrid             '---グリッドのパターン
      .PatternColor = RGB(0, 0, 255)'---RGB値でグリッドの色を指定
　End With
　With Range("E1:E5").Interior    '---(5)
      .Pattern = xlPatternVertical'---垂直線のパターン
      .PatternColorIndex = 15     '---カラーパレットの色でパターンの色を指定
　End With

End Sub