教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA セル操作】セルの背景色(Interior.ColorIndex)を変更する方法を教えて!

f:id:m_kbou:20211210094224p:plain

セルの背景色を変更するにはInterior.ColorIndexプロパティを使用します。この背景色を変更する方法について紹介します。

 

 

構文

記述方法は以下の通りとなります。

Range(”[セル範囲]”).Interior.ColorIndex = [色番号]

[説明]:

セルの背景色を変更するには

 「Range(”[セル範囲]”).Interior.ColorIndex = [色番号]」

と記述します。

[セル範囲] 背景色を変更するセル範囲を記述します。
※「”」(ダブルクォーテーション)で囲みます。
[色番号] 背景色の色番号を記述します。
※色番号の種類は以下一覧を参考にして下さい。

f:id:m_kbou:20210601065424p:plain

※上記の設定は、Excelメニューにある<塗り潰しの色>ボタンと同じ意味になります。

f:id:m_kbou:20211210094239p:plain

[記述例]:

Range("A1").Interior.ColorIndex = 3
Range("A1").Interior.ColorIndex = 5
Range("A1").Interior.ColorIndex = 10
Range("A1").Interior.ColorIndex = 0

 

使い方

使い方について具体的に説明します。

背景色を「赤」に変更する方法

背景色を赤色に変更する方法について説明します。

[プログラミング例]:

Sub 赤色()

  Range("A1").Interior.ColorIndex = 3
  MsgBox "背景色を赤色に変更しました。"

End Sub

内容は、「A1セルの背景色を赤色に変更し、最後にMsgBoxで”背景色を赤色に変更しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20211210094256p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①A1セルは背景色が付いていない状態です。<赤色>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20211210094316p:plain

②結果は以下の様になります。A1セルの背景色が赤色に変更され、A1セルに隠れていた「セルの背景色を変更する」が表示されます。また、MsgBoxで「背景色を赤色に変更にしました。」が表示されます。

f:id:m_kbou:20211210094328p:plain

背景色を赤色に変更する方法についての説明は以上です。

 

背景色を「青」に変更する方法

背景色を青色に変更する方法について説明します。

[プログラミング例]:

Sub 青色()

  Range("A1").Interior.ColorIndex = 5
  MsgBox "背景色を青色に変更しました。"

End Sub

内容は、「A1セルの背景色を青色に変更し、最後にMsgBoxで”背景色を青色に変更しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20211210094341p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①A1セルは背景色が付いていない状態です。<青色>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20211210094355p:plain

②結果は以下の様になります。A1セルの背景色が青色に変更され、A1セルに隠れていた「セルの背景色を変更する」が表示されます。また、MsgBoxで「背景色を青色に変更にしました。」が表示されます。

f:id:m_kbou:20211210094407p:plain

背景色を青色に変更する方法についての説明は以上です。

 

背景色を「緑」に変更する方法

背景色を緑色に変更する方法について説明します。

[プログラミング例]:

Sub 緑色()

  Range("A1").Interior.ColorIndex = 10
  MsgBox "背景色を緑色に変更しました。"

End Sub

内容は、「A1セルの背景色を緑色に変更し、最後にMsgBoxで”背景色を緑色に変更しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20211210094508p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①A1セルは背景色が付いていない状態です。<緑色>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20211210094423p:plain

②結果は以下の様になります。A1セルの背景色が緑色に変更され、A1セルに隠れていた「セルの背景色を変更する」が表示されます。また、MsgBoxで「背景色を緑色に変更にしました。」が表示されます。

f:id:m_kbou:20211210094451p:plain

背景色を緑色に変更する方法についての説明は以上です。

 

背景色を「色無し」に変更する方法(元に戻す)

背景色を色無しに変更する方法について説明します。

[プログラミング例]:

Sub 色無し()

  Range("A1").Interior.ColorIndex = 0
  MsgBox "背景色を色無しに変更しました。"

End Sub

内容は、「A1セルの背景色を色染め無しに変更し、最後にMsgBoxで”背景色を色無しに変更しました。”のメッセージを表示して下さい。」との意味になります。(※色無しにする場合は、色番号を「0」にします。)

f:id:m_kbou:20211210094525p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①A1セルの背景色が緑色に染められており「セルの背景色を変更する」の文字が表示されています。<色無し>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20211210094538p:plain

②結果は以下の様になります。A1セルの背景色が色無しとなり、MsgBoxで「背景色を色無しに変更しました。」が表示されます。

f:id:m_kbou:20211210094551p:plain

背景色を色無しに変更する方法についての説明は以上です。

 

 

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

 

おわりに

今回は背景色の変更方法について説明しました。是非覚えておいて下さい。