Statusbar İlerleme Çubuğu

Bu dosya, uzun süren bir makro çalışırken Excel pencerenin altındaki durum çubuğunda (Statusbar) ilerleme oranının nasıl gösterileceğini örnekler. Makro, A sütununa 1'den 10000'e kadar sayı yazar ve her adımda tamamlanan işlem yüzdesini durum çubuğuna aktarır.

Dosyanın içeriği​

• Sheet1: A1:A10000 aralığı makro tarafından doldurulur. Sayfada formül, tablo ya da grafik bulunmaz; sayfaya yerleştirilmiş bir komut düğmesi (CommandButton1) makroyu başlatır.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kod Sheet1 sayfa modülünde yer alır ve tek bir prosedürden oluşur.

• CommandButton1_Click: Düğmeye tıklandığında 1'den 10000'e kadar bir döngü çalıştırır. Her turda sayıyı A sütununda ilgili satıra yazar ve durum çubuğuna "İlerleme oranı: %" biçiminde, tam sayıya yuvarlanmış yüzde değerini yazar. Döngü bitince Application.StatusBar = False ile durum çubuğunu Excel'in varsayılan görünümüne döndürür.

Kodda dosya silme, dışarıya bağlantı gibi zararlı bir işlem yoktur; yalnızca Sheet1 hücrelerine sayı yazılır.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sheet1 sayfasındaki komut düğmesine tıklayın.
3. Excel penceresinin sol alt köşesindeki durum çubuğundan yüzdenin 0'dan 100'e ilerleyişini izleyin.
4. İşlem bitince A1:A10000 aralığı sayılarla dolmuş olur ve durum çubuğu eski haline döner.
5. Kendi işleminize uyarlamak için Alt+F11 ile Visual Basic düzenleyicisini açın, Sheet1 modülündeki döngü sınırını (10000) ve döngü içindeki işlem satırını değiştirin.