Categories: VBA

VBAで色を設定する│文字の色、塗りつぶしのコードを紹介します

この記事では、VBAでExcelのセルに入力された文字に色を設定したり、セルを塗りつぶす方法を実際のVBAコードを含めて紹介します。

文字に色を設定したり、セルを塗りつぶす操作は、Excelでも日常的に行う操作のひとつです。

VBAを学習するうえでも優先度の高い内容となりますので、早速VBAコードを見ていきましょう。

VBA│文字に色を設定する

この章では、セルA1に入力されている文字に色(赤)を設定するVBAコードを紹介します。

基本構文

object. Font.Color = RGB(255, 0, 0)

  • object = 文字に色を設定する対象のセル
    この例では、A1です
  • Font = フォントを設定するプロパティ
    この例では、Fontの後に記述されているColor(色)です
  • Color = 色を指定するプロパティ
  • RGB() = 赤・緑・青の割合
    この例では、赤(255,0,0)です

Rangeプロパティ

Sub Sample()

Range(“A1”).Font.Color = RGB(255, 0, 0)


End Sub

Cellsプロパティ

Sub Sample()

Cells( 1 , 1 ).Font.Color = RGB(255, 0, 0)


End Sub

VBA│セルを塗りつぶす

この章では、セルA1を塗りつぶす(青)VBAコードを紹介します。

基本構文

object. Interior.Color = RGB(0, 0, 255)

  • object = 塗りつぶす対象のセル
    この例では、A1です
  • Interior = セルを塗りつぶすプロパティ
  • Color = 色を指定するプロパティ
  • RGB() = 赤・緑・青の割合
    この例では、青(0,0,255)です

Rangeプロパティ

Sub Sample()

Range(“A1”).Interior.Color = RGB(0, 0, 255)


End Sub

Cellsプロパティ

Sub Sample()

Cells( 1 , 1 ).Interior.Color = RGB(255, 0, 0)


End Sub

補足│ColorIndexについて

今回の記事では、文字の色塗りつぶし共に、Colorプロパティを使って説明しましたが、色を設定するプロパティは他にもあります。

ColorIndexプロパティ

ColorIndexプロパティを使えば、もう少し簡単に色を設定することができます。

Sub Sample()

Range(“A1”).Font.ColorIndex = 3


End Sub

ColorIndexプロパティは、個々のExcelで設定しているパレットの色を数字で指定する方法で、1~56までの56通りの色を数値で設定することができます。

Excelのパレットの色

Excelの[ファイルタブ] → [その他] → [オプション] → [保存]でパレットの色を設定することができます。

Colorプロパティとの違い

ColorIndexプロパティは、ユーザーがよく使うお気に入りのような位置付けの「(色)パレット」から指定するのに対して、ColorプロパティはRGBの割合で色を指定します。(どのパソコンでも共通する絶対的な色)

また、Colorプロパティは、RGBそれぞれ「0~255までの256通り」設定することができますので、つまり256の3乗分、16,777,216通りの色を設定することができます。

Webs

元事務処理担当者として、プログラミングを活用した業務改善を推進している。プログラマ出身ではない事務職の現場目線で情報を発信。 その他、webs-studio.jpをメインに、複数のブログサイトを立ち上げており、合計で月間10万PVのメディア運営を行っている。 姉妹サイト一覧