اكسل | طريقتان لمنع المستخدم من ادخال بيانات خاطئة فى الكومبو بوكس Excel vba Combobox Userform

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

درس جديد وكود جديد من مكتبة اكواد اكسل VBA Excel

اكسل | منع المستخدم من ادخال بيانات خاطئة فى الكومبو بوكس وتقييد ادخال البيانات  Excel vba Combobox Userform


سال احد الاصدقاء سؤال 

كيفية اجبار المستخدم على الاختيارالبيانات  من الكومبوبوكس فقط ؟

لو اننا عندنا يوزرفورم وفية كومبو بوكس يحتوى على عدد من اسماء الموردين كما بالمثال التالى



ونريد ان نجبر المستخدم على اختيار اسم المورد من القائمة الموجودة داخل الكومبوبوكس فقط  Combobox Item 


يتم ذلك من خلال طريقتان

الطريقة الاولى

من خلال نافذة خصائص الكومبوبوكس  Combobox Properties



  1. نختار الخاصية Style 
  2. ثم نختار الخيار رقم 2 وهو Frmdropdown


الطريقة الثانية 

من خلال الكود نضغط دوبل كليك على الكومبو بوكس ونختار حدث EXIT

ونكتب فية الكود التالى


Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.ComboBox1.MatchFound = False Then
Me.ComboBox1 = ""
MsgBox "اسم المورد الذى اخترتة خطا من فضلك ادخل الاسم الصحيح ", vbCritical, "Alarm"
End If
End Sub     

وعند تنفيذ الكود وكتابة اسم خاطئ او بيان خطأ غير الموجود فى الكومبوبوكس Combobox

يتم مسح محتويات الكومبو بوكس واظهار رسالة خطا


كما بالشكل السابق 

وبهذا نكون قد انتهينا من حل مشكلة احد الاصدقاء وعمل كود سهل وبسيط 

ولا تنسونا من صالح دعائكم 

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

لمشاهدة شرح الفيديو

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

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

إرسال تعليق