VBAの条件に応じてExcelのセルの色を設定するにはどうすればよいですか？

最終更新日：2021年8月。Microsoft Excel 365、2019、2016。

今日のVBAfor Excel Automationチュートリアルでは、セルの値に基づいてセルの色をプログラムで変更する方法について学習します。

この手法は、たとえば、単純なステータスダッシュボードを開発するときに使用できます。

設定

まだExcelで開発していない場合は、Excelマクロの紹介ガイドを確認することをお勧めします。具体的には、Microsoft Excelリボンで[開発者]タブが使用可能であることを確認する必要があります。これは、このタブを使用して簡単なコードを作成するためです。

• MicrosoftExcelを開きます。このチュートリアルで提供されるコードは、Excel2007以降で機能することが期待されていることに注意してください。
• 空のワークシートに、次の表を追加します。

• 次に、[数式] >> [名前の定義]をクリックして、名前付き範囲を定義します。

• OKを押す

Cell.Interior.Colorを使用して値に基づいてセルの内部色を変更する

• リボンの開発者エントリを押します。
• VisualBasicまたはAlt + F11を押して、開発者のVBAエディターを開きます。
• 次に、コードを実行するワークシートを強調表示します。または、VBAコードを持つモジュールを選択します。
• 先に進み、このコードを貼り付けます。この例では、セルの範囲の内部色を、赤、黄、緑の色に対応する特定のセルRGB値に変更します。
• 具体的には、Excel VBAメソッドCell.Interior.Colorを使用して、対応するRGB値またはカラーインデックスを渡します。

Sub Color_Cell_Condition()

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

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub

• F5キーを押すか、[実行] >> [サブ/ユーザーフォームの実行]を押して、コードを実行します。
• 以下に示すように、ステータスダッシュボードがいっぱいになっていることがわかります。

• コードを保存して、VBAエディターを閉じます。