Hogyan lehet visszakeresni és visszaadni a háttérszínt az Excel keresési értékével együtt?

Tegyük fel, hogy van egy táblázata az alábbi képernyőképen. Most azt szeretné ellenőrizni, hogy egy megadott érték szerepel-e az A oszlopban, majd visszaadja a megfelelő értéket a háttérszínnel együtt a C oszlopban. Hogyan érhető el? A cikkben szereplő módszer segíthet a probléma megoldásában.

Vlookup és visszatérő háttérszín keresési értékkel a felhasználó által definiált funkcióval

Vlookup és visszatérő háttérszín keresési értékkel a felhasználó által definiált funkcióval

Kérjük, tegye a következőket, ha megkeres egy értéket, és visszaadja annak megfelelő értékét a háttérszínnel együtt az Excel programban.

1. A munkalap tartalmazza a vlookup értékét, kattintson a jobb gombbal a lap fülre, és válassza ki Kód megtekintése a helyi menüből. Lásd a képernyőképet:

2. A nyílásban Microsoft Visual Basic for Applications ablakba, kérjük, másolja a VBA kód alatt a Kód ablakba.

1. VBA-kód: Vlookup és visszatérő háttérszín a keresési értékkel

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. Ezután kattintson betétlap > Modulok, és másolja az alábbi VBA kódot a Modul ablakba.

2. VBA-kód: Vlookup és visszatérő háttérszín a keresési értékkel

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. A két kód beillesztése után kattintson a gombra Eszközök > Referenciák. Ezután ellenőrizze a Microsoft Script futásidejű doboz a Referenciák - VBAProject párbeszédablak. Lásd a képernyőképet:

5. megnyomni a más + Q gombokkal lépjen ki a Microsoft Visual Basic for Applications ablakot, és térjen vissza a munkalapra.

6. Jelöljön ki egy üres cellát a keresési érték mellett, majd írja be a képletet =LookupKeepColor(E2,$A$1:$C$8,3) a Formula Bar-ba, majd nyomja meg az Enter billentyűt.

Megjegyzések: A képletben E2 tartalmazza a keresni kívánt értéket, $ A $ 1: $ C $ 8 a táblázat tartománya és száma 3 azt jelenti, hogy a megfelelő érték, amelyet visszaad, a táblázat harmadik oszlopában található. Kérjük, változtassa meg őket szükség szerint.

7. Folyamatosan válassza ki az első eredmény cellát, és húzza lefelé a Kitöltő fogantyút, hogy az összes eredmény háttérszínnel együtt megjelenjen. Lásd a képernyőképet.

Kapcsolódó cikkek:

• Hogyan lehet másolni a keresési cella forrásformátumát, amikor a Vlookup programot használja az Excel programban?
• Hogyan lehet vlookup és visszatérési dátum formátumot szám helyett az Excelben?
• Hogyan használható a vlookup és az összeg az Excelben?
• Hogyan lehet vlookup visszatérni az Excel szomszédos vagy következő cellájában?
• Hogyan lehet vlookup értéket adni és visszaadni igaz vagy hamis / igen vagy nem az Excelben?