• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listview ile ilgili

U

udentr2002

Altın Üye
Katılım
5 Kasım 2006
Mesajlar
1,503
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
Merhaba,

Listview da en fazla kaç kolon olabilir.

Daha önce kullanmıştım ama şimdi 2 gündürlü uğraşıyorum ama listview ın kolonlarına verdiğim isimler de gelmiyor ve verileride alamıyorum. 69. stünlu bir sayfam var yani listview de 69 tane kolon olacak bunun için userform initialize altına aşağıdaki kodu yazdım.

Kod: 
Private Sub UserForm_Initialize()

Dim i  As Long, sat As Long, Sh As Worksheet, deg As String, X As Long
ListView1.View = lvwReport
'Kolanlara isim ver
Me.ListView1.ColumnHeaders.Clear
Me.ListView1.ListItems.Clear
With ListView1.ColumnHeaders
    .Add , , "sıra Adı ", 0 ' Burda 100 sütun genişliği
    .Add , , "Ürünün Adı " '150  Burda 100 sütun genişliği
    .Add , , "Etken Madde"
    .Add , , "Ürün Kodu"
    .Add , , "Ürün Sorumlusu"
    .Add , , "Orjinal Ürün Adı"
    .Add , , "Ruhsat Sahibi"
    .Add , , "Tablet Ölçüsü"
    .Add , , "Tablet Örneği"
    .Add , , "Ar-Ge Punch"
    .Add , , "Fette Zımba Adedi-Tipi"
    .Add , , "Tablet şekli"
    .Add , , "Ort. Tab. Ağ."
    .Add , , "Malzeme Tipi"
    .Add , , "Blister Ölçüsü"
    .Add , , "Tablet/Blister"
    .Add , , "Form Folyo Gen."
    .Add , , "Aluminyum folyo Genişliği"
    .Add , , "Omar Blister Kalıbı"
    .Add , , "Blisterleme Makinası"
    .Add , , "Blisterleme Formatı"
    .Add , , "Perforasyon"
    .Add , , "Kapak Folyo/Eyemark"
    .Add , , "Kapak Folyo Yazı Dizaynı"
    .Add , , "Format Malzeme İhtiyacı"
    .Add , , "Tablet/Tüp"
    .Add , , "Tüp Ebatı"
    .Add , , "Kapak Türü"
    .Add , , "Tüp Dolum Makinası"
    .Add , , "Tüp Dolum Formatı"
    .Add , , "Tüp Shrink"
    .Add , , "Format Malzeme İhtiyacı"
    .Add , , "Strip Malzemesi"
    .Add , , "Tablet/Strip Blok"
    .Add , , "Strip Ölçüleri"
    .Add , , "Strip Formatı"
    .Add , , "Saşe Malzemesi"
    .Add , , "Saşe Blok"
    .Add , , "Saşe Ölçüleri"
    .Add , , "Saşe Formatı"
    .Add , , "Toz Formatı"
    .Add , , "Format Malzeme İhtiyacı"
    .Add , , "Şişe Boyutu"
    .Add , , "Kapak Tipi"
    .Add , , "Kapak Ölçüsü"
    .Add , , "Cap-Seal"
    .Add , , "Şişe Dolum Makinası"
    .Add , , "Şişe Formatı"
    .Add , , "Kapak Formatı"
    .Add , , "Toz Formatı"
    .Add , , "Kaşık"
    .Add , , "Enkektör"
    .Add , , "Su"
    .Add , , "Etiket Ebatı"
    .Add , , "Etiket Çizimi"
    .Add , , "Format Malzmeme İhtiyacı"
    .Add , , "Blister/Kutu"
    .Add , , "Tüp/Kutu"
    .Add , , "Strip/Kutu"
    .Add , , "Saşe/Kutu"
    .Add , , "Şişe/Kutu"
    .Add , , "Kutu/Koli"
    .Add , , "Kutulama Makinası"
    .Add , , "Kutulama Formatı"
    .Add , , "Prospektüs Ölçüsü"
    .Add , , "Kutu Ölçüsü"
    .Add , , "Koli Ölçüsü"
    .Add , , "Koli Formatı"
    .Add , , "Fotmat Malzeme İhtiyacı"
    .Add , , "Açıkalama"
    
    End With
 
ListView1.FullRowSelect = True
ListView1.Gridlines = True

