على سبيل المثال ، تقوم بإنشاء جدول شراء الفاكهة في Excel ، والآن تحتاج إلى البحث عن الثمار من مصنف آخر وإرجاع الأسعار المقابلة كما هو موضح أدناه. هنا سوف أرشدك إلى حلها باستخدام وظيفة VLOOKKUP في Excel.

1. افتح كلا المصنفين اللذين ستبحث عن القيم منهما وإرجاع القيم فيهما.

2. حدد خلية فارغة سترجع السعر ، اكتب الصيغة = VLOOKUP (B2، [Price.xlsx] Sheet1! $ A $ 1: $ B $ 24,2،XNUMX، FALSE) بداخله ، ثم اسحب مقبض التعبئة لتطبيق هذه الصيغة على النطاق الذي تريده.

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

1. اضغط على قديم + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

2. انقر فوق إدراج > وحدة، ثم قم بلصق رمز 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. في مربع حوار الفتح ، يرجى تحديد نطاق البيانات الذي ستبحث عنه ، وانقر فوق OK .

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

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