ExcelのVBAを使って「特定のセルの文字色を変更したい」と思ったことはありませんか？
例えば、条件に応じて文字色を赤や青に変えれば、視認性が高まり、可視化にも役立ちます。
今回は、VBAを使ってセルのフォントカラーを変更する方法をご紹介いたします。
VBAで文字色を変えるには .Font.Color = RGB() を使う
VBAでは、フォントの色（文字色）を変えるには、以下の構文を使います。
vbaコピーする編集するRange("A1").Font.Color = RGB(255, 0, 0)
ここで使っている RGB() 関数は、Red・Green・Blue の3つの値を指定して色を決定します。
使用例：セルA1の文字色を赤に変更するコード
Sub ChangeFontColor()
With Cells(1, 1) ' A1セルに対応
.Font.Color = RGB(255, 0, 0) ' 赤色に設定
End With
End Sub
このコードを実行すると、セルA1の文字色が赤に変わります。
RGB関数で指定できる色の例
| 色名 | RGB値 | サンプルコード |
|---|---|---|
| 赤 | RGB(255, 0, 0) | .Font.Color = RGB(255, 0, 0) |
| 青 | RGB(0, 0, 255) | .Font.Color = RGB(0, 0, 255) |
| 緑 | RGB(0, 255, 0) | .Font.Color = RGB(0, 255, 0) |
| 黒 | RGB(0, 0, 0) | .Font.Color = RGB(0, 0, 0) |
| グレー | RGB(128, 128, 128) | .Font.Color = RGB(128, 128, 128) |
応用：条件に応じてフォントカラーを変更する
条件分岐（If文）と組み合わせれば、特定の条件に応じて色を変える処理も可能です。
vbaコピーする編集するIf Cells(2, 1).Value = False Then
Cells(2, 1).Font.Color = RGB(255, 0, 0) ' 条件がFalseなら赤
Else
Cells(2, 1).Font.Color = RGB(0, 0, 0) ' 条件がTrueなら黒
End If
このようにすれば、自動的にエラーや異常値を目立たせるといった用途にも活用できます。
まとめ
VBAでセルの文字色（フォントカラー）を変えるには、以下の構文を使います。
vbaコピーする編集するセル指定.Font.Color = RGB(R, G, B)
RGB(255, 0, 0)→ 赤RGB(0, 0, 255)→ 青RGB(0, 255, 0)→ 緑
条件付きで色を変えたいときも、If文と組み合わせることで柔軟に対応できます。
日々の業務の中で、データの視認性向上や、エラー可視化の補助ツールとして、ぜひご活用ください。
スクールの紹介
【アイデミー】AIを学んで一発逆転のキャリアチェンジ！
最後に宣伝をさせてください。
夢見るAIエンジニアへ、今こそ一歩を踏み出せ！
最近、AI技術やデータサイエンスに興味を持ち始めたあなた。将来、AIエンジニアやデータサイエンティストとして活躍したいと考えているかもしれません。また、AIを使って業務課題や研究課題を解決したい、あるいは教養としてAIの知識を深めたいと思っている方もいるでしょう。
しかし、学び始めるとなると「どこから手をつけて良いのか分からない」「専門的すぎて理解できない」といった悩みが生じることも。そんなあなたのために、この3ヶ月間集中してAIプログラミングを習得するオンラインコーチングサービスがオススメです！
なぜこのサービスが選ばれるのか？その理由はこちら
- 初心者から上級者まで
完全なプログラミング初心者から研究者まで、幅広い方々に優良なコンテンツが提供されます。 - 徹底的な進捗管理
受講者の進捗をしっかりとチェックし、つまずきやすいポイントでのフォローが万全です。 - 専属メンターによる徹底サポート
AIの学び方から、実際の適用まで、専属のメンターが手厚くサポートします。 - 場所を選ばず学べるオンライン完結
東京以外の地域からも、気軽に学び始めることができます。
信頼の実績多数！
・日本最大級のプログラミングスクール実績
・受講者総数700名以上
・SaaS型学習サービス会員65,000名以上
・企業導入実績120社以上
・グッドデザイン賞受賞
・著名な賞受賞歴や経団連加盟も実現
夢を叶えるための第一歩を、一緒に踏み出しませんか？今なら、あなたもその一員として学び始めることができます！
