Hoe zoekt u waarden op in een ander werkboek?

Het kan een beetje verwarrend zijn om het opslagpad, de bestandsnaam en het werkblad in de VLOOKUP-functie in te stellen. Deze methode introduceert een VBA om dit gemakkelijk op te lossen.

1. Druk op de Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak vervolgens onderstaande VBA-code in het geopende modulevenster.

VBA: Gegevens opzoeken en waarden retourneren uit een ander gesloten werkboek

Private Function GetColumn(Num As Integer) As String
If Num <= 26 Then
GetColumn = Chr(Num + 64)
Else
GetColumn = Chr((Num - 1) \ 26 + 64) & Chr((Num - 1) Mod 26 + 65)
End If
End Function
Sub FindValue()
Dim xAddress As String
Dim xString As String
Dim xFileName As Variant
Dim xUserRange As Range
Dim xRg As Range
Dim xFCell As Range
Dim xSourceSh As Worksheet
Dim xSourceWb As Workbook
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xUserRange = Application.InputBox("Lookup values :", "Kutools for Excel", xAddress, Type:=8)
If Err <> 0 Then Exit Sub
Set xUserRange = Application.Intersect(xUserRange, Application.ActiveSheet.UsedRange)
xFileName = Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx", 1, "Select a Workbook")
If xFileName = False Then Exit Sub
Application.ScreenUpdating = False
Set xSourceWb = Workbooks.Open(xFileName)
Set xSourceSh = xSourceWb.Worksheets.Item(1)
xString = "='" & xSourceWb.Path & Application.PathSeparator & _
"[" & xSourceWb.Name & "]" & xSourceSh.Name & "'!$"
For Each xRg In xUserRange
Set xFCell = xSourceSh.Cells.Find(xRg.Value, , xlValues, xlWhole, , , False)
If Not (xFCell Is Nothing) Then
xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row
End If
Next
xSourceWb.Close False
Application.ScreenUpdating = True
End Sub

Opmerking: Deze VBA retourneert waarden in een kolom die 2 kolommen achter de geselecteerde kolom ligt. Bijvoorbeeld, als ik kolom B selecteer bij het toepassen van deze VBA, zullen waarden in kolom D geretourneerd worden. Als u de doelkolom wilt wijzigen, zoek dan de code xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row op, en vervang 2 door een ander nummer naar uw behoefte.

3. Druk op de F5 -toets of klik op de Uitvoeren-knop om deze VBA uit te voeren.

4. Geef in het dialoogvenster dat wordt geopend het gegevensbereik op waarin u wilt zoeken, en klik op de OK knop.

5. Selecteer nu het werkboek waarin u waarden wilt opzoeken in het geopende Selecteer een Werkboek-dialoogvenster, en klik op de Openen knop.

Nu zijn alle geselecteerde waarden opgezocht in het gespecificeerde gesloten werkboek, en worden de bijbehorende waarden geretourneerd in de gespecificeerde kolom. Zie schermafbeelding: