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

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

 Sub Hlookup()
    Range(" H2 ").Value = WorksheetFunction.HLookup(Range(" G2 "),Range(" A1:E2 "),2,False)
End Sub

يبحث هذا المثال تحديدًا عن قيمة الخلية G2 في أعمدة A1:E2 ويعثر على القيمة الموجودة في الصف الثاني من هذا العمود المحدد، ثم يعين النتيجة للخلية H2 .

ملاحظة : تحدد الوسيطة الأخيرة للخطأ أننا نريد العثور على تطابق تام.

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

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

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

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

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

 Sub Hlookup()
    Range(" H2 ").Value = WorksheetFunction.HLookup(Range(" G2 "),Range(" A1:E2 "),2,False)
End Sub

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

يقوم الماكرو بإرجاع قيمة 22 نقطة لـ Mavs بشكل صحيح.

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

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

يقوم الماكرو بإرجاع قيمة 34 نقطة لـ Rockets بشكل صحيح.

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA HLookup هنا .

مصادر إضافية

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

فبا: كيفية استخدام مطابقة الفهرس
فبا: كيفية استخدام VLOOKUP
فبا: كيفية استخدام XLOOKUP