Listview içindeki veriyi düzenleme

[mekuka]

Listview içindeki veriyi düzenleme çok kısa zaten ve çok acil lütfen

Listview nesnesi içine getirdiğimiz değerleri, sütun sütun sağa hizalı veya ortalayarak nasıl yazdırabiliriz. Birde Formatını tarih ve paraya göre nasıl ayarlayabiliriz. Umarım açıklayabilmişimdir. Şimdiden yardım eden herkese canı gönülden sevgilerimi sunuyor, başarılarınızın devamını diliyorum.

 

[mekuka]

Listview nesnesi içine getirdiğimiz değerleri, sütun sütun sağa hizalı veya ortalayarak nasıl yazdırabiliriz. Birde Formatını tarih ve paraya göre nasıl ayarlayabiliriz. Umarım açıklayabilmişimdir. Şimdiden yardım eden herkese canı gönülden sevgilerimi sunuyor, başarılarınızın devamını diliyorum.

Yardım edecek yok mu?????????

 

[Terkanli]

Merhaba,
mekuka
Aşağıda örnek veriyorum.

With ListView1
With .ColumnHeaders
.Clear
.Add , , "1. Kolon başlığı", 50
.Add , , "2. Kolon başlığı", 100, lvwColumnLeft
' 50, 100 sütunun genişliği, lvwColumnRight sağa hizala lvwColumnCenter ortala
' 1. sütunda farklı hizalama yapılamaz.
End With
End With
With Userform1.ListView2
.ListItems.Clear
For i = 2 To Son
.ListItems.Add , , Sh1.Cells(i, 1)
X = X + 1
With .ListItems(X).ListSubItems
.Add , , Sh1.Cells(i, 2)
.Add , , Sh1.Cells(i, 3)
.Add , , Sh1.Cells(i, 4)
.Add , , Format(Sh1.Cells(i, 5), "#,##0.00")
.Add , , FormatDateTime(Sh1.Cells(i, 6), vbGeneralDate) ' Tarih
.Add , , FormatCurrency(Sh1.Cells(i, 9) ' ListView de Para Formatı olarak kullanın TL olarak göreceksiniz
.Add , , i
End With
Next i
End With

 

[mekuka]

Private Sub ListeyeAdVer()
ListView1.ColumnHeaders.Clear
With ListView1.ColumnHeaders
.Add , , "Evrak No", 40
.Add , , "Yıl ", 50, lvwColumnRight
.Add , , "Fatura / Evrak Tarihi ", 50, lvwColumnRight
.Add , , "Fatura Evrak No", 80, lvwColumnRight
.Add , , "Geldiği Kurum / Firma", 50, lvwColumnRight
.Add , , "Konusu", 50, lvwColumnRight
.Add , , "Vade", 30, lvwColumnRight
.Add , , "Ödeme Günü", 80, lvwColumnRight
.Add , , "Fatura Tutarı", 50, lvwColumnRight
.Add , , "Ödenen Tutar", 50, lvwColumnRight
.Add , , "Kalan Tutar", 50, lvwColumnRight
.Add , , "Açıklama 1", 50, lvwColumnRight
.Add , , "Açıklama 2", 50, lvwColumnRight
.Add , , "Açıklama 3", 50, lvwColumnRight
.Add , , "a", 0

End With
End Sub

Benim Kodda zaten böyleydi ama Sağa hizalama yapmıyor. Dediğiniz gibi diğer left veya center olarakta yazdığımda da olmuyor.

 

[Terkanli]

Mekuka,
Userform daki Listview nesnesinde düzenleme yaptın mı? çünkü sizin gönderdiğiniz kod bende çalışıyor ekte size userformu gönderiyorum.
zip dosyayı açıp, VBA dan import edip görebilirsiniz, bu arada Listview incelerseniz. proprties içinde custom kısmı var fare ile tıklayınca pencere açılıyor, buradan düzenlemelerinizi yapabilirsiniz. userform içinde bir yığın kod yazmaya gerek kalmıyor.
Başarılar,
Tansu

 

[mekuka]

Mekuka,
Userform daki Listview nesnesinde düzenleme yaptın mı? çünkü sizin gönderdiğiniz kod bende çalışıyor ekte size userformu gönderiyorum.
zip dosyayı açıp, VBA dan import edip görebilirsiniz, bu arada Listview incelerseniz. proprties içinde custom kısmı var fare ile tıklayınca pencere açılıyor, buradan düzenlemelerinizi yapabilirsiniz. userform içinde bir yığın kod yazmaya gerek kalmıyor.
Başarılar,
Tansu

sizin gönderdiğiniz userformu indirip dediğiniz gibi yaptım, yine aynı çıktı. (aşağıdaki REsim)

Fakat properties deki customda left için 0, right için 1, center için 2 yazıyordu. komutu aşağıdaki gibi yazınca sorun çözüldü. Yardımlarınız için teşekkürler.

.Add , , "Evrak No", 40, 0
.Add , , "Yıl ", 50, 1
.Add , , "Fatura / Evrak Tarihi ", 50, 2
.Add , , "Fatura Evrak No", 80, 1
.Add , , "Geldiği Kurum / Firma", 50, 0