كومب بوكس مطاطي

[Akram Galal]

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

تحية طيبة لكل أعضاء المنتدى

أريد أن يظهر الكومب بوكس علي قدر البيانات

بمعني أن الأسكرول بار للكومب بوكس يقف عند أخر بيان

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

[زوهير]

 

-اخي ارفق نموذجا ووضح طلبك اكثر لكي تتسفيد ويستفيد الاعضاء

-حاول ان تبحث في خاصية  البحث في المنتدى يوجد الكثير في هذا المجال لعلى تهتدي الى ضالتك

ورمضان كريم

[طلعت محمد حسن]

السلام عليكم

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

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

[زوهير]

 

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

 لعله يكون طلبك

 

 

 

 

مثال .rar

[Akram Galal]

أحبتي في الله

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

أخي زوهير أريد أن يظهر في الكومبوبوكس أول شيئ القائمة وليس أخر القائمة  

وشكرا

[ياسر خليل أبو البراء]

أخي الغالي زوهير

بارك الله فيك على هذا الكود الرائع

تم إضافة سطر واحد في نهاية الكود لتلبية الطلب الأخير للأخ أكرم جلال

Private Sub UserForm_Initialize()
    Dim Z As Integer
    
    For Z = 1 To Range("A5000").End(xlUp).Row
        ComboBox1 = Range("A" & Z)
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & Z)
    Next Z
    
    If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub

أو يمكن استبدال السطر الأخير بهذا السطر مباشرةً

ComboBox1.ListIndex = 0

تقبلوا تحياتي

[Akram Galal]

أ/ ياسر

 

 

ماذا لو كان النطاق ( Range )

في صفحة أخرى

فما هو الكود

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

تم تعديل يوليو 2, 2015 بواسطه ياسر خليل أبو البراء

[زوهير]

 

 

تستطيع تغيير النطاق كما تشاء 

 

Private Sub UserForm_Initialize()

 

    Dim Z As Integer

    

    For Z = 1 To Sheets("feuil2").Range("b5000").End(xlUp).Row

        ComboBox1 = Range("b" & Z)

        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("b" & Z)

    Next Z

    

 ComboBox1.ListIndex = 0

End Sub

 

جرب هذا التعديل من الورقة رقم 2

[ياسر خليل أبو البراء]

أخي الكريم زوهير

يرجى وضع الكود بين أقواس الكود ليظهر بشكل منضبط

[زوهير]

()Private Sub UserForm_Initialize
 
    Dim Z As Integer
هذا السطر يشير الى النطاق الذي تريده '                 
    For Z = 1 To Sheets("feuil2").Range("b5000").End(xlUp).Row
        ComboBox1 = Range("b" & Z)          
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("b" & Z)          
    Next Z
    
 ComboBox1.ListIndex = 0           
End Sub

عذرا الاخ ياسر لم انتبه لوضع الكود داخل الاقواس تم التعديل 

 

[Akram Galal]

أخي زوهير

عند تطبيق الكود علي صفحة اخرى لا ينجح

بمعني أن الفورمة تظهر في صفحة1 والنطاق في صفحة3 لا ينجح

 

وأريد أن يبدأ النطاق من الخلية B4

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

[زوهير]

 

 

Private Sub UserForm_Initialize()
Dim Z As Integer
    For Z = 4 To Sheets("feuil3").Range("b5000").End(xlUp).Row
        ComboBox1 = Sheets("feuil3").Range("b" & Z)
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("feuil3").Range("b" & Z)
    Next Z
    
 ComboBox1.ListIndex = 0
End Sub

اليك  الكود اخي الكريم  بعد التعديل

ورمضان كريم

 

[محمد لطفى]

زين والله زين