arama hızı yavaşlıyor

teknikyapı · 5 Ocak 2008

Merhaba.
Aşağıda uzman arkadaşlarımdan faydalandığım arama yapan kodlarda nasıl bir düzenleme yaparsak aramayı hızlandırabiliriz acaba? Şu an ilgili sayfada 300 satır var ama ileride 5000 adet satıra çıkabilir.Application.ScreenUpdating diye bir olay olduğunu öğrendim fakat uygulayamadım.YArdımcı olacak arkadaşlara teşekkür ederim.İyi çalışmalar.

Private Sub TextBox7_Change()
Set SR = Sheets("RAYİC")
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False Then
MsgBox "Lütfen arama kriterini seçiniz !", vbCritical, "Dikkat !"
Exit Sub: End If

ListView1.ListItems.Clear

If OptionButton1 = True Then Set ALAN = Range("A3:A" & [A65536].End(3).Row)
If OptionButton2 = True Then Set ALAN = Range("B3:B" & [B65536].End(3).Row)
If OptionButton3 = True Then Set ALAN = Range("F3:F" & [B65536].End(3).Row)

If OptionButton1 = True Then Set BUL = ALAN.Find(TextBox7.Text & "*", LookAt:=xlWhole)
If OptionButton2 = True Then Set BUL = ALAN.Find("*" & TextBox7.Text & "*")
If OptionButton3 = True Then Set BUL = ALAN.Find("*" & TextBox7.Text & "*")

If Not BUL Is Nothing Then
Adres = BUL.Address
Do
satır = BUL.Row
With ListView1
.ListItems.Add , , SR.Cells(satır, 1)
X = X + 1
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 2)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 3)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 4)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 5)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 6)
.ListItems(X).ListSubItems.Add , , SR.Cells(satır, 7)
SAY = SAY + 1

'eğer hücre başında (*) işareti var ise satırı kırmızı renklendir
If Left(SR.Cells(satır, 2), 1) = "*" Then
.ListItems(X).ListSubItems(1).ForeColor = vbBlue
.ListItems(X).ForeColor = vbBlue
End If

'eğer hücre başında (-) işareti var ise satırı kırmızı renklendir
If Left(SR.Cells(satır, 2), 1) = "-" Then
.ListItems(X).ListSubItems(1).ForeColor = vbRed
.ListItems(X).ForeColor = vbRed
End If

End With
Set BUL = ALAN.FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> Adres
End If
Label1 = SAY & " ADET"
Set SR = Nothing
Set ALAN = Nothing
Set BUL = Nothing
End Sub

Mahmut Kök · 5 Ocak 2008

teknikyapı' Alıntı:
Merhaba.
...Application.ScreenUpdating diye bir olay olduğunu öğrendim fakat uygulayamadım.

Kodlarınızın başına,

Kod:

Application.ScreenUpdating = False

Sonuna da

Kod:

Application.ScreenUpdating = True

Şeklinde yazarsınız

teknikyapı · 5 Ocak 2008

sn mesleki cevap için teşekkür ederim ama maalesef kodların başına ve sonuna yazdıktan sonra herhangi bir hızlanma olmadı.Yinede başka bir fikriniz olursa sevinirim

peker · 5 Ocak 2008

Kodlarınızın başına
Excel.Application.Calculation = xlCalculationManual

kodlarınızın sonuna
Excel.Application.Calculation =xlCalculationAutomatic

Umarım yardımcı olmuştur

teknikyapı · 5 Ocak 2008

Maalesef sn peker bu da dosyayı hızlandıramadı.Arama yaparken ve listviewe veriler gelirken olağan dışı görünen bir süre geçiyor.Dosya şu an 496 kb ve sadece ilgili sayfada veriler var oda 4000 satır gibi.Uzman arkadaşlarımdan yardım bekliyorum lütfen.İyi çalışmalar

Korhan Ayhan · 5 Ocak 2008

Selamlar,

Find komutu en hızlı arama yöntemlerinden birisidir. Sanırım sizin dosyanızda bir problem var. Herhangibir aramada geçen süreyi belirtip dosyanızı eklermisiniz.

teknikyapı · 5 Ocak 2008

sn COST_CONTROL dosyayı ekledim.İlginiz için teşekkür ederim.Rayiç kitabı bölümünü tıkladığımız zaman form 4-5 sn içinde açılıyor.Bu formdaki ara bölümünde aramada en az o kadar sürüyor.Dosyaya bakarsanız daha iyi anlaşılır.Şimdiden teşekkür ederim.İyi çalışmalar.

Zeki Gürsoy · 5 Ocak 2008

Gerçekte dosyanız kaç satır içeriyor?
İsterseniz "DataGrid" ile yapılabilir.

DataGrid nesnesine 3-4 sn. gibi zamanda 100.000'den fazla kayıt listelenebiliyor.(ADO ile)

teknikyapı · 5 Ocak 2008

sn anemos şu an ilgili sayfada 300 satır var.Ama ileride 5000 satır veriye çıkması muhtemel.Bende o sayfayı yaklaşık o 3-4 bin satır veriye çıkarınca dosya ağırlaştı.Maalesef DataGrit nesnesi ve ADO uygulamaları ile ilgili yeterli bilgim yok.Yinede bu aşamada bir çözüm bulursanız sevinirim.İyi çalışmalar.

