listviewde sayilari nasil saga dayali yapacagiz?

[gokmensen]

Forum icinde bircok konuya baktim ama bulamadim. Saatlerdir excel sayfasindan listview e aldigim kolonlarin bazilarini listview icindeki hucrelerde saga dayamak istiyorum. Derdime ilac olur musunuz? kisa bir kod ornegi verebilirmisiniz? ornegin 8.9.10. kolonlari saga dayamak istiyorum.kodlarim su sekilde

son = s1.Cells(65536, 1).End(xlUp).Row
x = 0
With UserForm1.ListView2
.ListItems.Clear

For i = 2 To son

.ListItems.Add , , s1.Cells(i, 1)
x = x + 1
With .ListItems(x).ListSubItems
.Add , , Format(s1.Cells(i, 2), "#,##0")
.Add , , Format(s1.Cells(i, 3), "#,##0")
.Add , , Format(s1.Cells(i, 4), "#,##0")
.Add , , Format(s1.Cells(i, 5), "#,##0")
.Add , , Format(s1.Cells(i, 6), "#,##0")
.Add , , Format(s1.Cells(i, 7), "#,##0")
.Add , , Format(s1.Cells(i, 8), "#,##0")
.Add , , Format(s1.Cells(i, 9), "#,##0")
.Add , , Format(s1.Cells(i, 10), "#,##0")
.Add , , Format(s1.Cells(i, 11), "#,##0")
.Add , , Format(s1.Cells(i, 12), "#,##0")
.Add , , i
End With

Next i

End With

 

[ftekin]

ListView1.View = lvwReport
With ListView1.ColumnHeaders
.Add , , "Sicil", 30, 1 'Sondaki değer 1-Bir olduğunda Sağa dayalı olarak yazar
.Add , , "Adı", 40, 0 ' Sondaki değer 0-Sıfır olduğunda Sola dayalı olarak yazar
End With
ListView1.FullRowSelect = True
ListView1.Gridlines = True

 

[gokmensen]

Tam bende buldum, bilmeyenler icin yazayim diyordum ki mesajinizi gordum. cevap icin tesekkurler.... ben add column headers cumlelerin sonuna" , 1 " eklenince saga dayali yazdigini farkettim. " ,0" yazinca sola dayali yazacagini sizden ogrenmis oldum. tekrar tesekkurler.