Animasyon Örnekleri - Progress Bar

Bu dosya, VBA makrosuyla çalışan bir ilerleme çubuğu (progress bar) animasyonu örneğidir. Sayfa üzerindeki bir şeklin genişliği adım adım artırılır, ilerleme değeri de hücrede sayı olarak gösterilir.

Dosyanın içeriği​

• Sayfa1: B2:G16 aralığında hazırlanmış çalışma alanıdır. Üzerinde adı "progress" olan şekil ve ilerleme değerinin yazıldığı F11 hücresi bulunur. Sayfada formül kullanılmamıştır.
• 1Modülü: Animasyon15 adlı makroyu içeren VBA modülüdür (yaklaşık 34 satır).

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Zararlı bir işlem (dosya silme, dışarıya bağlantı) bulunmaz.

• Animasyon15: "progress" adlı şekli seçer ve iki aşamada genişletir. İlk aşamada sayaç 0'dan 50'ye kadar ilerler; her adımda şeklin genişliği 2 birim artar ve F11 hücresine sayaç değeri yazılır. Her adımda kısa bir bekleme döngüsü çalışır ve DoEvents ile ekranın güncellenmesi sağlanır.
• 50. adımdan sonra "2. Disketi A sürücüsüne takın." mesajı "Kayıt Penceresi" başlığıyla gösterilir. Tamam denildiğinde animasyon 51'den 100'e kadar devam eder.
• Animasyon bitince "Kayıt Tamamlandı." mesajı görüntülenir ve imleç A1 hücresine döner.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Geliştirici sekmesinden Makrolar penceresini açın (Alt+F8).
3. Animasyon15 makrosunu seçip Çalıştır düğmesine tıklayın.
4. Çubuğun genişlemesini ve F11 hücresindeki sayacın 100'e ulaşmasını izleyin; ara mesajda Tamam düğmesine basın.
5. Kendi çalışmanızda kullanmak için şeklin adını, mesaj metinlerini ve bekleme döngüsündeki 20000 değerini ihtiyacınıza göre değiştirin.