userform ile combobox

[kasimpalas]

evet userform da bu combobox nasıl kkullanılır ben ayların listede olduğu bir combo box ile çalışmak istiyorum yani textbox ayları yazarak girmek yerine combobox tan seçerek nasıl girebilirim. şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Aylar

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

 

[Orion1]

Merhaba.
Sayın V.Basic for application gerçi cevabı vermişte ,ben sayın V.Basic For application'un kodlarına bazı eklemeler yaparak,Hem ayı Hemde Yılı Gösteren ve Bulunduğumuz ayı combobox'ta seçen kodlara bir ilave yaptım.
İyi çalışmalar.

Private Sub UserForm_Initialize()
Dim i As Byte, k As Byte
Dim TMP As String
Dim yil As Integer
Dim Bu_ay As String
ComboBox1.Clear
yil = Year(Date)
Bu_ay = Format(Date, "mmmm.yyyy")
For i = 1 To 12
TMP = Format(DateSerial(yil, i, 1), "mmmm.yyyy")
ComboBox1.AddItem TMP
Next i
For k = 0 To 11
    If Bu_ay = ComboBox1.Column(0, k) Then
        ComboBox1.ListIndex = k
        Exit For
    End If
Next k
End Sub