Excel’de şanslı çekiliş için isimler nasıl çekilir?
İş yerindeki etkinliklerde, ekip toplantılarında ya da özel organizasyonlarda, büyük bir Ad Listesi içinden birkaç şanslı katılımcı veya kazananı rastgele seçmek sıklıkla gerekebilir—örneğin ekip piyangosu, rastgele ödül dağıtımları veya gönüllü seçimleri gibi durumlarda. Özellikle liste büyüdükçe dijital ortamda elle “şapkadan isim çekmek” hem verimsiz hem de pratik olmayabilir. Neyse ki Excel, listenizden rastgele seçim yapmanız için çeşitli kullanışlı yöntemler sunar; böylece elektronik tablolarınızda şeffaf, tekrarlanabilir ve özelleştirilebilir şanslı çekiliş deneyimleri yaratabilirsiniz. Bu makalede, Excel’de rastgele isim seçmenin en etkili yollarını; kullanım senaryolarını, avantajlarını, dikkat edilmesi gereken noktaları ve yaygın hatalardan kaçınmanıza yardımcı olacak ipuçlarını adım adım inceleyeceksiniz.
Şanslı çekiliş için formülle rastgele isim çıkarın
Şanslı çekiliş için rastgele isim seçin: Kutools for Excel
Şanslı çekiliş için VBA koduyla rastgele isim çıkarın
Alternatif: RAND işlevi ve sıralama ile rastgele isim çıkarın
Şanslı çekiliş için formülle rastgele isim çıkarın
Bir sütundaki isimler arasından belirli sayıda ismi rastgele seçmeniz gerekiyorsa (örneğin, 3 kazanan), karmaşık bir formül yaklaşımı tercih edebilirsiniz. Bu yöntem, yinelenen seçimleri otomatik olarak engeller ve çalışma kitabı her yeniden hesaplandığında sonuçları günceller. Özellikle orta büyüklükte bir listeden küçük ve sabit sayıda isim çekmek istediğinizde, süreci şeffaf tutmak ve ekstra eklentilere veya koda gerek duymamak istiyorsanız idealdir.
Bu yöntemi kullanmak için aşağıdaki adımları izleyin:
İlk şanslı çekiliş sonucunun görünmesini istediğiniz boş bir hücreye (örneğin C2) aşağıdaki formülü girin:
=IF(ROWS(C$2:C2)>,B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1))))Formülü girdikten sonra, çekmek istediğiniz isim sayısı kadar satır aşağıya doğru doldurma tutamacını sürükleyin (örneğin, 3 isim çekmek istiyorsanız, C4 hücresine kadar 3 satır aşağı sürükleyin). İsimler otomatik olarak hücrelerde görünecektir. Ekran görüntüsüne göz atın:
Parametre açıklamaları ve pratik ipuçları:
- Bu formülde:
- A2:A16 — bu, kaynak Ad listesinizdir. Bu aralığı gerçek isim verilerinizle eşleşecek şekilde güncelleyin.
- B2— bu hücreye rastgele seçmek istediğiniz toplam isim sayısını girin (örneğin, 3 yazın).
- C2— bu, formülü gireceğiniz sonuç listesinin ilk hücresidir.
- C1— bu, formülünüzün hemen üstündeki hücredir. Formül yapısının doğru çalışması için bu hücreye ihtiyaç vardır; boş bırakılsa bile yerinde olmalıdır.
- Bu yöntem dinamiktir: Yeni bir rastgele isim kümesine ihtiyacınız varsa, taze bir sonuç kümesi almak için yeterince F9 tuşuna basın.
- Çalışma sayfası her yeniden hesaplandığında formüllerin değişmesini önlemek için sonuçları kopyalayıp Özel Yapıştır > Değerler seçeneğini kullanarak çekilen isimleri sabitleyebilirsiniz.
- Ad listeniz daha büyükse veya çekilişi birden fazla kez çalıştırmak istiyorsanız, hata oluşmaması için sonuç sütununun Ad listenizle çakışmamasına dikkat edin.
Dikkat: Hücre başvurularının doğru olduğundan ve aralıkların gerçek verilerinizle eşleştiğinden emin olun. Çalışma sayfası yapısını değiştirmek ya da başvurulan hücreleri silmek, formülün bozulmasına neden olabilir.
Şanslı çekiliş için rastgele isim seçin: Kutools for Excel
Formül yazmadan basit ve etkileşimli bir yöntem tercih ediyorsanız, Kutools for Excel, doğrudan Rastgele Sırala özelliğini kullanarak rastgele isim seçmenin kolay bir yolunu sunar. Bu çözüm, özellikle teknik bilgisi olmayan kullanıcılar için, büyük veri kümeleriyle hızlıca ve görsel olarak çalışmak istediğinizde ya da çekilişleri sık sık tekrarlamanız gerektiğinde son derece kullanışlıdır.
Kutools for Excel yüklendikten sonra aşağıdaki adımları izleyin:
1. Şanslı çekiliş için kullanmak istediğiniz tüm Ad listesi'ni seçin. Ardından Kutools > Aralık > Sırala, Seç veya Rastgele seçeneğine tıklayın. Ekran görüntüsüne bakın:
2.Sırala, Seç veya Rastgele iletişim kutusunda Seç sekmesine gidin. Burada, Seçilecek Hücre Sayısı kutusuna çekmek istediğiniz rastgele isim sayısını girin (örneğin, 3). Ardından, Hücre bölümünden Seçim Türü seçeneğini belirleyin. Böylece istediğiniz sayıda benzersiz ismi anında rastgele seçebilirsiniz. Ekran görüntüsüne bakın:
3.Tamam düğmesine tıklayın. Belirttiğiniz sayıda isim rastgele seçilip listenizde vurgulanacak; böylece kazananları veya seçilen katılımcıları kolayca belirleyebilirsiniz. Ekran görüntüsüne bakın:
Bu yöntem, kullanımı kolaylığı ve güvenilirliğiyle öne çıkar; ayrıca isterseniz isimleri sıralama veya karıştırma gibi ek seçenekler de sunar. İhtiyaç duyduğunuz kadar bu özelliği kullanabilir, manuel hesaplamalarda yaygın olan hataları ve tekrarları önleyebilirsiniz. Formül veya kodlama ile uğraşmak istemeyenler için hızlı bir çözüm arayanlar için idealdir.
Not: Aralığınızda ilgisiz başka veriler seçmediğinizden emin olun; çünkü yalnızca vurgulanan hücreler kazanan isimlerinizi temsil eder. İsimleri Vurgula Aralık, ileride kullanmak üzere gerektiği gibi kopyalanabilir veya işaretlenebilir.
Kutools for Excel'i indirmek ve ücretsiz denemek için hemen tıklayın!
Özetle, Kutools for Excel kullanımı, rastgele çekilişleri yönetmek için kullanıcı dostu ve son derece verimli bir yol sunar. Özellikle güvenilirlik ve kullanım kolaylığı önceliğiniz olduğunda veya farklı grup boyutlarıyla birden fazla çekiliş yapmanız gerektiğinde uygundur.
Şanslı çekiliş için VBA koduyla rastgele isim çıkarın
Gelişmiş senaryolarda veya süreci daha esnek şekilde otomatikleştirmek istiyorsanız, listenizden rastgele isim çekmek için VBA kodundan yararlanabilirsiniz. Bu çözüm, Excel’in Geliştirici araçlarıyla rahatça çalışan ve çekilişleri tekrarlamak ya da prosedürleri özelleştirmek—örneğin sonuçları belirli bir konuma aktarmak veya daha büyük listelerle çalışmak—isteyen kullanıcılar için idealdir.
Şanslı çekiliş için VBA kullanmak üzere aşağıdaki adımları izleyin:
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2.Ekle > Modül seçeneğine tıklayarak yeni bir modül oluşturun, ardından aşağıdaki VBA kodunu modül penceresine kopyalayıp yapıştırın.
VBA kodu: Bir listeden rastgele isim çıkarın:
Public Sub LuckyDraw()
Dim I, J, xRnd As Long
Dim xSRg, xDRg As Range
Dim xDic As New Dictionary
Dim xnum, xLastRow As Long
On Error Resume Next
Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
xLastRow = xSRg.Rows.Count
Set xSRg = xSRg(1)
Set xDRg = xDRg(1)
xnum = Range("B2")
If xnum < 1 Then Exit Sub
J = 0
For I = 1 To xnum
LabExit:
xRnd = Int(Rnd() * xLastRow)
If xDic.Exists(xRnd) Then GoTo LabExit
xDic.Add xRnd, ""
xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
J = J + 1
Next
End Sub
Parametre açıklaması: Kodda, B2, rastgele çekilecek isim sayısını girdiğiniz hücredir. Gerekirse hücre başvurularını değiştirebilirsiniz.
3. Kodu yapıştırdıktan sonra VBA düzenleyici penceresinde Araçlar > Başvurular seçeneğine gidin. Açılan iletişim kutusunda, Kullanılabilir Başvurular listesinden Microsoft Scripting Runtime seçeneğini işaretleyin. Bu adım, kodda kullanılan komut dosyası sözlüğünü etkinleştirmek için gereklidir. Ekran görüntüsüne bakın:
4. İletişim kutusunu kapatmak için Tamam düğmesine tıklayın, ardından kodu çalıştırmak için F5 tuşuna basın. Çekmek istediğiniz isimleri içeren veri listesini seçmenizi isteyen bir istem kutusu görünecektir. Ekran görüntüsüne bakın:
5. Tamam’a tıklayın. Ardından, çekiliş sonuçlarının görüntülenmesini istediğiniz hedef hücreyi seçmeniz için yeni bir iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
6. İşlemi tamamlamak için Tamam’a tıklayın. Rastgele seçilen isimler, belirttiğiniz hücreden itibaren hemen çıktıya alınacaktır. Ekran görüntüsüne bakın:
Pratik ipuçları: Kodu çalıştırmadan önce çalışmalarınızı kaydettiğinizden emin olun. Hata alırsanız, başvuru ayarlarınızı ve hücre aralığı seçimlerinizi tekrar kontrol edin. Bu yöntem size daha fazla kontrol sağlar; ancak temel VBA işlemlerine aşina kullanıcılar için uygundur.
Avantajlar ve dezavantajlar: VBA yaklaşımı, özelleştirme açısından son derece güçlüdür ve eski kazananları hariç tutma, bildirimleri otomatikleştirme gibi gelişmiş ihtiyaçlara kolayca uyarlanabilir. Ancak temel düzeyde VBA bilgisi gerektirir; ayrıca ortamınızda makrolara izin verilmiyorsa bu yöntem uygun olmayabilir.
Alternatif: RAND işlevi ve sıralama ile rastgele isim çıkarın
Yukarıdaki yöntemlere ek olarak, Excel’in RASTGELE işlevini sıralama ile birlikte kullanmak da pratik ve görsel bir çözümdür. Bu yöntem son derece basittir; karmaşık formüller, eklentiler veya kodlama gerektirmez—bu da her Excel sürümünde hızlı ve ara sıra yapılacak çekilişler için idealdir. Özellikle rastgeleliğin nasıl gerçekleştiğini elle görmek ve doğrulamak istediğinizde büyük kolaylık sağlar.
Nasıl yapacağınız aşağıda açıklanmıştır:
- Ad listenizin yanına bir yardımcı sütun ekleyin ve bu yardımcı sütunun ilk hücresine ()=RAND()) formülünü girin (örneğin, isimleriniz A2:A16'daysa, B2'ye =RAND() yazın).
- Formülü tüm listenizin yanına kadar aşağı doğru kopyalayın. Her hücre rastgele bir ondalık sayı ile doldurulacaktır.
- Orijinal isim listenizi ve RAND yardımcı sütununu seçin.
- Veri sekmesine gidin ve Sırala seçeneğini belirleyin. Sıralama işlemini, RAND değerlerini içeren yardımcı sütuna göre yapacak şekilde ayarlayın ve **En küçükten en büyüğe** sıralamasını seçin (veya tam tersini). Böylece tüm liste rastgele yeniden sıralanır!
- Liste sıralandıktan sonra, şanslı çekiliş kazananlarınız olarak yeniden sıralanmış listenin ilk N ismini seçmeniz yeterlidir.
İpuçları ve notlar: RASTGELE işlevi, çalışma sayfanız her hesaplandığında güncellenir. Çekiliş sonuçlarını sabitlemek istiyorsanız, isimleri kopyalayıp başka bir yere değer olarak yapıştırın. Yeni bir çekiliş yapmak için yalnızca sayfayı yeniden hesaplatmanız (F9) yeterlidir.
Avantajlar: Bu yaklaşım uygulaması son derece kolaydır, ek kurulum gerektirmez ve canlı çekilişler sırasında adil süreci göstermek için mükemmeldir. Ancak çekilişleri sık sık tekrarlamanız gerekiyorsa veya hariç tutma listeleri gibi gelişmiş özelliklere ihtiyacınız varsa, formüller, VBA veya Kutools gibi çözümler daha uygundur.
Özetle, Excel, şans çekilişleri için isimleri rastgele seçmenin birden fazla yolunu sunar. Yöntem seçimi, sadelik, özelleştirilebilirlik veya görsel etkileşim tercihinize bağlıdır. Basit ve manuel kullanım için RASTGELE işleviyle sıralama veya Kutools for Excel önerilir. Dinamik ve tekrar kullanılabilir çözümler için ise formüller veya VBA ek esneklik sağlar. Hata veya beklenmedik sonuçlarla karşılaşırsanız, hücre referanslarınızı, aralık seçimlerinizi ve gerekli eklentilerin veya makro ayarlarının etkin olduğundan emin olun. En iyi sonuçlar için çekilişe başlamadan önce verilerinizi her zaman kaydedin ve önemli etkinliklerde veya takım etkinliklerinde hataları önlemek adına sonuçları doğrulayın.
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst düzeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi aynı pencerenin yeni sekmelerinde açın ve oluşturun, yeni pencerelerde değil.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile birlikte Office Tab Pro’yu da içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi değer— tek tek eklenti satın almaya göre tasarruf edin