ListView saat gösterimi

[Necdet]

Merhabalar,

Sayfa1 B sütunundaki bilgiler toplam saat bilgileridir dolayısıyla değerler 24 saatten fazla olabilir.

Fakat bu saatleri ListView e alırkan bir türlü saat olarak gösteremedim. Bir çözümü mutlaka vardır ama ben bulamadım.

Kodlar aşağıdaki gibidir.

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa1")
ListView1.View = lvwReport
With ListView1.ColumnHeaders
    .Add , , "Aylar", 60
    .Add , , "Toplam Süre", 50
End With
With ListView1
    For i = 2 To s1.[A65536].End(3).Row
        .ListItems.Add , , s1.Cells(i, "A")
        Bilgi = Format(s1.Cells(i, "B"), "[h]:mm")
        .ListItems(i - 1).SubItems(1) = Format(s1.Cells(i, "B"), "[h]:mm")
     Next i
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True
End Sub

 

[ozgretmen]

Aşağıdaki şekilde denediğimde oldu.Bakar mısınız ?

Private Sub UserForm_Initialize()
Set s1 = Sheets("Sayfa1")
ListView1.View = lvwReport
With ListView1.ColumnHeaders
    .Add , , "Aylar", 60
    .Add , , "Toplam Süre", 50
End With

With ListView1
    For i = 2 To s1.[A65536].End(3).Row
        .ListItems.Add , , s1.Cells(i, "A")
        Bilgi = Format(s1.Cells(i, "B"), "[h]:mm")
    [COLOR="Red"]    .ListItems(i - 1).SubItems(1) = Format(s1.Cells(i, "B").Text, "hh:mm")[/COLOR]
     Next i
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True

End Sub

 

[Mahmut Bayram]

"[h]:mm"

değilde

"hh:mm"

şeklinde denediniz mi

 

[Necdet]

"[h]:mm"

değilde

"hh:mm"

şeklinde denediniz mi

Böyle olmadı Mahmut bey, ama Sayın ozgretmen'in önerisi ile doğru gösterimi sağlayabildim.

Teşekkürlerler Sayın ozgretmen.

 

[ozgretmen]

Rica ederim.İyi çalışmalar...