Combobox' a günlük saatleri ekleme

[pNouma]

Merhaba,
Userform' da Combobox' a saat 8'den 17' ye kadar aşağıdaki gibi saatleri eklemek isityordum;
yanız aşağıdaki kodda hepsi 00:00 olarak geliyor,

08:00
09:00
10:00
..
...
....
16:00
17:00

      For i = 8 To 17
            cbHours.AddItem Format(i, "hh:nn")
      Next

bu konuda yardımcı olacak arkadaşlara şimdiden teşelkkürler
iyi akşamlar.

 

[cems]

Private Sub UserForm_Initialize()
    Dim i As Integer
    Dim saat As String
    
    ' 08:00'den 17:00'ye kadar döngü
    For i = 8 To 17
        ' Saat formatını oluştur
        saat = Format(i, "00") & ":00"
        ' ComboBox'a ekle
        Me.ComboBox1.AddItem saat
    Next i
End Sub

Bu kod, UserForm yüklendiğinde çalışacak ve ComboBox'a 08:00'den 17:00'ye kadar saatleri doğru bir şekilde ekleyecektir. ComboBox1 kısmını kendi ComboBox adınıza göre değiştirin

 

[Korhan Ayhan]

Bunu da deneyebilirsiniz.

For i = 8 To 17
   cbHours.AddItem Format(TimeSerial(i, 0, 0), "hh:nn")
Next

 

[pNouma]

Bunu da deneyebilirsiniz.

For i = 8 To 17
   cbHours.AddItem Format(TimeSerial(i, 0, 0), "hh:nn")
Next

Korhan ve Cem hocalarım destekleriniz için çok teşekkür ederim.

 

[Korhan Ayhan]

Bunlarda alternatif olsun.

ComboBox1.List = [index(Text(row(8:17)/24,"hh:mm"),)]
ComboBox1.List = [transpose(Text(row(8:1)/24,"hh:mm"))]