Excelでルックアップ値とともに背景色をvlookupして返す方法は？

以下のスクリーンショットのようなテーブルがあるとします。 ここで、指定した値が列Aにあるかどうかを確認してから、対応する値を背景色とともに列Cに返します。これを実現するにはどうすればよいですか。 この記事の方法は、問題の解決に役立ちます。

Vlookupとユーザー定義関数によるルックアップ値で背景色を返します

Vlookupとユーザー定義関数によるルックアップ値で背景色を返します

値を検索し、対応する値を背景色とともにExcelで返すには、次の手順を実行してください。

1.ワークシートにvlookupする値が含まれている場合は、シートタブを右クリックして、 コードを表示 コンテキストメニューから。 スクリーンショットを参照してください：

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、以下のVBAコードをコードウィンドウにコピーしてください。

VBAコード1：Vlookupとルックアップ値を含む背景色を返す

Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Range(xDic.Keys(I)).Interior.Color = _
                Range(xDic.Items(I)).Interior.Color
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
End Sub

3。 次に、をクリックします インセット > モジュールをクリックし、以下の VBA コード 2 をモジュール ウィンドウにコピーします。

VBAコード2：Vlookupとルックアップ値を含む背景色を返す

Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepColor = ""
        xDic.Add Application.Caller.Address, ""
    Else
        LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
    End If
End Function

4. XNUMX つのコードを挿入した後、 ツール > 参考情報。 次に、 Microsoftスクリプトランタイム 内箱 参照– VBAProject ダイアログボックス。 スクリーンショットを参照してください：

5。 プレス 他の + Q 終了するためのキー アプリケーション向け Microsoft Visual Basic ウィンドウをクリックして、ワークシートに戻ります。

6. ルックアップ値の隣の空白セルを選択し、数式を入力します。 =LookupKeepColor(E2,$A$1:$C$8,3) 数式バーに移動し、Enterキーを押します。

Note：式では、 E2 検索する値が含まれています。 $ A $ 1：$ C $ 8 はテーブルの範囲であり、数値は 3 は、返される対応する値がテーブルの XNUMX 列目にあることを意味します。 必要に応じて変更してください。

7. 最初の結果セルを選択し続け、塗りつぶしハンドルを下にドラッグして、すべての結果を背景色とともに取得します。 スクリーンショットを参照してください。

関連記事：

• ExcelでVlookupを使用するときに、ルックアップセルのソースフォーマットをコピーするにはどうすればよいですか？
• Excelで数値の代わりに日付形式をvlookupして返す方法は？
• Excelでvlookupとsumを使用する方法は？
• Excelの隣接セルまたは次のセルの戻り値をvlookupする方法は？
• 値をvlookupして、Excelでtrueまたはfalse / yesまたはnoを返す方法は？