ProgressBar nesnesi ile Örnek

İlerleme çubuğu

ProgressBar nesnesi ile Örnek

İleti#1)  Tarkan VURAL » 17 Ekm 2008 13:48

Bir örnek daha, bu defaki ProgressBar' ın kendisi ile ...

Kod: Tümünü seç
Private Sub UserForm_activate()
On Error Resume Next
ProgressBar1.Max = Sayfa1.Range("a65536").End(3).Row
Dim Sayac As Long, i As Long
Sayac = 1
For i = 2 To Range("a65536").End(3).Row
Cells(1, "H") = "Miktar"
Cells(i, "H") = WorksheetFunction.Sum(Cells(i, 1) * Cells(i, 2))
Sayac = Sayac + 1
UserForm1.ProgressBar1.Value = Sayac
UserForm1.Label1.Caption = Sayac & " adet işlem tamamlandı ....."
DoEvents
Next i
Unload UserForm1
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

ProgressBar Örneği

İleti#2)  Tarkan VURAL » 17 Ekm 2008 15:31

Farklı bir örnek daha ;
UserFormu kapatsanız da hücrede sayım devam ediyor...
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

ProgressBar nesnesi ile Örnek

İleti#3)  Tarkan VURAL » 23 Ekm 2008 14:38

Karışık işlemler için bir ProgressBar örneği daha ...


Kod: Tümünü seç
Sub Deneme()
On Error Resume Next
Dim i As Long, a As Long
ProgressBar1.Max = Sayfa1.Range("a65536").End(3).Row
Range("A1:B5001").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("F1"), Unique:=True
Columns("F:G").Select
Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Key2:=Range("G2"), _
Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
Range("F1").Select
a = Range("F65536").End(3).Row
For i = 2 To a
Cells(1, "H") = "Miktar"
UserForm1.ProgressBar1.Value = i
UserForm1.Label1.Caption = "İlerleme Durumu : " & CInt(i / (a / 100)) & "%" & vbCr & _
vbCr & vbCr & "Yapılan İşlem Adedi : " & i
Cells(i, "H") = Evaluate("=SUMPRODUCT(($A$2:$A$5001=F" & i & ")*($B$2:$B$5001=G" & i & ")*($C$2:$C$5001))")
DoEvents
Next
Unload UserForm1
Range("h65536").End(3).Select
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

ProgressBar nesnesi ile Örnek

İleti#4)  Erkan Akayay » 23 Ekm 2008 14:49

Tarkan inat ettin ve yaptın , helal olsun şkşk Progressbardan özür dilerim :)
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 13:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 48
İleti: 3906
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ümraniye

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

ProgressBar nesnesi ile Örnek

İleti#5)  Tarkan VURAL » 23 Ekm 2008 16:01

Erkan Akayay yazdı:Tarkan inat ettin ve yaptın , helal olsun şkşk Progressbardan özür dilerim :)

Senin yüzünden, ProgressBar' ı kötüledin, o da dokundu bana [komik]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 44
İleti: 26715
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü


Forum ProgressBar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe