ProgressBar Hk.

[talebeyim]

Arkadaşlar, sitede 15 tane kadar örnek buldum ama ben kendi tabloma uyarlayamıyorum.


Yapmak istediğim şu kodlar isimli blogumda 30'a yakın Etopla ve düşeyara var ortalam kod güncellenme süresi 30-60saniye Ben Kodlar isimli Makroma progress bar oluşturmak istiyorum.

Bu konuda örnek tabloyla yardımcı olabilirmisiniz, ve Öğrenmek açısından söylüyorum, kodların aralarına açıklama metinleri koyabilirmisiniz ?


Teşekkür ederim...

Sub Kodlar()

....Vlookup

....Sumif

End Sub

 

[talebeyim]

açıklama yeterli olmadımı arkadaşalar konu halen günceldir ?

 

[heft]

Selam,
Bu konuyu bende araştırdım,progressbarı yapılan işleme endexli çalıştıramadım,işlem öncesi/sonrası çalışıyor ama anlamı kalmıyor.

 

[talebeyim]

Al bendende o kadar

 

[Murat OSMA]

Şu örnek işinize yarar mı ?

 

[talebeyim]

Açıklama olabilirmi ?

Murat bey, verdiğiniz kod isime yarar hatta user form olmaksızın progress bar örneği dahada cabuk olabilir. fakat, ben bu işlemi step step öğrenmek istiyorum tekrar soru sormadan, Progressbar kullanım mantığınıdanda bahsederek, bana aşağıdaki kodları açıklayabilirmisiniz ?

Private Sub CommandButton1_Click()
tablo1 = Range("b8:f65530")

Sheet1.ProgressBar1.Visible = True
    Sheet1.TextBox1.Visible = True
    Sheet1.ProgressBar1.Min = 0
    Sheet1.ProgressBar1.Max = Range("N300").End(3).Row
    deger = Range("N300").End(3).Row / 100

Sheet1.ProgressBar1.Value = 0

For i = 7 To Range("N300").End(3).Row

DoEvents
    
  
    Sheet1.TextBox1.Value = "Lütfen Bekleyiniz...   " & FormatNumber(i / deger, 0) & " % "
    
i = 7
For a = 8 To 65536
On Error Resume Next
If Cells(a, 11) <> "" Then i = i + 1
If Cells(a, 11) <> "" Then Cells(i, 14) = WorksheetFunction.VLookup(Cells(a, 11), tablo1, 5, 0)


DoEvents
Sheet1.ProgressBar1.Value = Sheet1.ProgressBar1.Value + 1
Sheet1.TextBox1.Text = "Lütfen Bekleyiniz..." & Round(Sheet1.ProgressBar1.Value / Sheet1.ProgressBar1.Max * 100, 0) & " %"

Next a


Next i

Sheet1.TextBox1.Visible = False
MsgBox "Kiyaslama islemi OK !!!!", vbInformation, "el"
Sheet1.ProgressBar1.Visible = False

End Sub

 

[Murat OSMA]

Kodlarda anlatacak pek bir şey yok açıkcası.

ProgressBar mantığı örnekle şu şekildedir;

Private Sub CommandButton1_Click()
    For i = 1 To 1000
        ProgressBar1.Value = (i / 1000) * 100
        Label1.Caption = Format(ProgressBar1.Value, "% 00")
        DoEvents
    Next i
End Sub

 

[talebeyim]

Kodlarda anlatacak pek bir şey yok açıkcası.

ProgressBar mantığı örnekle şu şekildedir;

Private Sub CommandButton1_Click()
    For i = 1 To 1000
        ProgressBar1.Value = (i / 1000) * 100
        Label1.Caption = Format(ProgressBar1.Value, "% 00")
        DoEvents
    Next i
End Sub

Yani demek istediğim şöyle murat bey, örnek veriyorum, düşeyara ve etoplalardan oluşan kod bloğunun tamamlanma süresi 40saniye, yani progressbarla bunu nasıl ilişkilendiriyoruz asıl sormak istediğim bu.