ExcelでVLOOKUP関数を使ってセルの色を反映させる方法

2025.03.11

皆さん、こんにちは。今日は、ExcelのVLOOKUP関数を使って、データの検索結果に応じてセルの色を自動的に変更する方法をご紹介します。これをマスターすれば、データの視覚化がさらに効果的になりますよ。

VLOOKUP関数と条件付き書式の組み合わせ
VBAを使用してセルの色を反映させる方法
1. 1. VBAエディターの起動
2. 2. マクロの作成
よくある質問や疑問
1. VLOOKUP関数だけでセルの色を変更できますか？
2. 条件付き書式とVBAのどちらを使うべきですか？
今すぐ解決したい！どうしたらいい？
まとめ

VLOOKUP関数と条件付き書式の組み合わせ

Excelのイメージ

まず、VLOOKUP関数と条件付き書式を組み合わせる方法をご説明します。これは、特定の条件に基づいてセルの色を自動的に変更する便利な手法です。

1. データの準備

最初に、以下のようなデータを用意します。

商品名	在庫数
りんご	50
バナナ	30
オレンジ	20

この表を基に、在庫数に応じてセルの色を変更してみましょう。

2. VLOOKUP関数の設定

次に、別のシートやセルで、商品名を入力すると自動的に在庫数が表示されるように、VLOOKUP関数を設定します。例えば、セルA1に商品名を入力し、セルB1に以下のようなVLOOKUP関数を入力します。

=VLOOKUP(A1, シート1!A:B, 2, FALSE)

これで、商品名に対応する在庫数が表示されます。

3. 条件付き書式の適用

最後に、在庫数に応じてセルの色を変更するために、条件付き書式を設定します。

在庫数が20以下の場合は赤色
在庫数が21～40の場合は黄色
在庫数が41以上の場合は緑色

このように設定することで、在庫数に応じてセルの色が自動的に変わります。

VBAを使用してセルの色を反映させる方法

次に、VBA（マクロ）を使用して、VLOOKUP関数の結果に基づいてセルの色を変更する方法をご紹介します。これは、より高度なカスタマイズが可能となります。

1. VBAエディターの起動

まず、Excelの「開発」タブから「Visual Basic」をクリックして、VBAエディターを起動します。

2. マクロの作成

次に、新しいマクロを作成し、以下のコードを入力します。

Sub 色を変更する()
    Dim rng As Range
    Set rng = Range("B2:B10") ' 在庫数の範囲を指定

    For Each cell In rng
        If cell.Value <= 20 Then
            cell.Interior.Color = RGB(255, 0, 0) ' 赤色
        ElseIf cell.Value <= 40 Then
            cell.Interior.Color = RGB(255, 255, 0) ' 黄色
        Else
            cell.Interior.Color = RGB(0, 255, 0) ' 緑色
        End If
    Next cell
End Sub

このマクロを実行すると、在庫数に応じてセルの色が自動的に変更されます。