listviewde biçim

[teknikyapı]

Merhaba.Hakketten ne zor şu biçimlendirme olayları!.Dosyamda aşağıdaki gibi
bir kod ile sütunu biçimlendiriyorum fakat mesala ( hücrelerde ) 1000 yazınca 1 veya 9000 yazınca 9 rakamı çıkıyor listviewde..Ama 1 veya 10 veya 100 yazınca aynen çıkıyor.Bu sefer anlatabildim inşallah...

.ListItems(x).SubItems(3) = Format(ListView1.ListItems(x).SubItems(3), "#,##0.00 ")

 

[teknikyapı]

Arkadaşlar en ufak bir fikri olan !?

 

[teknikyapı]

Arkadaşlar tam olarak ifade edemediğimi düşünüyorum.Textboxa mesala 5000 rakamını girip kaydettikten sonra hücrede 5000 yazarken listview de 5 olarak çıkıyor.50000 girersem 50 olarak çıkıyor.Yardımlarınızı bekliyorum...

 

[Mahmut Kök]

Örnek dosya ekleyebilir misiniz?

 

[teknikyapı]

sn mesleki örnek dosya ektedir.Rayiç Kitabı bölümünde.Teşekkür ederim.

 

[Zeki Gürsoy]

Inıtialize olayında ilgili kısmı aşağıdaki ile dener misiniz?
-Hücre biçimleriniz düzensiz görünüyor-

With ListView1
    For i = 2 To c
    x = x + 1
            .ListItems.Add , , Cells(i + 1, 1)
            .ListItems(x).SubItems(1) = Cells(i + 1, 2)
            .ListItems(x).SubItems(2) = Cells(i + 1, 3)
            [B].ListItems(x).SubItems(3) = FormatCurrency(Cells(i + 1, 4), 2)
[/B]'            .ListItems(x).SubItems(3) = Format(ListView1.ListItems(x).SubItems(3), "#,##0.00 ")  '-----
            'para formatı
            .ListItems(x).ListSubItems(3).ForeColor = vbRed 'RENK formatı
            
            .ListItems(x).SubItems(4) = Cells(i + 1, 5)
            .ListItems(x).SubItems(5) = Cells(i + 1, 6)
    Next
End With

 

[teknikyapı]

sn anemos gerçekten çok tşk ederim.Yalnız öğrenmek için kodun değişen kısmını kısa olarak açıklarsanız sevinirim.YArdımlarınız için tşk ederim.HAyırlı geceler.

 

[Mahmut Kök]

Sayın Anemos'un belirttiği işlemi yapın. Çözüm bulamazsanız sorun muhtemelen bilgisayarınızdaki ayarlardadır. Yani bin ayracı nokta, kuruş ayracı virgül olmalı iken, sizde tam tersi olabilir. Yani elli bin sayısını 50,000.00 şeklinde görüyorsanız, aslında sadece 50 yazıyorsunuz demektir. Eğer sorun bu ise, denetim masasından bölgesel ayarlardan değiştirebilirsiniz.

 

[Zeki Gürsoy]

sn anemos gerçekten çok tşk ederim.Yalnız öğrenmek için kodun değişen kısmını kısa olarak açıklarsanız sevinirim.YArdımlarınız için tşk ederim.HAyırlı geceler.

Sağolun.
Sn. mesleki'nin belirttiği gibi önce sayı ile ilgili local ayarlarınız doğru olmalı.
Satırdaki şu kullanıma gerek yoktu.

.ListItems(x).SubItems(3) = Format(ListView1.ListItems(x).SubItems(3), "#,##0.00 ")

Bunun yerine şu şekilde olabilir.

.ListItems(x).SubItems(3) = FormatCurrency(Cells(i + 1, 4), 2)

Para birimi gerekli değilse,

.ListItems(x).SubItems(3) = Format(Cells(i + 1, 4), "#,##0.00")

 

[teknikyapı]

sn anemos ve sn mesleki çok değerli bilgiler verdiniz yardımlarınız için teşekkür ederim.Hayırlı geceler.