تحميل مجانى شيت اكسل المخازن ( وارد – منصرف – مرتجعات – اهلاك – تقارير)

بسم الله الرحمن الرحيم

 كود  البحث عن قيمة Check box باستخدام الدالة vlookup

اهلا بكم فى متابعى موقع عالم الاوفيس

درس جديد من دروس اكسل vba
وكود حصرى من مكتبة اكواد  اكسل vba

كلنا اثناء عملنا على اليوزرفورم نتعامل مع اداة الاختيار Check box  ولكن تواجهنا صعوبة معينة انة عند اجراء عملية البحث عن القيم الموجودة وعرضها على اليوزرفورم لانستطيع اظهار قيمة اCheck box اذا كانت TRUE , FALSE 
ولكن اليوم من خلال هذا الكود الحصرى سيتم التغلب على هذة المشكلة من خلال الكود التالى.

مثال العمل

ولنفرض اننا عندنا جدول مثل هذا وليكن استبيان مثلا كما فى الصورة .

 وعندنا يوزرفورم مثل هذا الفورم

ونريد عند البحث من خلال كومبو بوكس عن الاسم تظهر القيم اذا كانت نعم او لا من خلال الدالة vlookup

ويكون الكود كالاتى

If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("a5:e11"), 2, 0) = "نعم" Then Me.CheckBox1.Value = True Else Me.CheckBox1.Value = False

If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("a5:e11"), 3, 0) = "نعم" Then Me.CheckBox2.Value = True Else Me.CheckBox2.Value = False

If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("a5:e11"), 4, 0) = "نعم" Then Me.CheckBox3.Value = True Else Me.CheckBox3.Value = False

If Application.WorksheetFunction.VLookup(Me.ComboBox1.Text, Range("a5:e11"), 5, 0) = "نعم" Then Me.CheckBox4.Value = True Else Me.CheckBox4.Value = False

كود سهل وبسيط  ان شاء الله يعجبكم 

لمتابعة كيفية عمل الكود يرجى مشاهدة  شرح الفيديو 

لتحميل ملف العمل