Linkleri görebilmek ve üye ayrıcalıklarından faydalanabilmek için ücretsiz kayıt olun.
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