第34回.セルの書式（塗りつぶし,Interior）
セルを目立たせる最も有効な手段は、セルを色で塗りつぶすことでしょう、
セルを塗りつぶす時のマクロVBAの解説です。
Interiorプロパティは、Interiorオブシェクトを返します。
つまり、Interiorプロパティを経由して、Interiorオブシェクトを扱う事になります。
Range.InteriorでInteriorオブシェクトを扱い、セルの塗りつぶし指定します。
マクロVBAでのInterior指定
| プロパティ | プロパティの説明 | プロパティの設定値と説明 |
| Color | 塗りつぶす色 | RGB値を表す長整数、色定数またはRGB関数 |
| ColorIndex | 塗りつぶす色 | 2003までの56色カラーパレットのインデックス 何色か分かりづらいのでColorを使ったほうが良い |
| Pattern | 塗りつぶしのパターン | XlPattern 列挙 |
| PatternColor | パターンの色 | RGB値を表す長整数※1 |
| PatternColorIndex | パターンの色 | 2003までの56色カラーパレットのインデックス 何色か分かりづらいのでColorを使ったほうが良い |
2007以降では、グラデーションの指定もできますが、
かなり複雑になりますので、ここでは説明を省略します。
必要な場合は、マクロの記録を使用して下さい。
ただし基本的には、あまりグラデーションは使わない方が良いと思います。
もし必要なら、事前にワークシートに設定しておく事をお勧めします。
色定数
| vbBlack | 黒 |
| vbRed | 赤 |
| vbGreen | 緑 |
| vbYellow | 黄 |
| vbBlue | 青 |
| vbMagenta | マゼンタ |
| vbCyan | シアン |
| vbWhite | 白 |
Range("セル範囲").Interior.Color = vbRed '赤
Range("セル範囲").Interior.Color = vbWhite '白
Range("セル範囲").Interior.Color = vbBlack '黒
RGB値を表す長整数の代わりに、上記の定数を使用することが出来ます。
カラー定数以外にも、XlRgbColor列挙などで指定することもできます。
Colorプロパティの設定値一覧
RGB関数
RGB関数が用意されています。
Range("セル範囲").Interior.Color = RGB(255, 0, 0) '赤
Range("セル範囲").Interior.Color = RGB(255, 255, 255) '白
Range("セル範囲").Interior.Color = RGB(0, 0, 0) '黒
塗りつぶしなし
Range("セル範囲").Interior.ColorIndex = xlNone
見た目の結果は、白の塗りつぶしと同じように見えますが、
あくまで、「白の塗りつぶし」と「塗りつぶしなし」は違うということを理解しておいてください。
条件付き書式との使い分け
多くの場合、マクロVBAで塗りつぶすより簡単なので良く使われていると思います。
ただし、条件付き書式は行列の挿入削除により分断が起こり、
シートが重くなる一因になることがあります。
このような場合は、
条件付き書式は使わずにマクロで塗りつぶした方が効率的かつ保守しやすくなります。
同じテーマ「マクロVBA入門」の記事
第31回.セルの書式（表示形式,NumberFormatLocal）
第32回.セルの書式（配置,Alignment）
第33回.セルの書式（フォント,Font）
第34回.セルの書式（塗りつぶし,Interior）
第35回.セルの書式（罫線,Border）
第36回.総合練習問題4
第37回.ブック・シートの指定
第39回.セルのクリア（Clear,ClearContents）
第40回.セルのコピー・カット&ペースト（Copy,Cut,Paste）
第41回.セルのコピー&値の貼り付け（PasteSpecial）
第42回.セルをコピーするとは
新着記事NEW ・・・新着記事一覧を見る
VBA100本ノック 61本目：「ふりがな」の取得と設定｜VBA練習問題（1月6日）
VBA100本ノック 60本目：「株式会社」の表記ゆれ置換｜VBA練習問題（1月5日）
VBA100本ノック 59本目：12ヶ月分のシートを四半期で分割｜VBA練習問題（1月4日）
Select Caseでの短絡評価（ショートサーキット）の使い方｜VBA技術解説（1月3日）
VBA100本ノック 迷宮編：巡回セル問題｜VBA練習問題（12月31日）
VBA100本ノック 58本目：番号リストを簡潔にした文字列で返す｜VBA練習問題（12月30日）
VBA100本ノック 57本目：ファイルの更新日時｜VBA練習問題（12月29日）
VBA100本ノック 56本目：数式内の自身のシート名を消す｜VBA練習問題（12月28日）
VBA100本ノック 55本目：他ブックのマクロを起動｜VBA練習問題（12月26日）
VBA100本ノック 54本目：シートのChangeイベント｜VBA練習問題（12月25日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.とにかく書いてみよう（Sub,End Sub）｜VBA入門
10.繰り返し処理（Do Loop）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。