Call listele
End Sub

listele kodları ile de verileri almaya çalışıyorum bu kodlarda aşağıdaki gibidir.

Kod: 
Sub listele()

Dim i  As Long, sat As Long, Sh As Worksheet, deg As String, X As Long

Set S1 = Sheets("SOLİD")
sat = S1.Cells(65536, "A").End(xlUp).Row
ListView1.ListItems.Clear
With ListView1
    For i = 3 To sat
    X = X + 1
            
        ListView1.ListItems.Add , , i
        
        ListView1.ListItems(X).SubItems(1) = S1.Cells(i, "a").Value
        ListView1.ListItems(X).SubItems(2) = S1.Cells(i, "b").Value
        ListView1.ListItems(X).SubItems(3) = S1.Cells(i, "c").Value
        ListView1.ListItems(X).SubItems(4) = S1.Cells(i, "d").Value
        ListView1.ListItems(X).SubItems(5) = S1.Cells(i, "e").Value
        ListView1.ListItems(X).SubItems(6) = S1.Cells(i, "f").Value
        ListView1.ListItems(X).SubItems(7) = S1.Cells(i, "g").Value
        ListView1.ListItems(X).SubItems(8) = S1.Cells(i, "h").Value
        ListView1.ListItems(X).SubItems(9) = S1.Cells(i, "ı").Value
        ListView1.ListItems(X).SubItems(10) = S1.Cells(i, "j").Value
        ListView1.ListItems(X).SubItems(11) = S1.Cells(i, "k").Value
        ListView1.ListItems(X).SubItems(12) = S1.Cells(i, "l").Value
        ListView1.ListItems(X).SubItems(13) = S1.Cells(i, "m").Value
        ListView1.ListItems(X).SubItems(14) = S1.Cells(i, "n").Value
        ListView1.ListItems(X).SubItems(15) = S1.Cells(i, "o").Value
        ListView1.ListItems(X).SubItems(16) = S1.Cells(i, "p").Value
        ListView1.ListItems(X).SubItems(17) = S1.Cells(i, "q").Value
        ListView1.ListItems(X).SubItems(18) = S1.Cells(i, "r").Value
        ListView1.ListItems(X).SubItems(19) = S1.Cells(i, "s").Value
        ListView1.ListItems(X).SubItems(20) = S1.Cells(i, "t").Value
        ListView1.ListItems(X).SubItems(21) = S1.Cells(i, "u").Value
        ListView1.ListItems(X).SubItems(22) = S1.Cells(i, "v").Value
        ListView1.ListItems(X).SubItems(23) = S1.Cells(i, "W").Value
        ListView1.ListItems(X).SubItems(24) = S1.Cells(i, "x").Value
        ListView1.ListItems(X).SubItems(25) = S1.Cells(i, "y").Value
        ListView1.ListItems(X).SubItems(26) = S1.Cells(i, "z").Value
        ListView1.ListItems(X).SubItems(27) = S1.Cells(i, "aa").Value
        ListView1.ListItems(X).SubItems(28) = S1.Cells(i, "ab").Value
        ListView1.ListItems(X).SubItems(29) = S1.Cells(i, "ac").Value
        ListView1.ListItems(X).SubItems(30) = S1.Cells(i, "ad").Value
        ListView1.ListItems(X).SubItems(31) = S1.Cells(i, "ae").Value
        ListView1.ListItems(X).SubItems(32) = S1.Cells(i, "af").Value
        ListView1.ListItems(X).SubItems(33) = S1.Cells(i, "ag").Value
        ListView1.ListItems(X).SubItems(34) = S1.Cells(i, "ah").Value
        ListView1.ListItems(X).SubItems(35) = S1.Cells(i, "aı").Value
        ListView1.ListItems(X).SubItems(36) = S1.Cells(i, "aj").Value
        ListView1.ListItems(X).SubItems(37) = S1.Cells(i, "ak").Value
        ListView1.ListItems(X).SubItems(38) = S1.Cells(i, "al").Value
        ListView1.ListItems(X).SubItems(39) = S1.Cells(i, "am").Value
        ListView1.ListItems(X).SubItems(40) = S1.Cells(i, "an").Value
        ListView1.ListItems(X).SubItems(41) = S1.Cells(i, "ao").Value
        ListView1.ListItems(X).SubItems(42) = S1.Cells(i, "ap").Value
        ListView1.ListItems(X).SubItems(43) = S1.Cells(i, "aq").Value
        ListView1.ListItems(X).SubItems(44) = S1.Cells(i, "ar").Value
        ListView1.ListItems(X).SubItems(45) = S1.Cells(i, "as").Value
        ListView1.ListItems(X).SubItems(46) = S1.Cells(i, "at").Value
        ListView1.ListItems(X).SubItems(47) = S1.Cells(i, "au").Value
        ListView1.ListItems(X).SubItems(48) = S1.Cells(i, "av").Value
        ListView1.ListItems(X).SubItems(49) = S1.Cells(i, "aw").Value
        ListView1.ListItems(X).SubItems(50) = S1.Cells(i, "ax").Value
        ListView1.ListItems(X).SubItems(51) = S1.Cells(i, "ay").Value
        ListView1.ListItems(X).SubItems(52) = S1.Cells(i, "az").Value
        ListView1.ListItems(X).SubItems(53) = S1.Cells(i, "ba").Value
        ListView1.ListItems(X).SubItems(54) = S1.Cells(i, "bb").Value
        ListView1.ListItems(X).SubItems(55) = S1.Cells(i, "bc").Value
        ListView1.ListItems(X).SubItems(56) = S1.Cells(i, "bd").Value
        ListView1.ListItems(X).SubItems(57) = S1.Cells(i, "be").Value
        ListView1.ListItems(X).SubItems(58) = S1.Cells(i, "bf").Value
        ListView1.ListItems(X).SubItems(59) = S1.Cells(i, "bg").Value
        ListView1.ListItems(X).SubItems(60) = S1.Cells(i, "bh").Value
        ListView1.ListItems(X).SubItems(61) = S1.Cells(i, "bı").Value
        ListView1.ListItems(X).SubItems(62) = S1.Cells(i, "bj").Value
        ListView1.ListItems(X).SubItems(63) = S1.Cells(i, "bk").Value
        ListView1.ListItems(X).SubItems(64) = S1.Cells(i, "bl").Value
        ListView1.ListItems(X).SubItems(65) = S1.Cells(i, "bm").Value
        ListView1.ListItems(X).SubItems(66) = S1.Cells(i, "bn").Value
        ListView1.ListItems(X).SubItems(67) = S1.Cells(i, "bo").Value
        ListView1.ListItems(X).SubItems(68) = S1.Cells(i, "bp").Value
        ListView1.ListItems(X).SubItems(69) = S1.Cells(i, "bq").Value
       
        
           
           
         ' ListView1.ListItems(x).ListSubItems(17).Text = Format(ListView1.ListItems(x).ListSubItems(17), "#,##0.00")
            Next
