Listbox Format Sorunu

[eksoy]

Herkese Günaydın ,

Listboxa veri aldığım sayfada rakamlar % şeklinde fakat Listboxta 0.02568 şeklinde uzayarak gidiyor.Nerede hata yapıyorum. % 2.5 olarak gözükmesi için ne yapmalıyım.İlginiz için teşekkürler

 

[danersin]

bu listbox'a değerleri nasıl aktardığınıza göre değişir.
örneğin
Private Sub UserForm_Initialize()
ListBox1.RowSource = "Sayfa1!a1: a10"
End Sub

şeklinde yaparsanız bi sorun çıkartmaz.

 

[eksoy]

Sn Danersin ,

Excel sayfasındaki farklı sütunları listbox a almak için yine forumdan bulduğum aşağıdaki kodu kullanıyorum.Bu kodla formatı düzeltmem mümkün olur mu ? teşekkürler...


UserForm2.ListBox7.ColumnCount = 3
listsat = 0
UserForm2.ListBox7.ColumnWidths = "100,50,50,50,50,50"
For SAT = 5 To 25
UserForm2.ListBox7.AddItem
UserForm2.ListBox7.Column(0, listsat) = Sheets("o").Cells(SAT, "a").Value
UserForm2.ListBox7.Column(1, listsat) = Sheets("o").Cells(SAT, "f").Value
UserForm2.ListBox7.Column(2, listsat) = Sheets("o").Cells(SAT, "g").Value
listsat = listsat + 1
Next SAT

 

[haso_excel]

Merhaba arkadaşlar,
Listbox1 e A2 den başlayarak B65500 e kadar olan verileri getirmeye çalışıyorum. TextAlign ı Right yaptığımda A kolonundaki rakamlar sağa tarafta oluyor ama B kolonundaki tarihler tam olarak gözükmüyor tam görebilmem için nasıl bir ayar yapmam gerekiyor acaba ?

Private Sub UserForm_Initialize()
TextBox3.Text = Range("d1")
'Application.Visible = 0
ListBox1.RowSource = "sheet1!a2:b65500"
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = 60 & ";" & 50
End Sub