Çözüldü ListView Hakkında

E

evrensngr

Katılım
7 Mayıs 2019
Mesajlar
40
Excel Vers. ve Dili
Microsoft 2017
Visual Studio 2013-2014-2017-2019
Altın Üyelik Bitiş Tarihi
07/05/2024
Kod: 
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
Merhabalar Bu kodları kullanarak listview veri alıyorum ama bir sorunum var subıtem 8 i yuzde oranı örneğin %10 göstersin istiyorum ve sub item 10nu ondalık sayı Örneğin 12,05 gibi yapmak istiyorum yardımcı olabilcek varmıdır
 
H

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
∞
Denemedim ama, aşağıdaki gibi bir şey olabilir ...

Kod: 
Liste.SubItems(8) = Format(Cells(i, 8).Value / 100, "0.00 %")
.
 
E

evrensngr

Katılım
7 Mayıs 2019
Mesajlar
40
Excel Vers. ve Dili
Microsoft 2017
Visual Studio 2013-2014-2017-2019
Altın Üyelik Bitiş Tarihi
07/05/2024
Haluk' Alıntı:
Denemedim ama, aşağıdaki gibi bir şey olabilir ...

Kod: 
Liste.SubItems(8) = Format(Cells(i, 8).Value / 100, "0.00 %")
.
Genişletmek için tıkla ...
Aynı kaldı malesef Haluk Bey bende buna benzer denemiştim sonuç vermemişti
 
H

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
∞
Örnek bir dosya ekleyin, onun üzerinde bakalım ...

.
 
H

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
∞
"%" ile göstermek istediğiniz sütun hangisi, tam anlamadım ama bu şekilde oluyor.... (Ben Sayfa3 üzerinde denedim)

Kod: 
Liste.SubItems(6) = Format(Cells(i, 7).Value, "0.00 %")
.
 
E

evrensngr

Katılım
7 Mayıs 2019
Mesajlar
40
Excel Vers. ve Dili
Microsoft 2017
Visual Studio 2013-2014-2017-2019
Altın Üyelik Bitiş Tarihi
07/05/2024
Tam olarak istediğim buydu haluk bey teşekkürler Bunu bide ondalık sayı Yani 12,05 gibi yapabilirmiyiz kusratı sadece 2 hane olarak göstercek
 
E

evrensngr

Katılım
7 Mayıs 2019
Mesajlar
40
Excel Vers. ve Dili
Microsoft 2017
Visual Studio 2013-2014-2017-2019
Altın Üyelik Bitiş Tarihi
07/05/2024
Haluk' Alıntı:
"%" ile göstermek istediğiniz sütun hangisi, tam anlamadım ama bu şekilde oluyor.... (Ben Sayfa3 üzerinde denedim)

Kod: 
Liste.SubItems(6) = Format(Cells(i, 7).Value, "0.00 %")
.
Genişletmek için tıkla ...
Liste.SubItems(9) = format(Cells(i, 10).Value,"0.00") su komutlada istediğim diğer sorunu çözdüm haluk bey yardımlarınız için çok teşekkürler
 
E

evrensngr

Katılım
7 Mayıs 2019
Mesajlar
40
Excel Vers. ve Dili
Microsoft 2017
Visual Studio 2013-2014-2017-2019
Altın Üyelik Bitiş Tarihi
07/05/2024
@Haluk Peki Size bir soru daha sorsam listview 1in verileri sadece Sayfa 1den almasını nasıl sağlayabilirim sayfa 1 aktif olmasa bile
 
H

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
∞
Böyle bir şey olur herhalde ...

Kod: 
 Liste.SubItems(5) = Format(Cells(i, 6).Value, "0.00")
 
E

evrensngr

Katılım
7 Mayıs 2019
Mesajlar
40
Excel Vers. ve Dili
Microsoft 2017
Visual Studio 2013-2014-2017-2019
Altın Üyelik Bitiş Tarihi
07/05/2024
Haluk' Alıntı:
Böyle bir şey olur herhalde ...

Kod: 
 Liste.SubItems(5) = Format(Cells(i, 6).Value, "0.00")
Genişletmek için tıkla ...
Evet bunu uygulayınca sorunsuz çalışıyor peki listview 1in sadece sayfa1 de ki verileri listelemesini nasıl sağlarım
 
H

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
12,406
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
∞
Rich (BB code): 
Sub UserForm_Initialize()

    Dim sh1 As Worksheet

    Set sh1 = Sheets("Sayfa1")

    With ListView1

        .View = lvwReport

         .ColumnHeaders.Add , , "TARİH ", 63

         .ColumnHeaders.Add , , "KOD", 43, 2

         ......

         ....

         ..

         Liste.SubItems(1) = sh1.Cells(i, 2).Value

         Liste.SubItems(2) = sh1.Cells(i, 3).Value

         ......

         ....

         ..
 
E

evrensngr

Katılım
7 Mayıs 2019
Mesajlar
40
Excel Vers. ve Dili
Microsoft 2017
Visual Studio 2013-2014-2017-2019
Altın Üyelik Bitiş Tarihi
07/05/2024
Haluk' Alıntı:
Rich (BB code): 
Sub UserForm_Initialize()

    Dim sh1 As Worksheet

    Set sh1 = Sheets("Sayfa1")

    With ListView1

        .View = lvwReport

         .ColumnHeaders.Add , , "TARİH ", 63

         .ColumnHeaders.Add , , "KOD", 43, 2

         ......

         ....

         ..

         Liste.SubItems(1) = sh1.Cells(i, 2).Value

         Liste.SubItems(2) = sh1.Cells(i, 3).Value

         ......

         ....

         ..
Genişletmek için tıkla ...
Teşekkürler Haluk Bey emeğinize sağlık
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst