كود لملئ كومبو بوكس بنطاق معين

[يوسف احمد]

السلام عليكم

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

اريد كود كود لملئ كومبو بوكس بنطاق معين

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

و خاصية fmStyleDropDownList من style

معاً

 

و شكراً

تم تعديل فبراير 27, 2013 بواسطه يوسف احمد

[يوسف احمد]

للرفع

[أبو حنــــين]

بالنسبة لتعبئة الكمبوبكس تكون كالتالي

Private Sub UserForm_Initialize()
ComboBox1.List = Range("A2:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row).Value
End Sub

بالنسبة للسؤال الثاني اعتقد انه غير واضح فهي خصائص يمكن التحكم فيها في وضع التصميم

[يوسف احمد]

شكرا اخي الفاضل

المقصود هو عدم السماح باضافة اي مدخل غير الموجود في المدى المحدد

و شكرا

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

اخى الحبيب

ابو حنين

كود رائع

وجميل ويتسم بالبساطه

ولكن فى حالة عدم وجود بيانات  يظهر فراغات

وانا شخصيا افضل هذا الكود

Private Sub UserForm_Initialize()
Dim I As Integer
    With Sheets("96")
       For r = 5 To .Range("A" & .Rows.Count).End(xlUp).Row
            If .Range("A" & r) <> "" Then
                ComboBox1.AddItem .Range("A" & r)
            End If
        Next r

        End With
Book11.rar

تم تعديل فبراير 28, 2013 بواسطه إبراهيم ابوليله

[يوسف احمد]

الاخ الفاضل / ابراهيم ابو ليله

 

شكرا على مساعدتك

المقصود هو عدم السماح بالكتابة في الكومبوبوكس الا للمدخلات الموجود في المدى المحدد

 

يعني انا مختار مدى في الكومبوبوكس مش عايز اسجل حاجه غيره

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

اخى الفاضل

يوسف

لو شاهدت الملف المرفق

ستجد انك لو حاولت كتابه الرقم مثلا 10

داخل الكوموبوكس

ستظهر رساله تفيد بان الرقم ليس ضمن المدى المحدد

اما لو كتب الرقم 1 او2

او اى من الارقام الموجوده  ضمن المدى فستجد الرقم يكتب بدون مشاكل

وهذا على حد فهمى لما تريده

ارجو تجربه المرفق فى المشاركه رقم5

[يوسف احمد]

شكرا لك اخي الفاضل

اعتذر بشده فانا لم اري المرفق

الكود ممتاز ... و لكن كيف يمكن تطبيقه لتحميل بيانات من شيت اخر

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

 

شكرا لذوقك و تعاونك

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

اخى الكريم

بارك الله فيك

ولكن يفضل ارفاق ملف للعمل عليه

اما بخصوص المدى

    With Sheets("Sheet1")

هنا يتم تحديد اسم الشيت

For r = 5 To .Range("A" & .Rows.Count).End(xlUp).Row

رقم 5 يعنى بدايه من السطر رقم خمسه

فى العمود a

وهذا على حد علمى

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

وارجو ان كنت اخطأت فى الشرح

فليصحح الخطأ

اى من الاخوه الاعضاء العمالقه فى هذا المنتدى

تم تعديل فبراير 28, 2013 بواسطه إبراهيم ابوليله

[يوسف احمد]

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

 

شكرا لك اخي الحبيب

 

اسف جدا جدا على ازعاجك

 

ارجو من حضرتك شرح الكود بعاليه

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

اخى الكريم

هذا الكود لاحد عمالقة المنتدى

لا اتذكره

قد يكون

الاخ رجب جاويش

او الاخ عبد الله بقشير

ولكن وظيفه ههذا الكود يمنع قبول الكومو بوكس الا للبيانات

الموجوه فى المدى المحدد

For Each cl In [A4:A10]

[يوسف احمد]

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

كيف يمكن تغيير المدى المذكور لمدى في شيت آخر

 

و لك جزيل الشكر

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

الاخ يوسف

عن اى مدى تتحدث

هل ممكنى ان ترفق شيت للعمل عليه

[يوسف احمد]

سامحنى اخي الفاضل 

ولكن الملف مساحته كبيره و لن استطيع تحميله الآن

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

و لو حضرتك شوفت الشيت بتاعك هتلاقيه مش بيشتغل الا على المدى المذكور a4:a10

 

انا عايز اطبق الكود ده

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

 

و مش عارف 

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

 

شكرا 

انا عارف اني اثقلت عليك يا استاذي

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

الاخ الكريم

يوسف حاول تقليل مساحة الملف الخاص بك ثم قم بضغطه

ونرارا ثم قم برفعه للعمل عليه

او قم بتصميم شيت جديد به ماتريده ثم قم بضغطه ورفعه على الموقع

حتى تسهل على الاخوه الاعضاء فى مساعدتك