Levent Menteşoğlu · 5 Ocak 2008

Bir örnek dosya eklerseniz çok daha hızlı çalışacak yöntemler önerilebilir.

teknikyapı · 5 Ocak 2008

sn leventm bey üstte 7.mesajımda örnek dosyayı eklemiştim.Önerilerinizi bekliyorum.Teşekkür ederim.

Levent Menteşoğlu · 5 Ocak 2008

Arama textboxındaki kodu aşağıdaki ile değiştirerek denermisiniz. Sanıyorum ilk kodlara göre daha hızlı çalışıyor.

Kod:

Private Sub TextBox7_Change()
Set SR = Sheets("RAY&#304;C")
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False Then
MsgBox "L&#252;tfen arama kriterini se&#231;iniz !", vbCritical, "Dikkat !"
Exit Sub: End If
ListView1.ListItems.Clear
If OptionButton1 = True Then sut = 1: Set ALAN = SR.[a:a]
If OptionButton2 = True Then sut = 2: Set ALAN = SR.[b:b]
If OptionButton3 = True Then sut = 6: Set ALAN = SR.[f:f]
If sut = 1 And Len(TextBox7) < 2 Then Exit Sub
say = WorksheetFunction.CountIf(ALAN, TextBox7 & "*")
For a = 1 To say
sat&#305;r = WorksheetFunction.Match(TextBox7 & "*", SR.Range(SR.Cells(sat&#305;r + 1, sut), SR.Cells(65536, sut)), 0) + sat&#305;r
                With ListView1
                   .ListItems.Add , , SR.Cells(sat&#305;r, 1)
                    X = X + 1
                   .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 2)
                   .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 3)
                   .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 4)
                   .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 5)
                   .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 6)
                   .ListItems(X).ListSubItems.Add , , SR.Cells(sat&#305;r, 7)
                
                'e&#287;er h&#252;cre ba&#351;&#305;nda (*) i&#351;areti var ise sat&#305;r&#305; k&#305;rm&#305;z&#305; renklendir
         If Left(SR.Cells(sat&#305;r, 2), 1) = "*" Then
            .ListItems(X).ListSubItems(1).ForeColor = vbBlue
            .ListItems(X).ForeColor = vbBlue
         End If
                
                'e&#287;er h&#252;cre ba&#351;&#305;nda (-) i&#351;areti var ise sat&#305;r&#305; k&#305;rm&#305;z&#305; renklendir
         If Left(SR.Cells(sat&#305;r, 2), 1) = "-" Then
            .ListItems(X).ListSubItems(1).ForeColor = vbRed
            .ListItems(X).ForeColor = vbRed
         End If
                
                End With
        Next
        Label1 = say & "    ADET"
Set SR = Nothing
Set ALAN = Nothing
End Sub

teknikyapı · 5 Ocak 2008

Sn leventm bey çok teşekkür ederim belliki çok uğraşmıssınız beyninize sağlık.Fakat çok olmazsam eğer bir sorum daha olacak.Ara bölümündeki texboxta yazdığım veri arandıktan sonra bu textboxu başka arama için silmeye çalıştığımda listviewe veriler geç geliyor.( yani textboxu boşalttıktan sonra herhalde change olayı ile ilgili ).Anlatabildim inşallah.

Levent Menteşoğlu · 5 Ocak 2008

Textboxtaki kodların en üstüne aşağıdaki satırları ilave edebilirsiniz ancak buda çok hızlı olmayacaktır. Listview nesnesine veriler döngü ile yüklendiği için özellikle veri sayısı fazla olduğunda biraz yavaş çalışmaktadır. (başka veri yükleme yöntemi varmı bilmiyorum) Bu nesne yerine görsellikten fedakarlık ederek listbox kullanabilirsiniz.

Kod:

If TextBox7 = "" Then
UserForm_Initialize
Exit Sub
End If

teknikyapı · 5 Ocak 2008

sn leventm bey verdiğiniz bilgiler için çok teşekkür ederim.Birde dosyayı biraz daha düzenleyip daha hızlı olan başka bir bilgisayarda denedikten sonra sonuçları paylaşırım.Aslında listbox konusunda çok haklısınız herhalde gidişat oraya doğru ! İyi çalışmalar.

teknikyapı · 5 Ocak 2008

sn leventm bey büromdaki bilgisayarda ( işlemçi çift çekirdek 2.8) arama kodları yaklaşık 5000 satıra kadar az etkilenerek sorunsuz çalıştı.(Diğer bilgisayar P2) .Tekrar yardımlarınız için çok teşekkür ederim.İyi çalışmalar.

arama hızı yavaşlıyor

teknikyapı

Mahmut Kök

Özel Üye

teknikyapı

peker

teknikyapı

Korhan Ayhan

Administrator

teknikyapı

Zeki Gürsoy

Uzman

teknikyapı

Levent Menteşoğlu

Administrator

teknikyapı

Levent Menteşoğlu

Administrator

teknikyapı

Levent Menteşoğlu

Administrator

teknikyapı

teknikyapı