listview da stabil hızlı bir arama şekli

[Korhan Ayhan]

Bunun garantisini veremem. Bende daha önce 64 Bit ofis yüklü bir sistemde denediğimde çalıştırabilmiştim. Ama çalıştıramayan arkadaşlarda olmuştu.

Bunu ancak deneyerek tecrübe edebilirsiniz.

 

[aywaz1986]

Bilgilendirmeleriniz için teşekkür ederim o zaman taslak kalıbı oluşturup bir kaç PC de denedikten sonra tecrübelerimi burda paylaşırım yine teşekkür ederim.

 

[aywaz1986]

Merhaba Korhan Hocam

Çalışmamın Büyük bir bölümünü bitirdim bilgilendirmeleriniz için cok teşekkür ederim. İlk taslak bit 32 BİT OFFİCE de tasarlayıp 64 bit te çalıştırabildiğimizi testlerle belirledim saadece ayarlarını açamadığımız için düzenleme yapamıyoruz LİSTVİEW üzerinde. onun dışında stabil olarak çalışıyor.

Ayrıca bir konuda daha yardımınızı rica ediyorum. Sizin Örnek dosyanız üzerinden Örnekleme sunuyorum kusuruma bakmayın lütfen;
Listview 1 de bütün görevler görünüyor
Ancak
GT listview tablosunda bulunan satırların her birini bir görev olarak kabul ederek;
O günkü tarihte
görevde olanlar kırmızı
göreve çıkacak olanlar mavi
görev süresi bitenler ise renksiz olarak listeden çıksın istiyoruz bu konuda bir sey yapabilirmiyiz.

Pek çok kod denedim ama yapamadım.

 

[Korhan Ayhan]

Ekteki gibi olabilir. Yazı fontu renklenebiliyor.

 

[aywaz1986]

Teşekkür ederim hocam peki orda listview yerine listbox kullansak satır olarak renklendirme yapabilir miyiz.

 

[Korhan Ayhan]

Yapamazsınız.

 

[aywaz1986]

Teşekkür ederim hocam bunu bı deneyim.

 

[aywaz1986]

Merhaba Hocam teşekkür ederim istediğim gibi fakat kırmızı renk olacak olan saadece bulunduğumuz gün görevde olanı gösteriyor tarih aralığındakini değil örneğin ayın 19 unda göreve çıkmış ise 5 günlük görevde 24 üne kadar görevde ayın 24 ü gelene kadar kırmızı görünsün sonra renksiz olsun gibi yapabilirmiyiz.

 

[Korhan Ayhan]

Deneme şansım olmadı. Kurguda hata yoktur umarım.

Sub Listele_2()
    Dim Son As Long, Veri As Variant, X As Long, Say As Long, Y As Byte
    
    Son = Cells(Rows.Count, 1).End(xlUp).Row
    If Son < 3 Then Son = 3
    
    Veri = Range("A2:H" & Son).Value
    
    With UserForm2.GT
      .ListItems.Clear
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            .ListItems.Add , , Veri(X, 1)
            Say = Say + 1
            With .ListItems(Say).ListSubItems
                .Add , , Veri(X, 2)
                .Add , , Veri(X, 3)
                .Add , , Veri(X, 4)
                .Add , , Veri(X, 5)
                .Add , , Veri(X, 6)
                .Add , , Veri(X, 7)
                .Add , , Veri(X, 8)
    
                If CDate(Veri(X, 7)) <= Date And CDate(Veri(X, 7) + Veri(X, 8)) >= Date Then
                    Me.GT.ListItems(Say).ForeColor = vbRed
                    For Y = 1 To Me.GT.ColumnHeaders.Count - 1
                        Me.GT.ListItems(Say).ListSubItems(Y).ForeColor = vbRed
                    Next
                                    
                ElseIf CDate(Veri(X, 7)) < Date And CDate(Veri(X, 7) + Veri(X, 8)) < Date Then
                        Me.GT.ListItems(Say).ForeColor = vbBlue
                        For Y = 1 To Me.GT.ColumnHeaders.Count - 1
                            Me.GT.ListItems(Say).ListSubItems(Y).ForeColor = vbBlue
                        Next
                End If
            End With
        Next
    End With
End Sub

 

[aywaz1986]

Deneme şansım olmadı. Kurguda hata yoktur umarım.

Sub Listele_2()
    Dim Son As Long, Veri As Variant, X As Long, Say As Long, Y As Byte
  
    Son = Cells(Rows.Count, 1).End(xlUp).Row
    If Son < 3 Then Son = 3
  
    Veri = Range("A2:H" & Son).Value
  
    With UserForm2.GT
      .ListItems.Clear
        For X = LBound(Veri, 1) To UBound(Veri, 1)
            .ListItems.Add , , Veri(X, 1)
            Say = Say + 1
            With .ListItems(Say).ListSubItems
                .Add , , Veri(X, 2)
                .Add , , Veri(X, 3)
                .Add , , Veri(X, 4)
                .Add , , Veri(X, 5)
                .Add , , Veri(X, 6)
                .Add , , Veri(X, 7)
                .Add , , Veri(X, 8)
  
                If CDate(Veri(X, 7)) <= Date And CDate(Veri(X, 7) + Veri(X, 8)) >= Date Then
                    Me.GT.ListItems(Say).ForeColor = vbRed
                    For Y = 1 To Me.GT.ColumnHeaders.Count - 1
                        Me.GT.ListItems(Say).ListSubItems(Y).ForeColor = vbRed
                    Next
                                  
                ElseIf CDate(Veri(X, 7)) < Date And CDate(Veri(X, 7) + Veri(X, 8)) < Date Then
                        Me.GT.ListItems(Say).ForeColor = vbBlue
                        For Y = 1 To Me.GT.ColumnHeaders.Count - 1
                            Me.GT.ListItems(Say).ListSubItems(Y).ForeColor = vbBlue
                        Next
                End If
            End With
        Next
    End With
End Sub

hocam harikasın teşekkür ederim.
Dosyayı kullanmaya başlamak için daha zamana ihtiyacım var ama engel olan pek çok şeyi sayenizde aştım teşekkür ederim.