ListView Yüzde Biçimini Ayarlama

Sub UserForm_Initialize()
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "TARİH ", 63
.ColumnHeaders.Add , , "KOD", 43, 2
.ColumnHeaders.Add , , "CARİ HESAP ÜNVANI ", 225, 2
.ColumnHeaders.Add , , "STOK KODU ", 75, 2
.ColumnHeaders.Add , , "STOK AÇIKLAMASI ", 200, 2
.ColumnHeaders.Add , , "NET BİRİM FİYAT ", 75, 2
.ColumnHeaders.Add , , "KAR % ", 43, 2
.ColumnHeaders.Add , , "ÖNCEKİ ALIŞ TARİHİ ", 88, 2
.ColumnHeaders.Add , , "ÖNCEKİ ALIŞ ", 75, 2
.ColumnHeaders.Add , , "FARK ", 125, 2
.FullRowSelect = True
.Gridlines = True
End With
Dim Liste As ListItem
ListView1.ListItems.Clear
For i = 2 To [a65536].End(3).Row
Set Liste = ListView1.ListItems.Add(, , Cells(i, 1).Value)
Liste.SubItems(1) = Cells(i, 2).Value
Liste.SubItems(2) = Cells(i, 3).Value
Liste.SubItems(3) = Cells(i, 4).Value
Liste.SubItems(4) = Cells(i, 5).Value
Liste.SubItems(5) = Cells(i, 6).Value
Liste.SubItems(6) = Cells(i, 7).Value
Liste.SubItems(7) = Cells(i, 8).Value
Liste.SubItems(8) = Cells(i, 9).Value
Liste.SubItems(9) = Cells(i, 10).Value

Next i
Set Liste = Nothing
End Sub