Excel çalışmanızaki userform'a eklediginiz ComboBox'ta Ayların yazılmasını istiyorsanız aşağıdaki resimdeki gibi çalışmanıza bir form ekleyin


Sonra da aşağıdaki kodları UserForm'un Initalize yordamına kodları ekleyin.

Kod: Tümünü seç

Private Sub UserForm_Initialize()
Dim i%
Dim TMP$
ComboBox1.Clear
     For i = 1 To 12
TMP = Format(DateSerial(2004, i, 1), "mmmm")
ComboBox1.AddItem TMP
Next i
ComboBox1.ListIndex = 0
End Sub

Form Çslıştırıldığı zaman aşağıdaki gibi ComboBox'a Ayların yazıldığını göreceksiniz.
Aşağıdaki Kodu yine UserForm_Initalize tordamına yazmak suretiylede form'unuza istediğiniz ismi verebilirsiniz.

Kod: Tümünü seç

UserForm1.Caption = "ExcelTurk - AYLAR"

Aylar.xls