Vbaでフォントの色を変更する方法（3つの方法）

VBA を使用して Excel のフォントの色を変更するには、次のいずれかの方法を使用できます。

方法 1: VBA の色名を使用してフォントの色を変更する

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

この特定のマクロは、セルA1のフォントの色を赤に変更します。

方法 2: RGB 値を使用してフォントの色を変更する

 SubChangeColor ()
Range(" A1 ").Font.Color = RGB(255,0,0)
End Sub

この特定のマクロは、セルA1のフォントの色を、たまたま赤である (255,0,0) の RGB (赤、緑、青) 値と一致する色に変更します。

方法 3: 16 進数のカラー コードを使用してフォントの色を変更する

 SubChangeColor ()
Range(" A1 ").Font.Color = &H0000FF
End Sub

この特定のマクロは、セルA1のフォントの色を 16 進数のカラー コード #FF0000 に対応する色に変更します。

注 #1: VBA で使用する 16 進カラー コードを 16 進カラー コードとして認識するには、その 16 進カラー コードの前に「&H」と入力する必要があります。

注 #2: 16 進カラー コードは通常 6 文字で表され、最初の 2 文字は赤のコードを表し、中央の 2 文字は緑のコードを表し、最後の 2 文字は青のコードを表します。

ただし、Excel は最初の 2 つの値を最後の 2 つの値に置き換えます。したがって、赤の 16 進カラー コードは FF0000 ですが、代わりに 0000FF と入力する必要があります。

次の例は、各メソッドを実際に使用する方法を示しています。

例 1: VBA の色名を使用してフォントの色を変更する

セルA1に、現在フォントの色が黒であるテキストがあるとします。

次のマクロを作成して、セルA1のフォントの色を赤に変更できます。

 SubChangeColor ()
Range(" A1 ").Font.Color = vbRed
End Sub

このマクロを実行すると、次の出力が表示されます。

セルA1のフォントの色が赤になっていることに注目してください。

例 2: RGB 値を使用してフォントの色を変更する

A1:A5の範囲に、現在フォントの色が黒であるテキスト文字列があるとします。

次のマクロを作成して、セルA1:A5のフォントの色を赤に変更できます。

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = RGB(255,0,0)
End Sub

このマクロを実行すると、次の出力が表示されます。

A1:A5の範囲内の各セルのフォントの色が赤になっていることに注目してください。

例 3: 16 進数のカラーコードを使用してフォントの色を変更する

もう一度、範囲A1:A5にテキスト文字列があり、そのフォントの色が現在黒であると仮定してみましょう。

次のマクロを作成して、セルA1:A5のフォントの色を赤に変更できます。

 SubChangeColor ()
Range(" A1:A5 ").Font.Color = &H0000FF
End Sub

このマクロを実行すると、次の出力が表示されます。

A1:A5の範囲内の各セルのフォントの色が赤になっていることに注目してください。

注: VBA Font.Colorプロパティの完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: 文字列からスペースを削除する方法
VBA: 文字列内の文字を置換する方法
VBA: 書式付きの行を挿入する方法