İlerleme Çubuğu Yapma

İlerleme Çubuğu Yapma dosyası, uzun süren bir makronun aşamalarını ekranda izlemek için hazırlanmış örnek bir çalışmadır. Makro çalışırken bir çubuk sayfa üzerinde genişler ve yanında tamamlanma yüzdesi görüntülenir. Kendi makrolarınıza ilerleme göstergesi eklemek için temel alınabilir.

Dosyanın içeriği​

• Sheet1: B2 hücresinde "İlerleme çubuğu" başlığı bulunur. B3:B12 aralığı makro çalışırken doldurulan sayaç hücreleridir. G2 hücresinde "% Tamamlandı" metni görüntülenir. Sayfada makroyu başlatan bir CommandButton1 düğmesi ve ilerleme çubuğunu oluşturan Label1 nesnesi yer alır.

Dosyada formül bulunmaz; tüm işlem VBA ile yürütülür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro kodunda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur.

• Workbook_Open (ThisWorkbook): Dosya açıldığında B3:B65536 ve G2:J2 aralıklarını temizler, Label1 nesnesini gizler ve genişliğini 10 değerine ayarlar.
• CommandButton1_Click (Sheet1): Düğmeye basıldığında code makrosunu çağırır.
• code (Module1): Label1 nesnesini görünür yapar. İç içe iki döngü (her biri 1'den 10'a) B3:B12 hücrelerine sırayla 1'den 10'a kadar değer yazar. Her adımda ilerleme değeri progress yordamına gönderilir. İşlem bitince B3 hücresi seçilir.
• progress (Module1): G2 hücresine "% Tamamlandı" metnini yazar ve Label1 genişliğini ilerlemeye göre büyütür. DoEvents komutu sayesinde ekran her adımda güncellenir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sheet1 sayfasındaki CommandButton1 düğmesine tıklayın.
3. G2 hücresindeki yüzde bilgisini ve genişleyen çubuğu izleyin; B3:B12 hücreleri sırayla dolar.
4. Kendi çalışmanızda, döngü içindeki işlem satırlarını yapmak istediğiniz işlemle değiştirip progress yordamını çağırmaya devam edin.
5. Dosya yeniden açıldığında çubuk ve sayaç alanları otomatik temizlenir.