ProgressBar Satır ve sutunları rastgele sayılar ile doldurma (Otomatik)

Bu şablon, etkin sayfadaki 500 satır ve 40 sütunluk alanı (A1:AN500) 0 ile 999 arasında rastgele tam sayılarla doldurur. İşlem sırasında bir UserForm üzerinde yüzde değeri ile birlikte ilerleme çubuğu gösterilir. Uzun süren döngülerde işlemin ne kadarının tamamlandığını kullanıcıya göstermek isteyenler için hazır bir örnektir.

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

Dosyanın içeriği​

• exceldestek.com | exceldepo.com sayfası: A2:C11 aralığında yer alan çalışma sayfasıdır; formül içermez.
• UserForm1: İçinde FrameProgress adlı çerçeve ve LabelProgress adlı etiket bulunur. Etiketin genişliği ilerleme çubuğunu oluşturur, çerçevenin başlığı yüzde değerini gösterir.
• Module1: Üç makro içerir.

Makrolar​

• ShowUserForm: Çalıştırılacak ana makrodur. Çubuğun rengini çalışma kitabı temasının Accent1 rengine ayarlar, genişliğini sıfırlar ve formu açar.
• UserForm_activate: Form açıldığında otomatik çalışır ve GenerateRandomNumbers makrosunu çağırır.
• GenerateRandomNumbers: Etkin sayfa bir çalışma sayfası değilse işlem yapmadan çıkar. Aksi halde 500 satır ve 40 sütunu Int(Rnd * 1000) ifadesiyle doldurur. Her satır bittiğinde tamamlanma oranını hesaplar ve işlem sonunda formu kapatır.
• UpdateProgress: Yüzde değerini çerçeve başlığına yazar, etiket genişliğini orana göre ayarlar ve formu yeniden çizer.

Kodda dosya silme ya da dış bağlantı gibi işlem yoktur; makrolar yalnızca etkin sayfadaki hücrelere değer yazar. Mevcut hücre içerikleri üzerine yazılır, bu nedenle dolu bir sayfada çalıştırmadan önce yedek alınması önerilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayı eklenecek çalışma sayfasını etkin hale getirin.
3. Alt+F8 tuşlarıyla makro listesini açın, ShowUserForm makrosunu seçip çalıştırın.
4. İlerleme çubuğu %100'e ulaştığında form kapanır ve alan doldurulmuş olur.
5. Satır sayısı, sütun sayısı ya da sayı aralığını değiştirmek için Module1 içindeki RowMax ve ColMax sabitleri ile Rnd * 1000 ifadesi düzenlenir.