Makronuz 10-15 saniye sürüyorsa kullanıcı Excel dondu sanabilir. Ona işlemin devam ettiğini gösteren bir "İlerleme Çubuğu" yapmak profesyonellik göstergesidir.
Basit Yöntem (Status Bar)
UserForm ile uğraşmadan, Excel'in sol alt köşesini kullanabilirsiniz:
For i = 1 To 1000
'İşlemler...
Application.StatusBar = "İşleniyor: %" & (i / 1000) * 100
Next i
Application.StatusBar = False 'İş bitince temizle
'İşlemler...
Application.StatusBar = "İşleniyor: %" & (i / 1000) * 100
Next i
Application.StatusBar = False 'İş bitince temizle
Kullanıcı sol altta sayacın aktığını görür ve programın çalıştığını anlar.
Yorum Yap