Hoe gebruikt u VLOOKUP om niet alleen de opzoekwaarde, maar ook de bijbehorende achtergrondkleur in Excel te retourneren?
Stel dat u een tabel hebt zoals in de schermafbeelding hieronder. U wilt controleren of een opgegeven waarde voorkomt in kolom A en vervolgens de bijbehorende waarde ophalen, inclusief de achtergrondkleur uit kolom C. Hoe doet u dat? De methode in dit artikel helpt u dit probleem eenvoudig op te lossen.
VLOOKUP en retourneer Achtergrondkleur met de opzoekwaarde via een door de gebruiker gedefinieerde functie
Voer de volgende stappen uit om een waarde op te zoeken en de bijbehorende waarde, inclusief de achtergrondkleur, in Excel terug te krijgen.
1. Klik met de rechtermuisknop op het bladtab van het werkblad dat de waarde bevat die u wilt opzoeken en selecteer Code weergeven in het contextmenu. Zie schermafbeelding:
2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het codovenster.
VBA-code 1: VLOOKUP en retourneer Achtergrondkleur met de opzoekwaarde
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 Sub3. Klik vervolgens op Invoegen > Module en plak de onderstaande VBA-code 2 in het modulevenster.
VBA-code 2: VLOOKUP en retourneer Achtergrondkleur met de opzoekwaarde
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 Function4. Nadat u beide codes hebt ingevoerd, klikt u op Extra > Referenties. Schakel vervolgens het selectievakje Microsoft Script Runtime in bij het dialoogvenster Referenties – VBAProject. Zie schermafbeelding:
5. Druk op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten en terug te keren naar het werkblad.
6. Selecteer een lege cel naast de opzoekwaarde en voer vervolgens in de formulebalk de formule =LookupKeepColor(E2,$A$1:$C$8,3) in. Druk daarna op Enter.
Opmerking: In de formule bevat E2 de waarde die u wilt opzoeken, $A$1:$C$8 is het tabelbereik en het getal 3 geeft aan dat de bijbehorende waarde die moet worden geretourneerd zich in de derde kolom van de tabel bevindt. Pas deze waarden aan naar uw eigen behoefte.
7. Laat de eerste resultaatcel geselecteerd en sleep de vulgreep omlaag om alle resultaten, inclusief hun achtergrondkleur, op te halen. Zie schermafbeelding.
Gerelateerde artikelen:
- Hoe kopieert u de opmaak van de opzoekcel wanneer u VLOOKUP in Excel gebruikt?
- Hoe gebruikt u VLOOKUP in Excel en zorgt u ervoor dat de datumnotatie wordt geretourneerd in plaats van een getal?
- Hoe gebruikt u VLOOKUP en SOM samen in Excel?
- Hoe gebruikt u VLOOKUP om de retourneerwaarde op te zoeken in de aangrenzende of volgende cel in Excel?
- Hoe zoekt u een waarde op met VLOOKUP en krijgt u als resultaat WAAR of ONWAAR, respectievelijk JA of NEE, in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins