( موضوع مميز ) قائمة منسدلة في اليوز فورم

[MOURADIYAT]

المطلوب موجود في الملف المرفق

قائمة منسدلة.rar

[yamz]

السلام عليكم

ادخل على ال userform اقف على الcombobox ومن الخصائص اختر row source

وضع المدى الذى به القائمة وهو d5:d15

ارجو ان يكون المطلوب

واكون عرفت اشرح شئ من الذى تعلمته فى هذا الصرح الجميل بمن فيه من عمالقة واساتذه كبار

[عبد الفتاح كيرة]

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

أحسنت أخى yamz

[yamz]

استاذى كيماس

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

وردك على شرف لى

[عبد الفتاح كيرة]

أستغفر الله يا أخى

فكلنا هنا متعلمون

بارك الله فيك

[yamz]

السلام عليكم

استاذنا كيماس ممكن مساعده فى الملف المرفق

ولك الشكر

عفوا

الملف المرفق من فيديوهات الاستاذ كيماس

ولكن ممكن اى من الاخوة الافاضل المشاركة

yehia_test.rar

[عبدالله المجرب]

تم اظهار البيانات في القائمة وكذلك في الكومبوبوكس ولكن لم استطع ازالة الفراغات في المدى لانه يمكن اضافة اسم جديد في هذه الفراغات

yehia_test2.rar

[عبد الفتاح كيرة]

تفضل يا أخى بدون تكرار

yehia_test-kemas.zip

[عبد الفتاح كيرة]

لا أفهم لماذا تضع فراغات بالمدى ؟

هذا كود لمسح أية فراغات من المدى

Private Sub UserForm_Initialize()

On Error Resume Next

Dim mycol As Collection

Dim myrng As Range

Set mycol = New Collection

For Each myrng In Range("a1:a300")

mycol.Add myrng.Value, myrng.Text

Next myrng

For i = 1 To mycol.Count

If mycol.Item(i) = "" Then mycol.Remove i

Me.ComboBox1.AddItem mycol(i)

Next i

End Sub

المرفقات

yehia_test-kemas2.zip

تم تعديل ديسمبر 20, 2010 بواسطه kemas

[عبدالله المجرب]

تفضل يا أخى بدون تكرار

هذا هو الفرق بين الخبراء والاساتذة وبيننا احنا المبيدئين

[عبد الفتاح كيرة]

سبحان الله

نفس عبارتك هذه قلتها لأستاذى خبور منذ أسابيع قليلة

وهاهو يراقبنا من بعد

إن شاء الله يقال لك امثال ذلك عما قريب

وفقك الله

[yamz]

وضع الفراغات فى المدى ...الملف يتطلب هذا لانه لاتوجد بيانات

هذا هو الفرق بين الخبراء والاساتذة وبيننا احنا المبتدئين

صدقت اخى

وشكرا لك استاذنا

[سامي ابو ريم]

لا أفهم لماذا تضع فراغات بالمدى ؟

هذا كود لمسح أية فراغات من المدى

Private Sub UserForm_Initialize()
On Error Resume Next
Dim mycol As Collection
Dim myrng As Range
Set mycol = New Collection
For Each myrng In Range("a1:a300")
mycol.Add myrng.Value, myrng.Text
Next myrng
For i = 1 To mycol.Count
If mycol.Item(i) = "" Then mycol.Remove i
Me.ComboBox1.AddItem mycol(i)
Next i
End Sub

المرفقات

 

انت استااااااااذ