Kura Çekimi

Kura Çekimi dosyası, numaralandırılmış 12 bilet arasından makro yardımıyla rastgele 4 kazanan seçen basit bir çekiliş şablonudur. Aynı bilet iki kez çıkmaz; çekilen numaralar ve varsa bilet sahibinin adı ayrı bir sayfada listelenir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1 hücresinde "BİLET" başlığı, A2:A13 aralığında 1'den 12'ye kadar bilet numaraları bulunur. B sütunu bilet sahibinin adının girileceği alandır.
• Sayfa2: Çekiliş sonucunun yazıldığı sayfadır. A sütununa çekilen bilet numaraları, B sütununa o numaranın B sütunundaki karşılığı yazılır. Dosyada örnek olarak 2, 10, 7 ve 8 numaraları kayıtlıdır.
• Kullanıcı formu (UserForm1): Bilet numarasından isim, isimden bilet numarası sorgulamak için kullanılır.

Dosyada formül bulunmaz; işlemlerin tamamı makrolarla yapılır.

Makrolar​

• nmk (Sayfa1 modülü): Rnd ile 1-12 arasında rastgele bir sayı üretir. Sayı Sayfa2 A sütununda daha önce varsa yeniden sayı üretir, yoksa Sayfa2'ye yazar ve Sayfa1'de bu numaranın yanındaki B sütunu değerini komşu hücreye aktarır. İşlem 4 kazanan tamamlanana kadar sürer. Makro her çalıştığında Sayfa2'nin A1 hücresinden başlayarak yazar; yeni bir çekilişten önce Sayfa2'deki eski sonuçların silinmesi gerekir, aksi halde eski numaralar tekrar çıkmaz ve 12 bilet içinden tekrarsız seçim yapılamayabilir.
• CommandButton1_Click: TextBox1'e yazılan bilet numarasını Sayfa1 A sütununda arar ve karşılığındaki B sütunu değerini TextBox2'de gösterir.
• CommandButton2_Click: TextBox1'e yazılan ismi Sayfa1 B sütununda arar ve karşılığındaki bilet numarasını TextBox2'de gösterir.

Kodda dosya silme ya da dış bağlantı gibi zararlı bir işlem yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de B2:B13 aralığına bilet sahiplerinin adlarını girin.
3. Yeni çekiliş öncesinde Sayfa2'deki önceki sonuçları silin.
4. Geliştirici sekmesinden nmk makrosunu çalıştırın; kazananlar Sayfa2'de listelenir.
5. Gerektiğinde kullanıcı formunu açıp bilet numarası ya da isim yazarak ilgili karşılığı sorgulayın.

Bilet sayısı ve kazanan sayısı makro kodunda sabittir (12 bilet, 4 kazanan); farklı değerler için koddaki bu sayılar değiştirilir.