練習問題と内容について

・練習問題の狙い

このシリーズでは課題を元にマクロVBAを実践することでスキルを身につけることが出来ます。

正直、ソースコード作成については実践あるのみです！

答えのコードについては数例挙げますが、「もっといい答えがある」などの意見があれば

問い合わせから連絡ください！  

こんな問題を作ってほしいなどの意見もお待ちしております！

・練習問題9について

こちらはマクロVBAの初歩的な知識になります。

指定されたセルの文字色やセルの塗りつぶし色を変更する練習問題となります。

それでは頑張っていきましょう！

練習問題の内容と動作説明

問題内容

セル番地B2の文字を赤色に塗りつぶし、B4のセルを青色に塗りつぶす

動作説明

VBAを使用して、指定されたセルの文字色やセルの塗りつぶし色を変更します。

この問題では、セル番地B2の文字を赤色に塗りつぶし、B4のセルを青色に塗りつぶす必要があります。

ヒント

以下のヒントを参考にして解答コードを作成してみてください。

・ヒントその1

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。

例えば、Range(“B2”).Font.Color= RGB(255, 0, 0)というコードを使って、
セルB2の文字色を赤色に変更することができます。

・ヒントその2

セルの塗りつぶし色を変更するには、InteriorオブジェクトのColorプロパティを使用します。

例えば、Range(“B4”).Interior.Color = RGB(0, 0, 255)というコードを使って、
セルB4の塗りつぶし色を青色に変更することができます。

これらのヒントを参考にして、解答コードを作成してみてください。  

解答コード

では回答を見ていきましょう！

・回答その①

上記のコードは、セル番地B2の文字色を赤色に、
セル番地B4の塗りつぶし色を青色に変更するVBAのマクロです。

文字の色を塗りつぶす際は下記のように指定します。

・回答その②

必要な知識

この問題を解くためには、以下の基本的な知識が必要です。

セルの文字色の変更

セルの文字色を変更するには、FontオブジェクトのColorプロパティを使用します。
文字色はRGB値（赤、緑、青）で指定されます。
例えば、赤色は`RGB(255, 0, 0)`で表されます。

セルの塗りつぶし色の変更

 セルの塗りつぶし色を変更するには、InteriorオブジェクトのColorプロパティを使用します。
塗りつぶし色もRGB値で指定します。

回答その②で紹介した、色の定数でも問題ありません。

※色の種類は下記の表参照

セルの範囲指定

VBAでは、RangeオブジェクトやCellsオブジェクトを使用してセルを対象にします。

Rangeオブジェクトは、セルの範囲を指定する際に使用されます。例えば、Range(“A1”)はセル番地A1を指定します。
Cellsオブジェクトは、行番号と列番号を指定してセルにアクセスする際に使用されます。

例えば、Cells(1, 1)はセル番地A1を指定します。

With文の使用

With文を使用すると、同じオブジェクトに対して複数のプロパティを一括で設定できます。

今回は対象のセルに対して１つの動作でしたが、コードの可読性を向上させるために活用しましょう。

まとめ

この練習問題では、VBAを使用して特定のセルの文字色と塗りつぶし色を変更する方法について学びました。

具体的には、セル番地B2の文字を赤色に変更し、セル番地B4の塗りつぶし色を青色に変更する問題を解きました。
この問題を解くためには、セルの文字色や塗りつぶし色を変更するためのプロパティ、およびセルの範囲を指定する方法が必要でした。

VBAを使うことで、Excelの操作を自動化したり、複雑な計算や処理を行ったりすることができます。
練習問題を通じて、VBAのスキルを向上させ、より高度な操作や処理を行えるようになることを目指しましょう。

次の練習問題では、さらに別の課題に取り組んでいきますので、順番に解いていくことでスキルを磨いていきましょう。
以上で練習問題9となります。お疲れ様でした！

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

今回は図形の枠に色を付ける方法について紹介しています。
様々な方法を紹介していますので是非参考にしてみてください。

図形の塗りつぶしについてはこちらから☟

【マクロVBA】図形の塗りつぶし・色の設定方法！ Fill.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).Line.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

⬛︎構文

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

①RGBで図形の枠に色を付ける方法
Activesheet.Shapes (“ここに図形の名前”).Line.ForeColor.RGB = RGB(Rの数値,Gの数値,Bの数値)

②SchemeColorで図形の枠に色を付ける方法
Activesheet.Shapes (“ここに図形の名前”).Line.ForeColor.SchemeColor = ここに1から80の数値

③ObjectThemeColorで図形の枠に色を付ける方法
Activesheet.Shapes (“ここに図形の名前”).Line.ForeColor.ObjectThemeColor =テーマの配色の名前または値

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

