Label Nesnesi ile ProgressBar Örneği

İlerleme çubuğu

Label Nesnesi ile ProgressBar Örneği

İleti#1)  Tarkan VURAL » 17 Eyl 2008 17:51

UserForm üzerine bir progressBar ekleyerek aşağıdaki kodları yazın, ya da örneği indirip inceleyiniz.

Kod: Tümünü seç
Sub TestEt()
    UserForm1.LabelProgress.Width = 0
    UserForm1.Show
End Sub


Kod: Tümünü seç
Sub Progress()
    Dim Sayac As Integer
    Dim Sutun As Integer, Satir As Integer
    Dim i As Long, a As Long
    Dim PctDone As Single
   
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    Cells.Clear
    Application.ScreenUpdating = False
    Sayac = 1
    Sutun = 200
    Satir = 25
    For i = 1 To Sutun
        For a = 1 To Satir
            Cells(i, a) = "www.excelvba.net"
            Sayac = Sayac + 1
        Next a
        PctDone = Sayac / (Sutun * Satir)
        With UserForm1
            .FrameProgress.Caption = Format(PctDone, "0%")
            .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        End With
        DoEvents
    Next i
    Unload UserForm1
End Sub



Kod: Tümünü seç
Private Sub UserForm_activate()
    Call Progress
End Sub


ProgressBarOrnek2.rar
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ş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

ProgressBar Örneği

İleti#2)  Erhan Yavuz » 17 Eyl 2008 21:22

[TESEKKÜR]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

ProgressBar Örneği

İleti#3)  Erhan Yavuz » 18 Eyl 2008 19:36

Label Kullanılan ProgressBar örneği de benden..

Kod: Tümünü seç
Private Sub CommandButton1_Click()
UserForm_Initialize
For i = 1 To 10000
TextBox2.Width = (i / 10000) * 210
Label1.Caption = FormatNumber(TextBox2.Width / 2.1, 0)
If Label1.Caption = 40 Then
Label1.BackColor = &H80000001
Label1.ForeColor = &H80000014
End If
DoEvents
Next
End Sub
Private Sub UserForm_Initialize()
Label1.BackColor = &H80000002
TextBox2.Width = 0
Label1.ForeColor = &H80000006
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

ProgressBar Örneği

İleti#4)  Tarkan VURAL » 18 Eyl 2008 20:46

[TESEKKÜR]

Eklediğiniz örnek üzerinde biraz değişiklik yaparak ProgressBarı 'ın sayfada ne gibi işlemlere yardımcı olacağını gösterdim.

yeni_progressbar3.rar
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ş: 45
İleti: 26823
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

ProgressBar Örneği

İleti#5)  Erhan Yavuz » 18 Eyl 2008 22:21

[TESEKKÜR]
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler

Cevap: Label Nesnesi ile ProgressBar Örneği

İleti#6)  umitylcn » 09 Haz 2009 17:57

ARKADAŞLAR YAPTIĞINIZ ÖRNEKLER ÇOK GÜZEL FAKAT YENİ BAŞLAYANLAR İÇİN DAHA AÇIKLAYICI OLARAK ANLATAMAZ MISINIZ? BEN SQL İLE VERİ ÇEKİYORUM VE ARALARA PROGRESSBAR EKLEMEK İSTİYORUM. MESELE TARİH AYARLANIYOR, VERİ GETİRİLİYOR. HESAPLANIYO, VS. ÇOK AÇIKLAYICI ANLATIRSANIZ SEVİNİRİM.
Kullanıcı avatarı
umitylcn
 
Adı Soyadı:ÜMİT YALÇIN
Kayıt: 09 Haz 2009 17:41
İleti: 2
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Label Nesnesi ile ProgressBar Örneği

İleti#7)  Erhan Yavuz » 09 Haz 2009 18:26

Ümit bey ExcelVBA'ya hoş geldiniz... İnşallah öğrenmek istediğiniz konularda istediğiniz yanıtları alırsınız.
Ancak iyi niyetli yaklaşımınıza dayanarak; Türkçe yazım kurallarına gösterdiğiniz hassasiyeti, Form kurallarına da göstermenizi rica ediyorum.
Belki bilmiyorsunuzdur diye açıklama yapayım. Mesaj formuna sürekli BÜYÜK HARF ile yazı yazmak bağırmak anlamına gelmektedir. Size yardımcı olmak isteyen arkadaşlar rahatsız olabilirler. Bu nedenle Türkçe yazım kurallarına ve Forum kurallarına uygun sorunuzu sormanızı özellikle rica edeceğim.

Anlayışınız için şimdiden teşekkürler...
☾✭ Türkçemizi tam ve doğru kullanmaktan korkmayalım..
Teşekkür etmek Erdemdir. ECYavuz


OSMANLI OYUNU (1402-1566)
http://www.excelvba.net/viewtopic.php?f=41&t=9984

EXCEL-VBA KOD BANKASI PRO.7.0
http://www.excelvba.net/viewtopic.php?f=38&t=3304
Resim
Kullanıcı avatarı
Erhan Yavuz
Site Forum Yöneticisi
 
Adı Soyadı:Erhan Yavuz
Kayıt: 15 Haz 2008 02:13
Konum: Etiler / İstanbul
Meslek: Emekli Sb.
Yaş: 59
İleti: 5695
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Etiler


Forum ProgressBar

Online Kullanıcılar

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

Bumerang - Yazarkafe