KODUN ÇALIÃMASINI HIZLANDIRMAK
Ã?ncelikle Tüm Form üyelerinin geçmiş Kurban Bayramını kutlarım
Aşağıdaki kod Sayfa isimlerinin ComboBoxta listelenmesini sağlıyor.Aynı zamandada belirtilen sayfaların listelenmesini engelliyor.Bunu yaparken her çalıştığında tüm sayfa isimlerini gözden geçirip sıralama yapıyor. Sanıyorumki bu gözden geçirme ve sıralama işlemi kodun çalışmasını yavaşlatıyor. Açılacak olan her sayfa bir müşteriye ait cari kart olarak düşünüldüğünden 200 - 300 sayfa açılması olasılığı var. Bu durum karşısında sanıyorum bu kod çok daha yavaş çalışacaktır. Bu kodu karşılayacak daha pratik ve daha hızlı çalışacak bir kod yazılamazmı. Eğer isterseniz örnek çalışmamı gönderebilirim.
Yardımlarınıza şimdiden çok teşekkür ederim.
KOD:
Ã?ncelikle Tüm Form üyelerinin geçmiş Kurban Bayramını kutlarım
Aşağıdaki kod Sayfa isimlerinin ComboBoxta listelenmesini sağlıyor.Aynı zamandada belirtilen sayfaların listelenmesini engelliyor.Bunu yaparken her çalıştığında tüm sayfa isimlerini gözden geçirip sıralama yapıyor. Sanıyorumki bu gözden geçirme ve sıralama işlemi kodun çalışmasını yavaşlatıyor. Açılacak olan her sayfa bir müşteriye ait cari kart olarak düşünüldüğünden 200 - 300 sayfa açılması olasılığı var. Bu durum karşısında sanıyorum bu kod çok daha yavaş çalışacaktır. Bu kodu karşılayacak daha pratik ve daha hızlı çalışacak bir kod yazılamazmı. Eğer isterseniz örnek çalışmamı gönderebilirim.
Yardımlarınıza şimdiden çok teşekkür ederim.
KOD:
Kod:
Private Sub OptionButton1_Click()
Dim i As Integer
Dim j As Integer
Label1.Caption = ""
If Worksheets.Count = 1 Then Exit Sub
For i = 1 To Worksheets.Count
Sheets(i).Name = LCase(Sheets(i).Name)
For j = i + 1 To Worksheets.Count
If LCase(Worksheets(j).Name) < LCase(Worksheets(i).Name) Then
Worksheets(j).Move Before:=Worksheets(i)
End If
Next j
Next i
For i = 1 To Sheets.Count
If LCase(Sheets(i).Name) <> LCase("ana sayfa") _
And LCase(Sheets(i).Name) <> LCase("toplam") _
And LCase(Sheets(i).Name) <> LCase("stok") _
And LCase(Sheets(i).Name) <> LCase("kasa") _
And LCase(Sheets(i).Name) <> LCase("fatura") Then
ComboBox1.AddItem Sheets(i).Name
ComboBox2.AddItem Sheets(i).Name
End If
Next
Sheets("ana sayfa").Move Before:=Sheets(2)
End Sub