⬛︎図の枠に色を付けるをする

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

①RGBで図形の枠に色を付ける方法

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

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

Activesheet.Shapes (“ここに図形の名前”).Line.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("見本図").Line.ForeColor.RGB = RGB(255, 0, 0)
End Sub

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

見本の図の枠の色を赤くすることができました。

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

Sub 図の枠の色をRGBでつける()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Line.ForeColor.RGB = RGB(255, 0, 0)
End Sub

②SchemeColorで図形の枠に色を付ける方法

次に「SchemeColor」で図形の枠に色を付ける方法を見ていきましょう。

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

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

こちらの方法は「ForeColor.SchemeColor」で枠に色を付けるを宣言し、「＝」の後に
「0から80」の数値を指定します。

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

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

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

Sub 図の枠の色をSchemeColorでつける()
ActiveSheet.Shapes("見本図").Line.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)
　　.Line.ForeColor.SchemeColor = No
　　End With
　　Cells(CycleR, CycleC + 1) = ":" & No
　　No = No + 1
　Next CycleR
Next CycleC

End Sub

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

Sub 図の枠の色をSchemeColorでつける()
Dim Target As String
Target = Selection.Name
ActiveSheet.Shapes(Target).Line.ForeColor.SchemeColor = 10
End Sub

③ObjectThemeColorで図形の枠に色を付ける方法

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

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

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

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

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

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

では実際に図の枠に色を付けてみたいと思います。
今回も下図の「見本図」の色を変えたいと思います。

プログラムはこのようになります。

Sub 図の枠の色をObjectThemeColorでつける()
ActiveSheet.Shapes("見本図").Line.ForeColor.ObjectThemeColor = msoThemeColorAccent4
End Sub

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

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

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

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

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

Sub 図の枠の色をObjectThemeColorでつける()
Dim Target
Target = Selection.Name
ActiveSheet.Shapes(Target).Line.ForeColor.ObjectThemeColor = msoThemeColorAccent4
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).Line.ForeColor.RGB = RGB(Red, Green, Blue)
End Sub

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

⬛︎公式の説明

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

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

⬛︎まとめ

いかがだったでしょうか。
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でも図の塗りつぶしをできるのは便利ですね。

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

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

同じ動作をマクロVBAでも簡単に行うことができます。

様々な塗りつぶしのパターンを紹介していますので是非参考にしてみてください。
それでは見ていきましょう。

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

Sub RGBで変数を使用してセルの背景の色を変える()

Dim Red As Long, Green As Long, Blue As Long

Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力

Range("A1:D5").Interior.Color = RGB(Red, Green, Blue)

End Sub

⬛︎構文

まずは構文を説明します。

①RGBで色の指定をする

Range(“色をつけたいセル”).Interior.Color=RGB(赤の要素,緑の要素,青の要素)

②ColorIndexで色を指定する

Range(“色をつけたいセル”).Interior.ColorIndex=インデックス番号

③定数で色を指定する

Range(“色をつけたいセル”).Interior.Color=定数

※色の種類は下記の表参照

⬛︎セルの背景に色をつける

構文では「RGB」「ColorIndex」「定数」での
セルの背景に色をつけるプログラムを紹介しました。

では、実際に各内容を見ていきましょう。

・RGBで色をつける

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

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

Range(“色をつけたいセル”).Interior.Color=RGB(赤の要素,緑の要素,青の要素)

セルの背景に色をつけたいセルは番地で指定します。
例えばB3のセルを指定するときはRange(“B3”)となります。

Range(“A1:D5”)のように複数範囲でも対応可能です。

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

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

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

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

今回は例で「A1:D5」のセルの背景を「赤」にしたいと思います。
プログラムはこのようになります。

Sub RGBでセルの背景の色を変える()
Range("A1:D5").Interior.Color = RGB(255, 0, 0)
End Sub

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

A1からD5のセルの背景が赤くなりましたね。

ちなみRGBの数値を知りたい場合は
その他の色から確認が可能です。

「ホーム」タブの「塗りつぶしの色」に「v」がありますよね。

そちらを押すと下に「その他の色」があります。

そこで「ユーザー設定」を選択すると「RGB」の値が確認できます。

・ColorIndexで色を指定する

今度は「ColorIndex」でセルの背景に色をつける方法を紹介します。
ColorIndexは設定によって変わっており、「1から56」で指定します。

ではColorIndexの設定色を確認してみましょう。

まず、「ファイル」タブの「オプション」を選択します。

そこから「保存」を選択し、「ブックの外観の保持」を見てみましょう。

その中の「色」を選択してみましょう。
すると56色の色が表示されます。

この色を基にColorIndexの色が割り振られます。

なのでColorIndexの色はカスタマイズが可能ということです。

ではセルの背景に色をつけてみましょう。
構文はこのようになります。

Range(“色をつけたいセル”).Interior.ColorIndex=インデックス番号

セルの背景に色をつけたいセルは先程と同様に番地で指定します。

インデックス番号は「1から56」の数値です。
今回は見本で「A1:D5」の範囲にインデックス番号「5」で実行してみましょう

プログラムはこのようになります。

Sub ColorIndexでセルの背景の色を変える()
Range("A1:D5").Interior.ColorIndex = 5
End Sub

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

「A1からD5」のセルの背景の色が青色になってますね。

ではインデックス番号と色を確認するプログラムを紹介します。

Sub ColorIndexの設定色を確認する()

Dim R, C, ColorNo

ColorNo = 1

For C = 1 To 6 Step 1
　For R = 1 To 10 Step 1
　　Cells(R, C).Interior.ColorIndex = ColorNo
　　Cells(R, C) = ColorNo
　　ColorNo = ColorNo + 1
　　　If ColorNo = 57 Then
　　　　Exit Sub
　　　End If
　Next R
Next C

End Sub

実行した結果はこちらです。

この結果と、先程のブックの外観の保持の色を比較すると
インデックス番号と設定した色はバラバラに割り振られていることがわかります。

上記プログラムを実行して、
設定がどうなっているのか確認するのも手ですね。

・定数で色を指定する

これまではRGBでの色の指定やColorIndexのインデックス番号のように
数値で色の指定をしましたが、今回は定数で指定します。

構文は下記の通りです。

Range(“色をつけたいセル”).Interior.Color=定数

セルの背景に色をつけたいセルはこれまでと同様に番地で指定します。

色の指定では下記表のようにセルの背景を入力します。

黒であれば「vbBlack」、緑であれば「vbGreen」のように
「vb」の後に色のスペルを入れるのが特徴です。
しかしこれだけでは種類が少ないですよね。

そこで「xl」の後に複雑な色を指定することも可能です。
リンクは下記を参照してください☟

XlRgbColor 列挙 (Excel) | Microsoft Learn
では見本を見ていきましょう。

今回は見本で「A1:D5」の範囲に定数を「vbMagenta」で実行してみましょう

プログラムはこのようになります。

Sub 定数でセルの背景の色を変える()
Range("A1:D5").Interior.Color = vbMagenta
End Sub

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

「A1からD5」のセルの背景の色が紫色になってますね。

⬛︎オススメのセルの背景に色をつける方法

これまで3つのセルの背景に色をつける方法を紹介しましたが、
オススメを挙げるとすると「RGB」での指定になります。

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

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

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

Sub RGBで変数を使用してセルの背景の色を変える()

Dim Red As Long, Green As Long, Blue As Long

Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力

Range("A1:D5").Interior.Color = RGB(Red, Green, Blue)

End Sub

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

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

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

Interior.Color プロパティ (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
VBAでもセルの背景の色を設定できるのは便利ですね。

例えばIFで条件に当てはまるセルの背景色の色を変更するといったことも可能です。
是非参考にしてみてください。

また、文字に色を付ける方法も下記の記事にまとめています☟

【マクロVBA】文字に色をつける・設定・変更！ Font.ColorとRGB・Index・定数で変更 ► 独学エクセル塾 (dokugakuexcel.com)

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

【基本操作】初心者必見！エクセルで文字のフォント・色・大きさ・アンダーライン・太字への変え方 ► 独学エクセル塾 (dokugakuexcel.com)

同じ動作をマクロVBAでも行うことができます。

様々な変更方法を紹介していますので是非参考にしてみてください。
それでは見ていきましょう。

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

Sub RGBで変数を使用して文字の色を変える()

Dim Red As Long, Green As Long, Blue As Long

Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力

Range("A1:D5").Font.Color = RGB(Red, Green, Blue)

End Sub

⬛︎構文の仕組み

まずは構文を説明します。

①RGBで色の指定をする

Range(“色をつけたいセル”).Font.Color=RGB(赤の要素,緑の要素,青の要素)

②ColorIndexで色を指定する

Range(“色をつけたいセル”).Font.ColorIndex=インデックス番号

③定数で色を指定する

Range(“色をつけたいセル”).Font.Color=色の定数

※色の種類は下記の表参照

⬛︎文字に色をつける

構文では「RGB」「ColorIndex」「定数」での文字に色をつける構文を紹介しました。

では、実際に各内容を見ていきましょう。

・RGBで色をつける

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

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

Range(“色をつけたいセル”).Font.Color=RGB(赤の要素,緑の要素,青の要素)

文字に色をつけたいセルは番地で指定します。
例えばB3の文字を指定するときはRange(“B3”)となります。

Range(“A1:D5”)のように複数範囲でも対応可能です。

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

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

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

では実際にプログラムを作成してみましょう。

今回は例で「A1:D5」の文字を「赤」にしたいと思います。
プログラムはこのようになります。

Sub RGBで文字の色を変える()
Range("A1:D5").Font.Color = RGB(255, 0, 0)
End Sub

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

A1からD5の文字が赤くなりましたね。

ちなみRGBの数値を知りたい場合はその他の色から確認が可能です。

「ホーム」タブの「フォントの色」に「v」がありますよね。

そちらを押すと下に「その他の色」があります。

そこで「ユーザー設定」を選択すると「RGB」の値が確認できます。

・ColorIndexで色を指定する

今度は「ColorIndex」で文字に色をつける方法を紹介します。
ColorIndexは設定によって変わっており、「1から56」で指定します。

ではColorIndexの設定色を確認してみましょう。

まず、「ファイル」タブの「オプション」を選択します。

そこから「保存」を選択し、「ブックの外観の保持」を見てみましょう。

その中の「色」を選択してみましょう。
すると56色の色が表示されます。

この色を基にColorIndexの色が割り振られます。

なのでColorIndexの色はカスタマイズが可能ということです。

では文字に色をつけてみましょう。
構文はこのようになります。

Range(“色をつけたいセル”).Font.ColorIndex=インデックス番号

文字に色をつけたいセルは先程と同様に番地で指定します。

インデックス番号は「1から56」の数値です。
今回は見本で「A1:D5」の範囲にインデックス番号「5」で実行してみましょう

プログラムはこのようになります。

Sub ColorIndexで文字の色を変える()
Range("A1:D5").Font.ColorIndex = 5
End Sub

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

「A1からD5」の文字の色が青色になってますね。

ではインデックス番号と色を確認するプログラムを紹介します。

Sub ColorIndexの設定色を確認する()
Dim R, C, ColorNo
ColorNo = 1
For C = 1 To 6 Step 1
For R = 1 To 10 Step 1
Cells(R, C).Font.ColorIndex = ColorNo
Cells(R, C) = ColorNo
ColorNo = ColorNo + 1
If ColorNo = 57 Then
Exit Sub
End If
Next R
Next C
End Sub

実行した結果はこちらです。

この結果と、先程のブックの外観の保持の色を比較すると
インデックス番号と設定した色はバラバラに割り振られていることがわかります。

上記プログラムを実行して、
設定がどうなっているのか確認するのも手ですね。

・定数で色を指定する

これまではRGBでの色の指定やColorIndexのインデックス番号のように
数値で色の指定をしましたが、今回は定数の文字で指定します。

構文は下記の通りです。

Range(“色をつけたいセル”).Font.Color=色の定数

文字に色をつけたいセルはこれまでと同様に番地で指定します。

色の指定では下記表のように文字を入力します。

黒であれば「vbBlack」、緑であれば「vbGreen」のように
「vb」の後に色のスペルを入れるのが特徴です。

　
しかしこれだけでは種類が少ないですよね。

そこで「xl」の後に複雑な色を指定することも可能です。
リンクは下記を参照してください☟

XlRgbColor 列挙 (Excel) | Microsoft Learn
では見本を見ていきましょう。

今回は見本で「A1からD5」の範囲に定数を「vbMagenta」で実行してみましょう

プログラムはこのようになります。

Sub 定数で文字の色を変える()
Range("A1:D5").Font.Color = vbMagenta
End Sub

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

「A1からD5」の文字の色が紫色になってますね。

⬛︎オススメの文字に色をつける方法

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

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

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

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

Sub RGBで変数を使用して文字の色を変える()

Dim Red As Long, Green As Long, Blue As Long

Red = 115 '任意のRの数値を入力
Green = 55 '任意のGの数値を入力
Blue = 100 '任意のBの数値を入力

Range("A1:D5").Font.Color = RGB(Red, Green, Blue)

End Sub

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

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

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

Font.Color プロパティ (Excel) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
VBAでも文字の色を設定できるのは便利ですね。

例えばIFで条件に当てはまる文字色の色を変更するといったことも可能です。
是非参考にしてみてください。

また、セルの背景に色を付ける方法も下記の記事にまとめています☟

【マクロVBA】セルの背景に色をつける・設定・変更！ Interior.ColorとRGBなどで指定 ► 独学エクセル塾 (dokugakuexcel.com)

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