VBAでExcelテキストのフォントの色を設定するにはどうすればよいですか？

このチュートリアルでは、Visual Basic for Applications（VBA）を使用して、セルの内容に基づいてExcelセルのテキストのサイズとスタイルを変更する方法を学習します。このチュートリアルは、Excel 365、2021、2019、および2016に適用されます。

予選

Excel VBA開発に不慣れな場合は、チュートリアルを実行する前に、ExcelVBAマクロ入門書を確認することをお勧めします。

コーディングを開始する前に、リボンのExcelで開発者タブを有効にする必要があります。有効にしないと、Visual BasicEditorにアクセスできなくなります。

VBAを使用してExcelのセルテキストのプロパティを変更する

スプレッドシートを定義する

例として使用するExcelスプレッドシートを定義することから始めます。このチュートリアルに従うためにそれを自由に使用してください。

Microsoft Excelを開き、 Excel_Macros.xlsmという名前の新しいマクロ対応Excelブック（.xlsm）を作成します。
スプレッドシートをローカルドライブに保存します。
Sheet1ワークシートで、先に進み、以下の表を追加します。

次に、リボンから[数式]をクリックします。
次に、[名前の定義]をクリックします。
以下に示すように、VBAコードを適用する名前付き範囲を定義し、[ OK ]をクリックします。

Cell.Font VBAプロパティを使用して、フォントの色とスタイルを変更します

[開発者]タブに移動します。
次に、先に進み、VisualBasicボタンを押します。
左側のプロジェクトエクスプローラーで、 Excel_Macros.xlsmプロジェクトを強調表示し、 [挿入]をクリックして[モジュール]を選択します。
Module1という名前の新しいVBAモジュールが作成されます。
先に進み、新しく作成したモジュールに次のコードを貼り付けます。

Sub Color_Cell_Text_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Completion_Status")

'loop through all cells in the range
For Each MyCell In StatusRange

StatValue = MyCell.Value

'modify the cell text values as needed.
Select Case StatValue

    'green
    Case "Progressing"
    With MyCell.Font
        .Color = RGB(0, 255, 0)
        .Size = 14
        .Bold = True
     End With

    'orange
    Case "Pending Feedback"
    With MyCell.Font
        .Color = RGB(255, 141, 0)
        .Size = 14
        .Bold = True
    End With
    
    'red
    Case "Stuck"
    With MyCell.Font
        .Color = RGB(255, 0, 0)
        .Size = 14
        .Bold = True
    End With

End Select

Next MyCell

End Sub

VisualBasicエディタの[保存]ボタンをクリックします。
次に、[実行]をクリックしてから、[サブ/ユーザーフォームの実行]を選択します（または単にF5キーを押します）。
Sheet1ワークシートに移動し、変更点を確認します。テーブルエントリには、テキストに応じて複数のカラーコードが割り当てられ（RGBカラー機能を使用）、テキストを太字に設定してサイズを大きくしています。