mohamedamrawy قام بنشر يونيو 24, 2020 مشاركة قام بنشر يونيو 24, 2020 كود تعبئة الكومبوبوكس باسماء الشهور 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة الرائد77 قام بنشر يونيو 24, 2020 أفضل إجابة مشاركة قام بنشر يونيو 24, 2020 تفضل Private Sub UserForm_Initialize() Dim rMonth As Long For rMonth = 1 To 12 Me.ComboBox1.AddItem Format(DateSerial(2020, rMonth, 1), "MMMM") Next rMonth End Sub monnth.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر يونيو 24, 2020 مشاركة قام بنشر يونيو 24, 2020 تفضل الملف للاستاذ سليم المحترم لعله يكون طلبك Reel_date_to Combo.xlsm 2 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر يونيو 24, 2020 مشاركة قام بنشر يونيو 24, 2020 mohamedamrawy أين الضغط على الإعجاب لكل هذه الإجابات ؟!!!💙 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يونيو 25, 2020 مشاركة قام بنشر يونيو 25, 2020 بعد اذن صديقي الرائد هذا الماكرو وزيادة في اثراء الموضوع (كود من سطر واحد) Option Explicit Private Sub UserForm_Initialize() Me.ComboBox1.List = _ Application.Transpose _ ([index(text(date(1,row(1:12),1),"[$-801]mmmm"),)]) End Sub أو اذا كنت تريده على الشيت Sub fill_combo() Sheets("sheet1").OLEObjects("My_Combo").Object.List = _ [index(text(date(1,row(1:12),1),"[$-801]mmmm"),)] End Sub الملف مرفق Month_series_For_Userform.xlsm 1 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان