Excel Makroları ile Rastgele Sayı Üretme

Bu dosya, bir UserForm üzerinden belirlenen iki değer arasında rastgele sayı üretir. Sayılar ekranda hızla değişir, Durdur düğmesine basıldığında görünen sayı sonuç olarak kalır. Yapı çekiliş ve kura işlemleri için uygundur.
Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Hücrelerde veri veya formül yoktur. Sayfada, formu açan bir düğme (CommandButton1) bulunur.
• UserForm1: Başlangıç değeri için TextBox1, bitiş değeri için TextBox2, üretilen sayıyı büyük puntoyla (48) gösteren Label1 ve Başlat/Durdur işlevli dugme adlı düğme içerir.

Makrolar​

• CommandButton1_Click (Sayfa1): Düğmeye tıklandığında UserForm1 penceresini açar.
• dugme_Click (UserForm1): Düğmenin yazısı "Başlat" iken önce iki kutudaki değerlerin sayısal olup olmadığını denetler. Sayısal olmayan bir değer varsa uyarı mesajı verir ve ilgili kutuyu seçili hale getirir. Değerler geçerliyse küçük olan başlangıç, büyük olan bitiş kabul edilir; böylece değerler ters girilse de sorun çıkmaz. Ardından düğme "Durdur" olarak değişir ve bir döngü içinde bitiş ile başlangıç arasında tam sayılar üretilerek Label1 üzerinde sürekli gösterilir. Düğmeye tekrar basıldığında döngü durur, düğme yeniden "Başlat" olur ve son görünen sayı sonuç olarak kalır.

Makro kodunda dosya silme, dış bağlantı gibi zararlı bir işlem bulunmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1 üzerindeki düğmeye tıklayarak formu açın.
3. Başlangıç ve bitiş kutularına sayıları girin; örneğin çekilişte 1 ve katılımcı sayısı.
4. Başlat düğmesine basın; sayılar ekranda akmaya başlar.
5. Durdur düğmesine bastığınız anda görünen sayı sonuçtur.
6. Yeni bir üretim için aralığı değiştirip Başlat düğmesine yeniden basabilirsiniz.