Hoe kopieert u de opmaak van de brondatumcel bij het gebruik van VLOOKUP in Excel?
In eerdere artikelen hebben we besproken hoe u de achtergrondkleur behoudt bij het opzoeken van waarden in Excel. In dit artikel presenteren we een methode om alle celopmaak van de brondatumcel over te nemen bij het uitvoeren van VLOOKUP in Excel. Volg hiervoor de onderstaande stappen.
Bronopmaak kopiëren bij het gebruik van VLOOKUP in Excel met een door de gebruiker gedefinieerde functie
Stel dat u een tabel hebt zoals in de onderstaande schermafbeelding. U wilt nu controleren of een opgegeven waarde (in kolom E) voorkomt in kolom A, en zo ja, de bijbehorende waarde uit kolom C – inclusief opmaak – retourneren. Volg hiervoor de onderstaande stappen.
1. Klik met de rechtermuisknop op het bladtabblad 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 Retourneerwaarde met opmaak
Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
Application.CutCopyMode = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Set xRg = Application.Range(xDicStr)
xRg.Copy
Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
Application.CutCopyMode = True
End Sub
3. Klik vervolgens op Invoegen > Module en plak de onderstaande VBA-code 2 in het modulevenster.
VBA-code 2: VLOOKUP en Retourneerwaarde met opmaak
Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Application.ScreenUpdating = False
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepFormat = " "
xDic.Add Application.Caller.Address, " "
Else
LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
End If
Application.ScreenUpdating = True
End Function4. Klik op Extra > Verwijzingen. Schakel vervolgens het selectievakje Microsoft Script Runtime in bij het dialoogvenster Verwijzingen – VBAProject. Zie schermafbeelding:
5. Druk op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
6. Selecteer een lege cel naast de opzoekwaarde en voer vervolgens de formule =LookupKeepFormat(E2,$A$1:$C$8,3) in de formulebalk 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 overeenkomstige waarde die u wilt retourneren zich in de derde kolom van de tabel bevindt. Pas deze waarden indien nodig aan.
7. Houd de eerste resultaatcel geselecteerd en sleep de vulgreep omlaag om alle resultaten inclusief hun bijbehorende opmaak te verkrijgen, zoals in de onderstaande schermafbeelding wordt weergegeven.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe voert u een verticaal opzoeken (VLOOKUP) uit in Excel en laat u de achtergrondkleur samen met de opzoekwaarde retourneren?
- Hoe voert u een verticaal opzoeken (VLOOKUP) uit in Excel en zorgt u ervoor dat de datumnotatie wordt geretourneerd in plaats van een getal?
- Hoe combineert u VLOOKUP en SOM in Excel?
- Hoe gebruikt u VLOOKUP om een retourwaarde op te halen uit de aangrenzende of volgende cel in Excel?
- Hoe zoekt u een waarde op met VLOOKUP en krijgt u als resultaat WAAR of ONWAAR, of 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