كيفية البحث عن القيم/العثور عليها في مصنف آخر؟

قد يكون من المربك بعض الشيء تكوين مسار الحفظ، اسم الملف، والورقة في دالة VLOOKUP. هذه الطريقة ستقدم لك VBA لحل المشكلة بسهولة.

1. اضغط على مفتاح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم ألصق الكود التالي VBA في نافذة الوحدة المفتوحة.

VBA: استخدام VLOOKUP للبحث عن البيانات وإرجاع القيم من مصنف مغلق

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

ملاحظة: سيقوم هذا الكود VBA بإرجاع القيم في عمود يقع خلف العمود المحدد بعمودين. على سبيل المثال، عندما أختار العمود B عند تطبيق هذا الكود VBA، سيتم إرجاع القيم في العمود D. إذا كنت بحاجة لتغيير العمود المستهدف، يرجى العثور على الكود xRg.Offset(0, 2).Formula = xString & GetColumn(xFCell.Column + 1) & "$" & xFCell.Row ، واستبدال 2 برقم آخر حسب حاجتك.

3. اضغط على مفتاح F5 أو انقر فوق زر التشغيل لتشغيل هذا الكود VBA.

4. في مربع الحوار المفتوح، يرجى تحديد نطاق البيانات الذي ستجري البحث فيه، والنقر فوق الزر موافق الزر.

5. الآن يرجى تحديد المصنف الذي ستجري البحث فيه ضمن مربع الحوار المفتوح 'اختر مصنفاً'، والنقر فوق الزر فتح الزر.

الآن تم البحث عن جميع القيم المختارة في المصنف المغلق المحدد، وتم إرجاع القيم المقابلة في العمود المحدد. انظر لقطة الشاشة: