كيفية استخدام xlookup في vba (مع أمثلة)

يمكنك استخدام بناء الجملة الأساسي التالي لإجراء XLOOKUP باستخدام VBA:

 Sub Xlookup()
    Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 "))
End Sub

يبحث هذا المثال تحديدًا عن القيمة الموجودة في الخلية E2 في النطاق A2:A11 ويعثر على القيمة المطابقة في النطاق C2:C11 ، ثم يقوم بتعيين النتيجة للخلية F2 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية استخدام XLOOKUP في VBA

لنفترض أن لدينا مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول العديد من لاعبي كرة السلة:

لنفترض أننا نريد البحث في مجموعة البيانات عن اسم الفريق “Kings” وإرجاع القيمة المقابلة في عمود المساعدة.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub Xlookup()
    Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 "))
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يقوم الماكرو بإرجاع قيمة 3 تمريرات للملوك بشكل صحيح.

إذا قمنا بتغيير اسم الفريق في الخلية E2 ثم قمنا بتشغيل الماكرو مرة أخرى، فسوف يجد بشكل صحيح القيمة المساعدة لاسم الفريق الجديد.

على سبيل المثال، لنفترض أننا قمنا بتغيير اسم الفريق إلى “Warriors” وقمنا بتشغيل الماكرو مرة أخرى:

يقوم الماكرو بإرجاع قيمة 4 تمريرات حاسمة للمحاربين بشكل صحيح.

لاحظ أنه يمكنك أيضًا إضافة وسيطة رابعة اختيارية إلى الدالة Xlookup لتحديد القيمة التي يجب عرضها في حالة عدم العثور على تطابق.

على سبيل المثال، يمكنك استخدام الماكرو التالي لتشغيل دالة XLOOKUP وإرجاع “بلا” إذا لم يتم العثور على تطابق:

 Sub Xlookup()
    Range(" F2 ").Value = WorksheetFunction.Xlookup(Range(" E2 "), Range(" A2:A11 "), Range(" C2:C11 "), "None")
End Sub

لا تتردد في استبدال “لا شيء” بأي قيمة تريد عرضها.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية استخدام مطابقة الفهرس
فبا: كيفية استخدام VLOOKUP
فبا: كيفية استخدام VLOOKUP من ورقة أخرى