Excel Makroları ile Basit Kura Çekme

Bu dosya, bir katılımcı listesinden istediğiniz sayıda kişiyi rastgele seçen basit bir kura çekme (çekiliş) uygulamasıdır. Seçim işlemi bir VBA makrosuyla yapılır ve aynı kişi sonuç listesine ikinci kez yazılmaz.

Dosyanın içeriği​

• Sayfa1: Katılımcı listesi ve çekiliş alanı bu sayfadadır. Örnekte "Ali Veli", "Hasan Hüseyin", "Osman Moson" gibi isimler bulunur. Kaç kişinin seçileceği ayrı bir hücreden okunur, seçilen şanslı katılımcılar yan tarafta listelenir.
• Sheet2: Yalnızca RESİM (IMAGE) fonksiyonuyla görsel çağıran 6 formül içerir (A1:A6). Çekiliş işleminin parçası değildir.

Kullanılan formüller​

• RESİM (IMAGE): Sheet2 sayfasında, internet adreslerindeki görselleri hücreye getirmek için kullanılmıştır. Bu formüller görsellere internet üzerinden eriştiği için çalışmaları bağlantıya bağlıdır; çekiliş mantığı formüllerle değil makroyla kurulmuştur.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 içinde Sanslilar adlı tek bir prosedür vardır:

1. Sırasıyla üç alan seçmenizi ister: katılımcı listesinin aralığı, kaç kişinin seçileceğini gösteren hücre ve sonuçların yazılacağı ilk hücre.
2. Seçim iptal edilirse veya seçilecek kişi sayısı 1'den küçükse işlem sonlanır.
3. Rastgele sayı üretip listeden bir kişi seçer. Daha önce seçilmiş bir sıra gelirse yeniden dener; böylece aynı kişi iki kez çıkmaz.
4. Seçilen isimleri belirttiğiniz hücreden başlayarak alt alta yazar.

Kodda dosya silme, dosya yazma veya dışarıya bağlantı kurma gibi zararlı bir işlem görünmemektedir. Kod Dictionary nesnesini kullanır; bunun için VBA düzenleyicisinde Microsoft Scripting Runtime başvurusunun etkin olması gerekebilir. İstenen sayı katılımcı sayısından büyükse döngü sonuçlanamayabilir, bu yüzden seçilecek sayıyı liste uzunluğunu aşmayacak şekilde girin.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'deki katılımcı listesini kendi isimlerinizle değiştirin.
3. Şanslı katılımcı sayısını ilgili hücreye yazın.
4. Alt+F8 ile Sanslilar makrosunu çalıştırın (sayfadaki "Çekiliş Yap" düğmesi makroya atanmışsa düğmeye de tıklayabilirsiniz).
5. Açılan kutularda sırasıyla liste aralığını, sayı hücresini ve sonuçların başlayacağı ilk hücreyi seçin.