StatusBar ile Profesyonel Yükleme Çubuğu

Durum Çubuğu Mesajı

Ekranın en sol alt köşesindeki gri çubuğa (StatusBar) işlem yüzdesini yazdırarak kullanıcıyı bilgilendirebiliriz.

VBA Kodu:

Sub DurumGoster()
    Application.StatusBar = "Lütfen bekleyin, rapor hazırlanıyor... %50"
    ' ... (İşlemler)
    Application.Wait (Now + TimeValue("0:00:02")) ' 2 saniye bekle
    Application.StatusBar = False ' Temizle
End Sub

Ne Göreceksiniz? Sol alt köşede 2 saniye boyunca sizin belirlediğiniz mesaj görünecek, işlem bitince o alan tekrar standart haline dönecektir.