1行または１列おきに色で塗りつぶして分かりやすくしているファイルもありますが
行・列数が多ければ多いほど、「今どの行を入力しているんだっけ？」という
場面が大いにあります。

そこで今回は選択しているセル・行・列を自動で色付けすることで
どこの項目や番号に入力しているか分かりやすくしてみたいと思います。

条件付き書式とマクロVBAを使用しますが
実際の画面を用いて説明しますので是非参考にしてみてください。

それでは見ていきましょう。

⬛︎こんな事ができるようになる！

選択しているセル・行・列に自動的に塗りつぶしで色がつくことで
選択中の範囲が一目でわかるようになる。

⬛︎必要な知識

・条件付き書式設定

【条件付き書式】必見！使用方法や設定方法を詳しく説明～ルールの追加・編集・削除・優先順位～ ► 独学エクセル塾 (dokugakuexcel.com)
・マクロVBA設定

【マクロVBA】プログラム・ソースコードを入力するためのモジュール作成・削除・名前の変更について ► 独学エクセル塾 (dokugakuexcel.com)

⬛︎選択しているセル・行・列に色をつける

①条件付き書式の設定

まず初めに条件付き書式を設定する必要があります。
見本で下図の表を用意しました。

今回は見本で選択した行の色が変わるようにしたいと思います。
まず、表を範囲選択します。

そしてメニューの「ホーム」から「条件付き書式」を選択します。

メニューの中に「新しいルール」という項目があるのでこちらを選択します。

まずは、ルールの種類を選択するのですがここでは「数式を使用して、書式設定するセルを決定」にします。

次に「次の数式を満たす場合に値を書式設定」に数式を入れるのですが
例では選択した行に色をつけるので「=Cell(“Row”)=Row()」とします。

意味として「Cell(“Row”)」は現在選択しているセルになります。
つまり、5行目を選択していれば「Cell(“Row”)」は「5」になります。

「Row()」の部分は単純でセルの行数を指します。
つまり、7行目の書式の「Row()」は「7」のように、
そのセルの行数を出力します。

つまり「Cell(“Row”)=Row()」とする事で
選択した行に対して対象の行がイコールになれば、設定した書式になります。

次に書式の設定です。
メニューから「書式」を選択すると以下のようなメニューが表示されます。

そこから「塗りつぶし」タブを選択して色を選択します。
ちなみに今回は「塗りつぶし」ですが文字の色を変えたい場合は「フォント」のタブから
色を選択すれば可能になります。

今回は黄色にしてみました。
これで対象の表のセルを選択すると、選択した行数に合わせてその行が「黄色」になります。

では動作確認してみましょう。
「9行目」を選択して、「数式」タブから「再計算実行」をしてみたいと思います。

結果はこのようになります。

「9行目」が黄色に変わりました。

今回は行に色を付けましたが列やセル、または行と列などの条件も見本で用意しました。

列:Cell(“COL”)=Column()

行と列：OR(Cell(“Row”)=Row(),Cell(“COL”)=Column())

セル：AND(Cell(“Row”)=Row(),Cell(“COL”)=Column())

しかし、ここまで出来たものの「再計算」をしないと色が変わらないのは不便ですよね。
この現象の理由としては「条件付き書式」は再計算をしたタイミングで反映されるので、
「再計算」をさせるか、「セルをダブルクリックして編集した後にEnterで確定（計算方法の設定が自動に限る）」になります。

この問題を解決するためにマクロVBAで再計算を自動で行うプログラムを組んでいきます。

②マクロVBAで自動的に再計算を実行する

では自動的に再計算を実施する方法について説明します。
まず、visual basicの画面を開きましょう。

visual basicの画面の出し方についてはこちらから☟

【マクロVBA】プログラム・ソースコードを入力するためのモジュール作成・削除・名前の変更について ► 独学エクセル塾 (dokugakuexcel.com)

そして対象のシートを選択します。
ここでは「見本シート」になります。

こちらにコードを書き込むのですが先に書き込むコードを紹介します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calculate
End sub

VBAのコードを知らない方、知らなくても良いという方は
すでに機能していると思うので試してみてください。

ではコードの説明をしていきます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
の意味は「セルの選択が変更された時に実行する」という機能を持ちます。

つまり、マウスで別のセルを選択したり、矢印キーで
セルの選択の移動をした際にプロシージャ（プログラム）が実行されます。

その下に「calculate」がありますが
これは「計算の実行」を指します。つまり、再計算をしてくれるコードです。

