Bu dosya, alt ve üst limit olarak girilen iki sayı arasındaki değerleri rastgele sırayla ve her sayıyı yalnızca bir kez kullanarak A sütununda listeler. Çekiliş sırası, rastgele sıralama veya numara dağıtımı gibi işlerde kullanılabilir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: Tek sayfadan oluşur. E1 hücresi alt limiti, E2 hücresi üst limiti içerir. Sonuçlar A sütununa, A1 hücresinden başlayarak yazılır. Sayfada bir komut düğmesi (CommandButton1) bulunur.
Makrolar
- CommandButton1_Click: Düğmeye tıklandığında çalışır. Önce A sütununda daha önce listelenen değerleri temizler. Ardından E1 ve E2'deki sınırları okur, Rnd ile rastgele sayı üretir ve CountIf ile bu sayının listede olup olmadığını denetler. Sayı listede yoksa A sütununda bir sonraki boş satıra yazılır. Alt limitten üst limite kadar tüm sayılar listelenince döngü sona erer.
- E1 değeri E2 değerine eşit veya ondan büyükse "İlk sayı, son sayıya eşit veya son sayıdan büyük olamaz" uyarısı verilir ve işlem yapılmaz. Alt limitle üst limit arasında en az bir sayı kalması gerekir; örneğin 15 ve 16 girildiğinde uyarı alınır.
- Makro dosya silme veya dışarıya bağlantı gibi bir işlem yapmaz; yalnızca A sütunundaki değerleri temizler ve yeniden yazar.
Nasıl kullanılır
- Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
- E1 hücresine alt limiti, E2 hücresine üst limiti yazın. Dosyada örnek olarak E1 ve E2 için 15 değeri bulunur; bu değerleri kendi aralığınıza göre değiştirin.
- Sayfadaki düğmeye tıklayın.
- Aralıktaki sayılar A sütununda rastgele sırayla listelenir. Düğmeye her tıklamada liste silinir ve yeni bir sıralama oluşturulur.
