ListBox Sayı Biçimi

[ocamsul]

Arkadaşlar iyi çalışmalar.

ListBox a aldığım verilerin 3. sütundan itibaren ListBox formatını ,000 yada 0,000 şeklinde nasıl düzenleyebilirim?

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 29
ListBox1.ColumnWidths = 0 & ";" & 90 & ";" & 70 & ";" & 40 & ";" & 60 & ";" & 40 & ""
ListBox1.List = Range("A3:AC" & Cells(65536, "A").End(xlUp).Row).Value
End Sub

 

[Orion1]

Arkadaşlar iyi çalışmalar.

ListBox a aldığım verilerin 3. sütundan itibaren ListBox formatını ,000 yada 0,000 şeklinde nasıl düzenleyebilirim?

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 29
ListBox1.ColumnWidths = 0 & ";" & 90 & ";" & 70 & ";" & 40 & ";" & 60 & ";" & 40 & ""
ListBox1.List = Range("A3:AC" & Cells(65536, "A").End(xlUp).Row).Value
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 29
ListBox1.ColumnWidths = 0 & ";" & 90 & ";" & 70 & ";" & 40 & ";" & 60 & ";" & 40 & ""
ListBox1.List = Range("A3:AC" & Cells(65536, "A").End(xlUp).Row).Value
For i = 0 To ListBox1.ListCount - 1
    For k = 2 To ListBox1.ColumnCount - 1
        ListBox1.List(i, k) = Format(ListBox1.List(i, k), "#,##0.000")
    Next
Next
End Sub

 

[ocamsul]

SN: Evren Gizler, üstadım çok teşekkür ederim. Tam anlamıyla oldu.

 

[Orion1]

SN: Evren Gizler, üstadım çok teşekkür ederim. Tam anlamıyla oldu.

Rica ederim.
İyi çalışmalar.