では先程のシートに戻りましょう。

セルをクリックまたはし矢印キーで表を動かした結果はこちらです。

セルの選択に合わせて対象行が塗りつぶされて、
現在選んでいる行がわかりやすくなりました。

⬛︎応用:セルを動かすたびに動きが遅くなる原因

今回の機能を追加して、動作が遅くなった場合は
ファイル自体に多くの関数を使っているのかもしれません。

セルの選択を変えると表以外の関数も再計算が実行されます。

つまり関数を大量に使用していれば、その都度計算を実行するので処理に時間がかかるメカニズムです。

そこで対処法として、「指定範囲内のセルの選択のみ計算を実行する」ことで、

不要な再計算をなくす事ができます。

ではコードを紹介します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row >= 3 And Target.Row <= 13 And Target.Column >= 2 And Target.Column <= 7 Then
Calculate
End If
End Sub

仕組みとして、選択したセルの情報は「target」に格納されます。
そこから選択したセルの行数と列数を検出し、対象範囲だった場合に再計算をさせるコードになっています。

見本では行数は「3から13」、列数は「2から7」で再計算を実行します。

これにより、表以外を選択しても不要な再計算をしなくてもいいので
余分なロスがなくなります。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

Worksheet.Calculate メソッド (Excel) | Microsoft Learn

