ProgressBar Yükleniyor Mavi Yuvarlak İkon

Bu şablon, uzun süren makro işlemleri sırasında ekranda mavi renkli, dönen yuvarlak bir "yükleniyor" ikonu gösteren hazır bir UserForm içerir. Form başka çalışma kitaplarına aktarılarak kendi makrolarınızda bekleme göstergesi olarak kullanılabilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• exceldestek.com | exceldepo.com: B1:E10 aralığını kapsayan, formül içermeyen tek çalışma sayfası.
• Loader2: Yükleniyor animasyonunu gösteren UserForm. Animasyon, form içine gömülü GIF görseliyle çalışır.
• Module1: Formu açıp kapatan form adlı örnek makroyu barındıran modül.

Makrolar​

• form (Module1): Önce Loader2.Running fonksiyonunu çağırır. Form açık değilse bu fonksiyon formu gösterir; form zaten açıksa makro sonlanır. Ardından 1'den 200000'e kadar bir döngüde DoEvents çalıştırılarak animasyonun akması sağlanır ve döngü bitince form kapatılır. Bu döngü örnek bekleme işlemidir; yerine kendi işleminizin kodu yazılır.
• Running: Form görünür değilse gösterir, görünürse True değerini döndürür.
• UserForm_Initialize, UserForm_Activate ve UserForm_Terminate: Form açılırken, etkinleşirken ve kapanırken çalışır. Activate yordamında animasyonu oluşturan HTML ve GIF verisi satır satır hazırlanır.
• Pause: Animasyon sırasında bekleme süresi sağlayan yardımcı yordamdır.
• Kod, pencere biçimini ve saydamlığı ayarlamak ve ekran boyutunu almak için user32.dll ve kernel32 içindeki Windows API fonksiyonlarını (FindWindow, SetWindowLong, SetLayeredWindowAttributes, GetSystemMetrics, GetTickCount vb.) çağırır. Dosya silme ya da dışarıya bağlantı kuran bir komut görülmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Alt+F11 ile VBA düzenleyicisini açın; Module1 içindeki form makrosunu Alt+F8 ile çalıştırarak animasyonu deneyin.
3. Kendi makronuzda, işleminizden önce Loader2.Running satırını, işlem bittikten sonra Unload Loader2 satırını kullanın.
4. Başka bir dosyada kullanmak için Loader2 formunu VBA düzenleyicisinde dışa aktarıp hedef dosyaya ekleyin.