End With
ListView1.FullRowSelect = True '(liste elemanını seçtiğinizde tüm satır seçili olur. Sadece lvwReport..(Ayrıntılar) görünümünde geçerlidir
ListView1.Gridlines = True '(listeyi çizgili yapar. Bu özellik sadece lvwReport...(Ayrıntılar) görünümünde geçerlidir)
'Umarım yardımcı olabilmişimir ! !

End Sub

Ama formu açtığımda listview in kolonlarına verdiğim isimler görünmüyor ve ayrıca syfadan verileride almıyor. Ne yaptıysam çözemedim bu konuda yardımlarınızı rica ederim.
 
Bu konu hakkında yardım edecek bir arkadaşım var mı? Yardımlarınızı bekliyorum.

Kolay Gelsin
 
Merhaba.
Ek dosyada kodlar gayet normal alıyor, properties ayarlarından veya "Activate" altında kod varsa ondan olabilir.

"Sıra adı" sütun genişliği=0 olduğu için görünmüyor
Kod: 
 .Add , , "sıra Adı ", [COLOR="Red"]0[/COLOR] ' Burda 100 sütun genişliği
 

Ekli dosyalar

Üstat teşekkürler,

Kolon adının rengini nasıl belirtebiliyoruz. Ben her kolon adının farklı bir renkte olmasını istiyorum böyle bir imkanımız var mı listview de?

Not: Listview de kolonun renkli olması değil listview nesnesindeki kolon adlarının olduğu alan renkli olmalı Örnek:

.Add , , "Ürün Sorumlusu"

Yazan yerin renkli olabilir mi?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst