بسم الله الرحمن الرحيم
كود البحث عن قيمة 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
كود سهل وبسيط ان شاء الله يعجبكم
لمتابعة كيفية عمل الكود يرجى مشاهدة شرح الفيديو