Worksheet.SelectionChange イベント (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
今回の内容を応用すると表の入力箇所が、どの項目に打ち込んでいるのか分かりやすくなるので
とても便利になります。

VBAを触った事がない方は
少し、難しい内容ですがこれを機にVBAを学ぶのも良いかもしれません。

それでは次回の記事でお会いしましょう。

この機能はマクロVBAでも設定・変更が可能です。

今回は図形を塗りつぶす方法について紹介しています。
様々な方法を紹介していますので是非参考にしてみてください。

図形の枠の色の変更方法についてはこちらから☟

【マクロVBA】図形の枠の色の設定・変更方法！ Line.ForeColorとRGB等の使い方 ► 独学エクセル塾 (dokugakuexcel.com)

それでは見ていきましょう。

⬛︎忙しい人向けのコピペ用プログラム

Sub 変数を応用して図に色をRGBで塗りつぶす()
Dim Target, Red As Long, Green As Long, Blue As Long
Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

⬛︎構文の説明

今回は３パターン紹介しています。
使用方法は後ほど紹介しています。

①RGBでの塗りつぶし
Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.RGB = RGB(Rの数値,Gの数値,Bの数値)

②SchemeColorでの塗りつぶし
Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.SchemeColor = ここに1から80の数値

③ObjectThemeColorでの塗りつぶし
Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.ObjectThemeColor = テーマの配色の名前または値

　
※配色については下記表を参照してください。

⬛︎図の塗りつぶしをする

先程は３つの塗りつぶしの構文を紹介しました。
それでは実際にそれぞれの使用方法を紹介します。

①RGBでの塗りつぶし

まずはRGBで色をつける方法を見ていきましょう。
RGBとは「RED:赤」「Green:緑」「Blue:青」の原色を意味しており、
この3色を混ぜて色を指定します。

各数値は「0から255」で指定します。
では構文を再度確認しましょう。

Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.RGB = RGB(Rの数値,Gの数値,Bの数値)

Activesheet.Shapesの後に図形の名前を入力します。
図の名前は図を選択した際に左上の「名前のボックス」から確認することができます。

「変数= Selection.Name」で選択している図の名前を変数に格納して活用することも可能です。

一方、RGBの方はRGB(赤の要素,緑の要素,青の要素)のように指示します。

ちなみに各要素の数値が大きければ各原色は濃くなります。
一例を紹介すると下記の通りです。

白:RGB(0,0,0)
黒:RGB(255,255,255)
赤:RGB(255,0,0)
黄色:RGB(255,255,0)
青:RGB(0,0,255)

では実際にプログラムを作成してみましょう。
見本として下図のシートを用意しました。

今回は見本で「見本図」という名前をつけた図を用意しました。
こちらを塗りつぶしてみたいと思います。

例で赤色に塗りつぶしてみましょう。
プログラムはこのようになります。

Sub 図に色をRGBで塗りつぶす()
ActiveSheet.Shapes("見本図").Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

それでは実行してみましょう。
結果はこのようになりました。

見本図を赤く塗りつぶすことができましたね。

選択している図の色を変更したい場合はこちらです。

Sub 図に色をRGBで塗りつぶす()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

②SchemeColorでの塗りつぶし

次に「SchemeColor」で塗りつぶす方法を見ていきましょう。

では再度、構文を確認したいと思います。

Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.SchemeColor = ここに1から80の数値

こちらの方法は「ForeColor.SchemeColor」で塗りつぶしを宣言し、「＝」の後に
「0から80」の数値を指定します。

では見本で「6」で実行してみましょう。

今回も下図の「見本図」の色を変えたいと思います。

プログラムはこちらです。

Sub 図に色をSchemeColorで塗りつぶす()
ActiveSheet.Shapes("見本図").Fill.ForeColor.SchemeColor = 6
End Sub

それでは実行してみましょう。
結果はこのようになります。

「見本図」の色が変わりました。

では「SchemeColor」の1から80の色はどのようなものか
下図の一覧で確認してみましょう。

一応確認用の図を表示させるプログラムを載せています。

Sub SchemeColorの色一覧()

Dim CycleR As Long, CycleC As Long, No As Long
Dim TargetLeft, TargetTop, TargetWidth, TargetHeight

No = 1
For CycleC = 1 To 10 Step 3
 For CycleR = 1 To 20 Step 1
  TargetLeft = Cells(CycleR, CycleC).Left
  TargetTop = Cells(CycleR, CycleC).Top
  TargetWidth = Cells(CycleR, CycleC).Width
  TargetHeight = Cells(CycleR, CycleC).Height
  With ActiveSheet.Shapes.AddShape(msoShapeRectangle, TargetLeft, TargetTop, TargetWidth, TargetHeight)
        .Fill.ForeColor.SchemeColor = No
  End With
  Cells(CycleR, CycleC + 1) = ":" & No
  No = No + 1
 Next CycleR
Next CycleC

End Sub

選択している図の色を変更したい場合はこちらです。

Sub 図に色をSchemeColorで塗りつぶす1()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.SchemeColor = 5
End Sub

③ObjectThemeColor

こちらは設定しているテーマを活用した貼り付け方法になります。
テーマとは色を塗りつぶす際の初めに表示されるデフォルトの色になります。

つまり、こちらの方法で塗りつぶした場合、「ページレイアウト」の「配色」の設定を変えると
その配色に合わせて色が変化します。
テーマに沿った塗りつぶしをしたい場合に使えそうですね。

では構文を見てみましょう。

Activesheet.Shapes (“ここに図形の名前”).Fill.ForeColor.ObjectThemeColor = テーマの配色の名前または値

ここでの「テーマの配色」は「名前」または「値」が当てはまります。
一覧に関しては下記の表をご参照ください。

ちなみにテーマと値を比較すると下図のようになります。

では実際に図を塗りつぶしてみたいと思います。
今回も下図の「見本図」の色を変えたいと思います。

Sub 図に色をObjectThemeColorで塗りつぶす()
ActiveSheet.Shapes("見本図").Fill.ForeColor.ObjectThemeColor = msoThemeColorAccent3
End Sub

今回は「msoThemeColorAccent3」としていますが「7」でも問題ありません。
実行した結果はこちらのです。

「見本図」の色が変わりました。
先ほどの配色の表の通りに色が変化しましたね。

では見本で配色を変えてみましょう。
このようになります。

配色に合わせて図の色も変化しました。

選択している図の色を変更したい場合はこちらです。

Sub 図に色をObjectThemeColorで塗りつぶす()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.ObjectThemeColor = 7
End Sub

⬛︎オススメの図に塗りつぶしをする方法

これまで3つの方法で図に塗りつぶしをする方法を紹介しましたが、
オススメを挙げるとすると「RGB」での指定になります。

理由としては下記の内容になります。

・色の調整や変更を計算や変数で応用できる
・RGBでの指定はどの条件でも変わらない（ObjectThemeColorは配色の設定で変わる）

例を見ていきます。
下記のプログラムを用意しました。

Sub 変数を応用して図に色をRGBで塗りつぶす()
Dim Target, Red As Long, Green As Long, Blue As Long
Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力
Target = Selection.Name
ActiveSheet.Shapes(Target).Fill.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

通常RGBの値を数値で入力していましたが、
見本のように変数を活用することができます。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

FillFormat.ForeColor プロパティ (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
VBAでも図の塗りつぶしをできるのは便利ですね。

是非参考にしてみてください。

それでは次回の記事でお会いしましょう。