Hoe de bronopmaak van de opzoekcel te kopiëren bij gebruik van Vlookup in Excel?

In de vorige artikelen hebben we het gehad over het behouden van de achtergrondkleur bij vlookup-waarden in Excel. Hier in dit artikel gaan we een methode introduceren om alle celopmaak van de resulterende cel te kopiëren bij het uitvoeren van Vlookup in Excel. Ga als volgt te werk.

Kopieer de bronopmaak bij gebruik van Vlookup in Excel met een door de gebruiker gedefinieerde functie

Kopieer de bronopmaak bij gebruik van Vlookup in Excel met een door de gebruiker gedefinieerde functie

Stel dat u een tabel heeft zoals hieronder afgebeeld. Nu moet u controleren of een gespecificeerde waarde (in kolom E) in kolom A staat en de corresponderende waarde retourneren met opmaak in kolom C. Ga als volgt te werk om dit te bereiken.

1. Bevat in het werkblad de waarde die u wilt opvullen, klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het contextmenu. Zie screenshot:

2. In de opening Microsoft Visual Basic voor toepassingen -venster, kopieer de onderstaande VBA-code naar het codevenster.

VBA-code 1: Vlookup en retourwaarde 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. Dan klikken Invoegen > Moduleen kopieer de onderstaande VBA-code 2 naar het modulevenster.

VBA-code 2: Vlookup en retourwaarde 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 Function

4. klikken Tools > Referenties. Controleer dan het Microsoft Script-runtime box aan de Referenties - VBAProject dialoog venster. Zie screenshot:

5. druk de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.

6. Selecteer een lege cel naast de opzoekwaarde en voer vervolgens de formule in =LookupKeepFormat(E2,$A$1:$C$8,3) in de Formule balken druk vervolgens op Enter sleutel.

Note: In de formule, E2 bevat de waarde die u gaat opzoeken, $ A $ 1: $ C $ 8 is het tafelbereik en het nummer 3 betekent dat de overeenkomstige waarde die u retourneert zich in de derde kolom van de tabel bevindt. Verander ze als je nodig hebt.

7. Blijf de eerste resultaatcel selecteren en sleep vervolgens de vulgreep naar beneden om alle resultaten samen met hun opmaak te krijgen, zoals onderstaand screenshot liet zien.

Ontgrendel Excel Magic met Kutools AI

• Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken, allemaal aangestuurd door eenvoudige opdrachten.
• Aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
• VBA-codering: Moeiteloos VBA-code schrijven en implementeren.
• Formule-interpretatie: Begrijp complexe formules met gemak.
• Tekstvertaling: Doorbreek taalbarrières binnen uw spreadsheets.

Verbeter uw Excel-mogelijkheden met AI-aangedreven tools. Nu downloaden en ervaar efficiëntie als nooit tevoren!

Gerelateerde artikelen:

• Hoe de achtergrondkleur samen met de opzoekwaarde in Excel opvullen en retourneren?
• Hoe het datumnotatie in plaats van het getal in Excel opvullen en retourneren?
• Hoe vlookup en sum in Excel te gebruiken?
• Hoe de retourwaarde in aangrenzende of volgende cel in Excel opvullen?
• Hoe waarde opvullen en waar of onwaar / ja of nee retourneren in Excel?