كود لعدم السماح بالكتابه في كومبو بوكس لغير البيانات المحدده

[يوسف احمد]

السلام عليكم

بعد اذنكم يا اخواني الكرام

اريد كود لعدم السماح بالكتابه في كومبو بوكس لغير البيانات المحدده

و للتوضيح اريد كود يقوم بخاصية match require

و خاصية fmStyleDropDownList من style

معاً

و كان هذا الطلب لي في موضوع (كود لملئ كومبو بوكس بنطاق معين) على الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=45659#entry269888

 

ولكنني قمت باضافة مرفق لايضاح المطلوب 

و احببت ان اجعله في موضوع جديد

وان شاء الله نجد الحل

و شكراً

combobox.rar

[إبراهيم ابوليله]

اخى الكريم يوسف

تفضل ياخى

اتمنى ان اكون قد وفقت فى عمل ماتريد

combobox.rar

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته
الاخ العزيز الاستاذ الغالي / ابراهيم ابو ليله

بوركت اخي الحبيب

جزاك الله كل خير و زادك الله من فضله و علمه

و الله المستعان
و السلام عليكم و رحمة الله و بركاته

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته
الاخ العزيز الاستاذ الغالي / ابراهيم ابو ليله

بعد اذنك يا اخي الحبيب

هناك ملاحظه في الكود انه لن يقبل المدخلات الا في المدى [A2:A10]

فبعد اذنك يا اخي العزيز فقد قمت بالتعديل على الكود و زيادة المدى

Private Sub ComboBox1_Change()
For Each cl In Sheet2.[A2:A1000]
arr = arr & cl & ","
Next
x = UBound(Filter(Split(arr, ","), ComboBox1))
If x = -1 Then MsgBox "القيمة غير موجودة في القائمة": ComboBox1 = ""
End Sub

وقمت بارفاق الملف بعد التعديل

و الله المستعان
و السلام عليكم و رحمة الله و بركاته

combobox 2.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / إبراهيم ابوليله

 

جميل جدا ورائع

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ الغالي / احمد فضيله

 

بارك الله فيك

وجعلك دائما في عون الآخرين

جزاك الله خيرا

[يوسف احمد]

السلام عليكم

الاخ العزيز الاستاذ الكبير / إبراهيم ابوليله

ممتاز و رائع

جزاك الله خيراً

[يوسف احمد]

جزاكم الله كل خير يا اخواني

[احمد فضيله]

السلام عليكم

الاستاذ الغالي / احمد فضيله

 

بارك الله فيك

وجعلك دائما في عون الآخرين

جزاك الله خيرا

 

السلام عليكم و رحمة الله و بركاته

الاخ الحبيب الغالي الاستاذ / حماده عمر

جزاك الله كل خير و زادك الله من فضله و علمه

و الله المستعان

و السلام عليكم و رحمة الله و بركاته

[إبراهيم ابوليله]

الاخوه الكرام

الافاضل

بوركتم جميعا

وشرف لى ان ارى تشجيعكم

وبكل صدق لولا تدافع الاعضاء فى هذا الصرح

الكبير وتسابقهم فى مساعدة بعضهم البعض

ما كان لهذا المنتدى من شأن يفتخر به كل من هو عضو به

وما كان لى ان اصل الى هذه المعرفه من المعلومات القليله

وفققكم الله لما يحبه ويرضاه

وجعلكم نافعين بعلمكم

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته
الاخ العزيز الاستاذ الغالي / ابراهيم ابو ليله

جعله الله في ميزان حسناتك

جزاك الله كل خير و زادك الله من فضله و علمه

و الله المستعان
و السلام عليكم و رحمة الله و بركاته

[احمد فضيله]

فقط لاثراء الموضوع

يمكن استخدام الكود التالي :

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.ComboBox1.MatchRequired = True
End Sub

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Me.ComboBox1.MatchRequired = False
End Sub

[احمد فضيله]

المرفق مضاف له الكود

combobox 3.rar

[إبراهيم ابوليله]

الاخ احمد فضيله

عمل رائع

بارك الله فيك

واجمل مافى الموضوع تنوع الافكار والحلول

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته
الاخ العزيز الاستاذ الغالي / ابراهيم ابو ليله

بارك الله فيك

بالفعل يا اخي من الاجمل الاشياء مشاركة المعلومات و الافكار و تنوعها

جزاك الله كل خير و زادك الله من فضله و علمه

و الله المستعان
و السلام عليكم و رحمة الله و بركاته