عالم الاوفيس: حصريا البحث عن قيمة Check box باستخدام الدالة vlookup


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

 كود  البحث عن قيمة 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

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






Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق