بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد اكسل VBA Excel
اكسل | منع المستخدم من ادخال بيانات خاطئة فى الكومبو بوكس وتقييد ادخال البيانات Excel vba Combobox Userform
سال احد الاصدقاء سؤال
كيفية اجبار المستخدم على الاختيارالبيانات من الكومبوبوكس فقط ؟
لو اننا عندنا يوزرفورم وفية كومبو بوكس يحتوى على عدد من اسماء الموردين كما بالمثال التالى
ونريد ان نجبر المستخدم على اختيار اسم المورد من القائمة الموجودة داخل الكومبوبوكس فقط Combobox Item
يتم ذلك من خلال طريقتان
الطريقة الاولى
من خلال نافذة خصائص الكومبوبوكس Combobox Properties
- نختار الخاصية Style
- ثم نختار الخيار رقم 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
يتم مسح محتويات الكومبو بوكس واظهار رسالة خطا
كما بالشكل السابق