A
ahmedummu
Misafir
Merhaba arkadaşlar.
Listboxtaki 2. ve 3. sütunlardaki verileri nasıl sağa yaslayabilirim. Yusuf bey'in verdiği kodlara aşağıdaki kırmızı olan satırları ekledim ama olmadı. Yardımcı olursanız sevinirim.
ListBox2.Clear
ListBox2.ColumnCount = 4
ListBox2.ColumnWidths = "30;185;50;50"
a = 0
For i = 10 To 24
If sy.Cells(i, "A") <> "" Then
ListBox2.AddItem
ListBox2.List(a, 0) = sy.Cells(i, "A")
ListBox2.List(a, 1) = sy.Cells(i, "B")
ListBox2.List(a, 2) = Format(sy.Cells(i, "g"), "#,##0.00")
ListBox2.List(a, 2).TextAlign = fmTextAlignRight
ListBox2.List(a, 3) = Format(sy.Cells(i, "h"), "#,##0.00")
ListBox2.List(a, 3).TextAlign = fmTextAlignRight
a = a + 1
End If
Next
Listboxtaki 2. ve 3. sütunlardaki verileri nasıl sağa yaslayabilirim. Yusuf bey'in verdiği kodlara aşağıdaki kırmızı olan satırları ekledim ama olmadı. Yardımcı olursanız sevinirim.
ListBox2.Clear
ListBox2.ColumnCount = 4
ListBox2.ColumnWidths = "30;185;50;50"
a = 0
For i = 10 To 24
If sy.Cells(i, "A") <> "" Then
ListBox2.AddItem
ListBox2.List(a, 0) = sy.Cells(i, "A")
ListBox2.List(a, 1) = sy.Cells(i, "B")
ListBox2.List(a, 2) = Format(sy.Cells(i, "g"), "#,##0.00")
ListBox2.List(a, 2).TextAlign = fmTextAlignRight
ListBox2.List(a, 3) = Format(sy.Cells(i, "h"), "#,##0.00")
ListBox2.List(a, 3).TextAlign = fmTextAlignRight
a = a + 1
End If
Next