listview stünundaki rakamlarda "." ve "," ayırıcısını kullanmak?

[udentr2002]

Merhaba arkadaşlar listview deki kolonlarımda sayısal değerler mevcut formu açtığımda listviewin stünlardaki rakamların nokta ve virgül ayırıcısı kullanılarak ayrılması için ne yapabilirim. örneğin listview de değer 125025 değerinin 1.250,25 gibi yani bu rakamlar para değeridir binlik ve kuruş ayırıcısının olmasını istiyorum kısacası

ilgilenen tüm arkadaşlarıma teşekkür ederim

 

[isfa5878]

ListView1.ListItems(x).ListSubItems(a).Text = Format(ListView1.ListItems(x).ListSubItems(a), "#.##0,00")

örn.

y = ListView1.ListItems.Count
For x = 1 To y
For a = 7 To 9
ListView1.ListItems(x).ListSubItems(a).Text = Format(ListView1.ListItems(x).ListSubItems(a), "#.##,0")
Next
For a = 11 To 13
ListView1.ListItems(x).ListSubItems(a).Text = Format(ListView1.ListItems(x).ListSubItems(a), "#.##,0")
Next
Next

 

[udentr2002]

hocam ilgilendiğiniz için teşekkür ederim ama özür dilerim ben pek anlayamadım bu kodu nereye yazacağım userform initialize olayınamı.

benim listview de 14 adet kolonum var ben sadece 12, 13 ve 14. kolonlarda nokta ve virgül ayırıcısının kullanılmasını istiyorum.

biraz daha açıklarsanız kodu kendime uyarlayabilrim belki

 

[udentr2002]

hocam valla tekrar özür dilerim denedim ama olmadı kodlarınızda belirttiğiniz x, y ve a değerleri nedir ben size userform_initialize olayının altındaki kodumu gönderiyorum

Dim i As Integer, ii As Integer
With ListView1
.View = lvwReport
.LabelEdit = lvwManual
.FullRowSelect = True
.ColumnHeaders.Clear
.ListItems.Clear
.LabelWrap = True
.ColumnHeaders.Add , , "Sıra No", .Width / 21
.ColumnHeaders.Add , , "Tarih", .Width / 14
.ColumnHeaders.Add , , "Giriş/Çıkış", .Width / 16
.ColumnHeaders.Add , , "Banka Adı", .Width / 1500

.ColumnHeaders.Add , , "İşlem Türü", .Width / 1500
.ColumnHeaders.Add , , "Fatura No", .Width / 15
.ColumnHeaders.Add , , "Hesap Numarası", .Width / 1500
.ColumnHeaders.Add , , "Giriş Şekli", .Width / 16
.ColumnHeaders.Add , , "Gider Yeri", .Width / 12
.ColumnHeaders.Add , , "Gider Türü", .Width / 6
.ColumnHeaders.Add , , "Açıklama", .Width / 5
.ColumnHeaders.Add , , "Alacak", .Width / 13

.ColumnHeaders.Add , , "Borç", .Width / 13
.ColumnHeaders.Add , , "Bakiye", .Width / 13

Sh = Sheets("KASA").Name

satirsay = Sheets("" & Sh).[a65000].End(3).Row

If satirsay > 6 Then

For i = 7 To Sheets("" & Sh).[a65000].End(3).Row
Cells(i, 1) = i - 6
.ListItems.Add , , Sheets("" & Sh).Cells(i, 1)
For ii = 1 To 13
.ListItems(.ListItems.Count).SubItems(ii) = Sheets("" & Sh).Cells(i, ii + 1)
Next
Next

End If
End With

benim kodlarım böyle alacak, borç, bakiye kolonlarında "." ve "," ayırıcısının kullanılması için (para birimi olarak ) sizin göndermiş olduğunuz kodu nasıl düzenleyebilirim.

 

[isfa5878]

Private Sub UserForm_Activate()

Dim a As Variant
y = ListView1.ListItems.Count
For x = 1 To y
ListView1.ListItems(x).ListSubItems(11).Text = Format(ListView1.ListItems(x).ListSubItems(11), "#,##0.00")
ListView1.ListItems(x).ListSubItems(12).Text = Format(ListView1.ListItems(x).ListSubItems(12), "#,##0.00")
ListView1.ListItems(x).ListSubItems(13).Text = Format(ListView1.ListItems(x).ListSubItems(13), "#,##0.00")
Next

End Sub


"değiştirmeden" kullanın, kaydet butonuna veya varsa formu yenileyen butonada.....
internet bağlantı sorunu nedeniyle ancak cevap...

 

[udentr2002]

hocam

çok teşekkür ederim tam istediğim gibi olmuş ellerinize sağlık.

yine listview özellikleri ile ilgili bir sorum daha olacaktı;
aynı kolonların yani 12, 13 ve 14. kolonların içindeki değerlerin stünun sağına hizalayabilirmiyiz böyle bi özellik varmı hocam

 

[hsayar]

      With .ColumnHeaders
           .Add , , "SrNo", 20
           .Add , , "StTip", 30
           .Add , , "FşTr", 30, lvwColumnRight
           .Add , , "FşNo", 30, lvwColumnRight
           .Add , , "Adı Soyadı", 130
           .Add , , "Ad", 25, lvwColumnRight
           .Add , , "BirFiyatı", 35, lvwColumnRight
           .Add , , "Tutar", 35, lvwColumnRight
      End With

kolon başlıklarını bellirlediğiniz yerde hizalamasını da yapabilirsiniz.

 

[udentr2002]

hocam çok teşekkür ederim verdiğiniz bilgi için

 

[hsayar]

est. buradan öğrendiklerimiz.

 

[hsayar]

est. forumdan öğrendiklerimiz.

 

[isfa5878]

bir de renklendirelim..
Private Sub UserForm_Activate()

Dim a As Variant
y = ListView1.ListItems.Count
For x = 1 To y
ListView1.ListItems(x).ListSubItems(11).Text = Format(ListView1.ListItems(x).ListSubItems(11), "#,##0.00")
ListView1.ListItems(x).ListSubItems(12).Text = Format(ListView1.ListItems(x).ListSubItems(12), "#,##0.00")
ListView1.ListItems(x).ListSubItems(13).Text = Format(ListView1.ListItems(x).ListSubItems(13), "#,##0.00")
ListView1.ListItems(x).ListSubItems(11).ForeColor = vbRed
ListView1.ListItems(x).ListSubItems(12).ForeColor = vbRed
ListView1.ListItems(x).ListSubItems(13).ForeColor = vbBlue
Next

End Sub

 

[hsayar]

renklendirmeyi bilmiyordum teşekkürler