Akram Galal قام بنشر يونيو 28, 2015 مشاركة قام بنشر يونيو 28, 2015 السلام عليكم ورحة الله وبركاتة تحية طيبة لكل أعضاء المنتدى أريد أن يظهر الكومب بوكس علي قدر البيانات بمعني أن الأسكرول بار للكومب بوكس يقف عند أخر بيان جزاكم الله خيراً . رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يونيو 28, 2015 مشاركة قام بنشر يونيو 28, 2015 -اخي ارفق نموذجا ووضح طلبك اكثر لكي تتسفيد ويستفيد الاعضاء -حاول ان تبحث في خاصية البحث في المنتدى يوجد الكثير في هذا المجال لعلى تهتدي الى ضالتك ورمضان كريم 2 رابط هذا التعليق شارك More sharing options...
طلعت محمد حسن قام بنشر يونيو 28, 2015 مشاركة قام بنشر يونيو 28, 2015 السلام عليكم اخي الكريم شاهد المرفق لعله يكون طلبك. قائمة منسدلة مطاطة.rar رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يونيو 28, 2015 مشاركة قام بنشر يونيو 28, 2015 واليك هدا المثال في الفورم بعد اذن الاستاذ طلعت محمد حسن لعله يكون طلبك مثال .rar 2 رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر يونيو 29, 2015 الكاتب مشاركة قام بنشر يونيو 29, 2015 أحبتي في الله جزاكم الله خيرا أخي زوهير أريد أن يظهر في الكومبوبوكس أول شيئ القائمة وليس أخر القائمة وشكرا رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 29, 2015 مشاركة قام بنشر يونيو 29, 2015 أخي الغالي زوهير بارك الله فيك على هذا الكود الرائع تم إضافة سطر واحد في نهاية الكود لتلبية الطلب الأخير للأخ أكرم جلال 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 تقبلوا تحياتي رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر يوليو 1, 2015 الكاتب مشاركة قام بنشر يوليو 1, 2015 (معدل) أ/ ياسر ماذا لو كان النطاق ( Range ) في صفحة أخرى فما هو الكود جزاك الله خيرا تم تعديل يوليو 2, 2015 بواسطه ياسر خليل أبو البراء رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يوليو 2, 2015 مشاركة قام بنشر يوليو 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 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 2, 2015 مشاركة قام بنشر يوليو 2, 2015 أخي الكريم زوهير يرجى وضع الكود بين أقواس الكود ليظهر بشكل منضبط رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يوليو 2, 2015 مشاركة قام بنشر يوليو 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 عذرا الاخ ياسر لم انتبه لوضع الكود داخل الاقواس تم التعديل رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر يوليو 4, 2015 الكاتب مشاركة قام بنشر يوليو 4, 2015 أخي زوهير عند تطبيق الكود علي صفحة اخرى لا ينجح بمعني أن الفورمة تظهر في صفحة1 والنطاق في صفحة3 لا ينجح وأريد أن يبدأ النطاق من الخلية B4 جزاكم الله خيرا. رابط هذا التعليق شارك More sharing options...
زوهير قام بنشر يوليو 4, 2015 مشاركة قام بنشر يوليو 4, 2015 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 اليك الكود اخي الكريم بعد التعديل ورمضان كريم رابط هذا التعليق شارك More sharing options...
محمد لطفى قام بنشر يوليو 21, 2015 مشاركة قام بنشر يوليو 21, 2015 زين والله زين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.