VBA ile UserForm Üzerinde Progress Bar Yapımı

Büyük hacimli verileri işleyen makrolar çalışırken Excel kullanıcıları ekranın kilitlendiğini düşünerek endişelenir. Bu sorunu çözmek için bir UserForm içerisine yerleştirilen çerçeve (Frame) ve etiket (Label) nesneleriyle profesyonel bir Progress Bar (İlerleme Çubuğu) tasarlayabilir, döngü ilerledikçe çubuğun dolmasını sağlayabilirsiniz.

Progress Bar Nasıl Kodlanır?

Döngünün her adımında yüzde oranına göre Label nesnesinin genişliği (Width) artırılır ve formun anında yenilenmesi için DoEvents komutu tetiklenir.

Örnek Progress Bar Kod Kalıbı


                                Dim i As Long

                                For i = 1 To 100

                                    ' Çubuğun genişliğini yüzdeye göre ayarla

                                    UserForm1.BarLabel.Width = i * 3

                                    UserForm1.Caption = "İşlem Yüzdesi: %" & i

                                    DoEvents ' Ekranın donmasını önle

                                Next i

Canlı Simülatör: İlerleme Çubuğu Testi

Aşağıdaki makro döngüsü, veri işleme sürecini simüle ederek ilerleme çubuğunu dolduracaktır. İşlemi Başlat butonuna basın.

Visual Basic Editörü

UserForm1 (Code)

Sub ProgressBarCalistir()
    Dim i As Integer
    For i = 1 To 100
        Me.Bar.Width = i * 2
        DoEvents
    Next i

    MsgBox "Raporlama süreci başarıyla tamamlandı!", vbInformation
End Sub

Canlı UserForm Görünümü

Veriler İşleniyor... %0

Önceki VBA Dersleri VBA Şifre Koruması

Microsoft Excel ✕

Raporlama süreci başarıyla tamamlandı!