Statusbar Alanında Progressbar Kullanımı

Bu dosya, Excel penceresinin altındaki durum çubuğunda (Statusbar) bir ilerleme göstergesi (progressbar) görüntülemeyi gösteren makro örneğidir. Uzun süren işlemlerde kullanıcıya işlemin devam ettiğini bildirmek isteyenler için hazırlanmıştır.
Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: Sayfada veri bulunmaz; yalnızca makroyu başlatan bir CommandButton1 düğmesi yer alır.

Makrolar​

Makro kodu Sheet1 sayfasının içindedir ve tek yordam barındırır.

• CommandButton1_Click: Düğmeye basıldığında çalışır. Önce durum çubuğunda gösterilecek simge belirlenir; kodda ChrW(8718) karakterinin 5 kez tekrarından oluşan bir blok kullanılır. Alternatif simgeler (ChrW(9209), ChrW(9471), ChrW(9787)) yorum satırı olarak hazırdır ve başındaki tırnak işareti kaldırılarak denenebilir.
• Ardından 1'den 1000'e kadar bir döngü çalışır. Her adımda içi boş bir döngü ile kısa bir bekleme yapılır, sonra Application.StatusBar değerine, adım sayısının 200'e bölümünden kalan kadar boşluk ve simge bloğu yazılır. Böylece blok durum çubuğunda soldan sağa kayar ve 200 adımda bir başa döner.
• Döngü bittiğinde Application.StatusBar = False ile durum çubuğu normal haline döndürülür.
• Kodda dosya silme, dış bağlantı gibi zararlı bir işlem yoktur.

Bekleme süresi, döngüdeki 2000000 değeriyle ayarlanır; değer küçültüldüğünde hareket hızlanır, büyütüldüğünde yavaşlar. Bekleme bilgisayar hızına göre değiştiği için süre makineden makineye farklılık gösterir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sheet1 sayfasındaki düğmeye tıklayın.
3. Excel penceresinin sol altındaki durum çubuğunda simge bloğunun ilerleyişini izleyin.
4. İşlem bitince durum çubuğu otomatik olarak eski haline döner.
5. Kendi uygulamanızda kullanmak için döngü içindeki bekleme satırının yerine uzun süren işlem kodunu yerleştirin.