MOURADIYAT قام بنشر ديسمبر 19, 2010 مشاركة قام بنشر ديسمبر 19, 2010 المطلوب موجود في الملف المرفق قائمة منسدلة.rar رابط هذا التعليق شارك More sharing options...
yamz قام بنشر ديسمبر 19, 2010 مشاركة قام بنشر ديسمبر 19, 2010 السلام عليكم ادخل على ال userform اقف على الcombobox ومن الخصائص اختر row source وضع المدى الذى به القائمة وهو d5:d15 ارجو ان يكون المطلوب واكون عرفت اشرح شئ من الذى تعلمته فى هذا الصرح الجميل بمن فيه من عمالقة واساتذه كبار رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 19, 2010 مشاركة قام بنشر ديسمبر 19, 2010 عليكم السلام و رحمة الله أحسنت أخى yamz رابط هذا التعليق شارك More sharing options...
yamz قام بنشر ديسمبر 19, 2010 مشاركة قام بنشر ديسمبر 19, 2010 استاذى كيماس ماشرحته بفضل فيديوهات حضرتك اللى اتعلمت منها كثير وردك على شرف لى رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 19, 2010 مشاركة قام بنشر ديسمبر 19, 2010 أستغفر الله يا أخى فكلنا هنا متعلمون بارك الله فيك رابط هذا التعليق شارك More sharing options...
yamz قام بنشر ديسمبر 20, 2010 مشاركة قام بنشر ديسمبر 20, 2010 السلام عليكم استاذنا كيماس ممكن مساعده فى الملف المرفق ولك الشكر عفوا الملف المرفق من فيديوهات الاستاذ كيماس ولكن ممكن اى من الاخوة الافاضل المشاركة yehia_test.rar رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 20, 2010 مشاركة قام بنشر ديسمبر 20, 2010 تم اظهار البيانات في القائمة وكذلك في الكومبوبوكس ولكن لم استطع ازالة الفراغات في المدى لانه يمكن اضافة اسم جديد في هذه الفراغات yehia_test2.rar رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 20, 2010 مشاركة قام بنشر ديسمبر 20, 2010 تفضل يا أخى بدون تكرار yehia_test-kemas.zip 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 20, 2010 مشاركة قام بنشر ديسمبر 20, 2010 (معدل) لا أفهم لماذا تضع فراغات بالمدى ؟ هذا كود لمسح أية فراغات من المدى 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 رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر ديسمبر 20, 2010 مشاركة قام بنشر ديسمبر 20, 2010 تفضل يا أخى بدون تكرار هذا هو الفرق بين الخبراء والاساتذة وبيننا احنا المبيدئين 1 رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر ديسمبر 20, 2010 مشاركة قام بنشر ديسمبر 20, 2010 سبحان الله نفس عبارتك هذه قلتها لأستاذى خبور منذ أسابيع قليلة وهاهو يراقبنا من بعد إن شاء الله يقال لك امثال ذلك عما قريب وفقك الله رابط هذا التعليق شارك More sharing options...
yamz قام بنشر ديسمبر 20, 2010 مشاركة قام بنشر ديسمبر 20, 2010 وضع الفراغات فى المدى ...الملف يتطلب هذا لانه لاتوجد بيانات هذا هو الفرق بين الخبراء والاساتذة وبيننا احنا المبتدئين صدقت اخى وشكرا لك استاذنا رابط هذا التعليق شارك More sharing options...
سامي ابو ريم قام بنشر نوفمبر 17, 2013 مشاركة قام بنشر نوفمبر 17, 2013 لا أفهم لماذا تضع فراغات بالمدى ؟ هذا كود لمسح أية فراغات من المدى 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 المرفقات انت استااااااااذ رابط هذا التعليق شارك 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.