اضافه الشهور في الكومبوبوكس

[mohamedamrawy]

كود تعبئة الكومبوبوكس باسماء الشهور

[الرائد77]

تفضل

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.xlsmFetching info...

[ابو مارفن]

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

Reel_date_to Combo.xlsmFetching info...

[أحمد يوسف]

mohamedamrawy

أين الضغط على الإعجاب لكل هذه الإجابات ؟!!!💙

[سليم حاصبيا]

بعد اذن صديقي الرائد هذا الماكرو

وزيادة في اثراء الموضوع (كود من سطر واحد)

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.xlsmFetching info...