Excel'de şanslı çekiliş isimleri nasıl yapılır?
İşyeri etkinliklerinde, takım toplantılarında veya özel etkinliklerde, genellikle büyük bir isim listesinden rastgele birkaç şanslı katılımcı veya kazanan seçmek gerekir — örneğin, takım tombalası, rastgele ödüller veya gönüllüler seçmek için. Özellikle isim sayısı arttıkça, dijital listelerle uğraşırken elle isim çekmek verimsiz veya pratik olmayabilir. Neyse ki, Excel, listenizden rastgele seçim yapmak için çeşitli pratik yöntemler sunar, bu da size sayfalarınızın içinde şeffaf, tekrarlanabilir ve özelleştirilebilir şanslı çekiliş deneyimleri oluşturma imkanı verir. Bu makale, size Excel'de isimleri rastgele seçmenin birkaç etkili yolunu anlatacak, senaryolarını, avantajlarını ve dikkat edilmesi gereken noktaları vurgulayacak ve yolda sık yapılan hatalardan kaçınmanıza yardımcı olacak ipuçlarını paylaşacaktır.
Formül kullanarak şanslı çekiliş için rastgele isimler çıkarma
Kutools for Excel ile şanslı çekiliş için rastgele isimler seçme
VBA kodu kullanarak şanslı çekiliş için rastgele isimler çıkarma
Alternatif: RAND fonksiyonunu kullanarak ve sıralama yaparak rastgele isimler çıkarma
Formül kullanarak şanslı çekiliş için rastgele isimler çıkarma
Eğer bir isim sütunundan belirli bir sayıda ismi (örneğin, 3 kazanan) rastgele seçmeniz gerekiyorsa, karmaşık bir formül yaklaşımı kullanabilirsiniz. Bu yaklaşım, yinelenen seçimleri otomatik olarak önler ve çalışma kitabı her yeniden hesaplandığında sonucu günceller. Özellikle orta büyüklükteki bir listeden küçük, sabit sayıda isim çekmek istediğinizde uygundur, özellikle de sürecin izlenebilir olmasını isteyip ek eklentilere veya koda ihtiyaç duymadığınız durumlarda.
Bu yöntemi kullanmak için aşağıdaki adımları izleyin:
İlk şanslı çekiliş sonucunu almak 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ına göre dolgu tutamacını aşağı doğru sürükleyin (örneğin, 3 isim çekmek istiyorsanız, 3 satır aşağıya C4'e kadar sürükleyin). Çekilen isimler otomatik olarak hücrelerde görünecektir. Ekran görüntüsüne bakın:
Parametre açıklamaları ve pratik ipuçları:
- Bu formülde:
- A2:A16 — bu, kaynak isim listenizdir. Bu aralığı gerçek isim verilerinizle eşleşecek şekilde değiştirin.
- B2 — bu hücre, rastgele seçmek istediğiniz toplam isim sayısını içermelidir (örneğin, 3 girin).
- C2 — bu, formülü girdiğiniz sonuç listenizin ilk hüresidir.
- C1 — bu, formülün doğru çalışması için gereken, formülün hemen üstündeki hücredir, boş bırakılsa bile gereklidir.
- Bu yöntem dinamiktir: Eğer yeni bir rastgele isim setine ihtiyacınız varsa, sadece F9'a basın ve yeni bir sonuç seti alın.
- Formüllerin çalışma sayfası her yeniden hesaplandığında değişmesini önlemek için, sonuçları kopyalayıp Yapıştır Özel > Değerler'i kullanarak çekilen isimleri statik hale getirmek isteyebilirsiniz.
- Eğer isim listeniz daha büyükse veya çekilişi birden fazla kez yapmak istiyorsanız, sonuç sütununun isim listenizle çakışmamasına dikkat edin, aksi takdirde hatalara neden olabilir.
Uyarı: Hücre referansları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 veya referans hücreleri silmek formülün bozulmasına neden olabilir.
Kutools for Excel ile şanslı çekiliş için rastgele isimler seçme
Eğer formül yazmadan basit ve etkileşimli bir yöntemi tercih ediyorsanız, Kutools for Excel, Sort Range Randomly özelliğiyle doğrudan isimleri rastgele seçmenizi sağlar. Bu çözüm, özellikle teknik olmayan kullanıcılar için veya görsel olarak ve hızlı bir şekilde çalışmak istediğinizde, özellikle büyük veri setleriyle çalışırken veya çekilişi sık sık tekrarlamanız gerektiğinde çok 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 isim listesini seçin. Ardından Kutools > Aralık > Sırala / Seçim Aralığını Rastgele'ye tıklayın. Ekran görüntüsüne bakın:
2. Sırala/Seçim Aralığını Rastgele iletişim kutusunda, Seç sekmesine gidin. Burada, rastgele çekmek istediğiniz isim sayısını Seçilecek Hücre Sayısı kutusuna yazın (örneğin, 3), ardından Seçim Türü bölümünde Rastgele hücreleri seç'i seçin. Bu, istediğiniz sayıda benzersiz ismi rastgele seçmenizi sağlar. Ekran görüntüsüne bakın:
3. Tamam'a tıklayın. Belirlenen sayıda isim rastgele seçilecek ve listede vurgulanacaktır, böylece kazananları veya seçilen katılımcıları kolayca tanımlayabilirsiniz. Ekran görüntüsüne bakın:
Bu yöntem, kullanımı kolaylığı ve güvenilirliği ile öne çıkar, ayrıca isteğe bağlı olarak isimleri sıralama veya karıştırma seçenekleri sunar. Bu özelliği gerektiği kadar kullanabilirsiniz ve elle hesaplama sırasında sık yapılan hataları veya tekrarlamaları önler. Formüller veya kodlama ile uğraşmadan hızlı bir çözüm isteyenler için idealdir.
Not: Aralığınızda ilgisiz diğer verileri seçmemeye dikkat edin, çünkü yalnızca vurgulanan hücreler kazanan isimlerinizi temsil eder. Vurgulanan isimler, daha fazla kullanıma yönelik olarak kopyalanabilir veya işaretlenebilir.
Kutools for Excel'i indirmek ve ücretsiz deneme sürümünü hemen başlatmak için tıklayın!
Özetle, Kutools for Excel kullanmak, rastgele çekilişleri yönetmek için kullanıcı dostu ve oldukça verimli bir yöntem sağlar. Özellikle güvenilirlik ve kullanımı kolaylık en önemli konular olduğunda veya farklı grup boyutlarıyla birden fazla çekiliş yapmanız gerektiğinde uygundur.
VBA kodu kullanarak şanslı çekiliş için rastgele isimler çıkarma
Gelişmiş senaryolar için veya süreci daha esnek bir şekilde otomatikleştirmek istediğinizde, VBA kodu listeden rastgele isimler çıkarmak için kullanılabilir. Bu çözüm, Excel'in Geliştirici seçenekleriyle rahat hissedenler için uygundur ve çekilişi tekrarlamak veya prosedürleri değiştirmek istediğinizde —örneğin sonuçları belirli bir konuma çıkarmak veya daha büyük listelerle başa çıkmak— faydalıdır.
Şanslı çekiliş için VBA'yi kullanmak için aşağıdaki adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Yeni bir modül oluşturmak için Ekle > Modül'e tıklayın, ardından aşağıdaki VBA kodunu modül penceresine kopyalayıp yapıştırın.
VBA kodu: Listedeki rastgele isimleri çıkar:
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 çıkarılacak isim sayısını girdiğiniz hücredir. Hücre referanslarını gerektiğinde değiştirebilirsiniz.
3. Kodu yapıştırdıktan sonra, Araçlar > Referanslar'a gidin. Açılan iletişim kutusunda, Mevcut Referanslar listesinde 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'a tıklayın, ardından kodu çalıştırmak için F5'e basın. Çekiliş yapmak istediğiniz isimleri içeren veri listesini seçmenizi isteyen bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
5. Tamam'a tıklayın. Çekiliş sonuçlarının görüntüleneceği hedef hücreyi seçmenizi isteyen başka bir uyarı 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 başlayarak hemen çıktı olarak verilecektir. Ekran görüntüsüne bakın:
Pratik ipuçları: Kodu çalıştırmadan önce çalışmanızı kaydettiğinizden emin olun. Hata alırsanız, referans ayarlarınızı ve hücre aralığı seçimlerinizi kontrol edin. Bu yöntem size daha fazla kontrol sağlar, ancak temel VBA işlemlerine aşina olan kullanıcılar için en uygunudur.
Avantajlar ve dezavantajlar: VBA yaklaşımı, özelleştirme için güçlüdür ve eski kazananları hariç tutma, bildirimleri otomatikleştirme gibi gelişmiş gereksinimler için uyarlanabilir. Ancak, temel VBA bilgisi gerektirir ve çevrenizde makrolara izin verilmediği sürece uygun olmayabilir.
Alternatif: RAND fonksiyonunu kullanarak ve sıralama yaparak rastgele isimler çıkarma
Yukarıdaki yöntemlerin yanı sıra, pratik ve görsel bir başka çözüm de Excel'in RAND fonksiyonunu sıralama ile birleştirmektir. Bu yöntem basittir, karmaşık yapıda formüller gerektirmez, eklenti veya kodlama içermez — bu da herhangi bir Excel sürümünde hızlı, ara sıra yapılan çekilişler için uygundur. Özellikle rastgelelemenin nasıl gerçekleştiğini manuel olarak görmek ve doğrulamak istediğinizde faydalıdır.
İşte nasıl yapılır:
- İsim listenizin yanına bir yardımcı sütun ekleyin ve yardımcı sütunun ilk hücresine =RAND() yazın (örneğin, isimleriniz A2:A16'daysa, B2'ye =RAND() yazın).
- Formülü listenizin tamamına kopyalayın. Her hücre rastgele bir ondalık sayı ile doldurulacaktır.
- Orijinal isimleriniz ve RAND yardımcı sütununuzu seçin.
- Veri sekmesine gidin ve Sırala'yı seçin. Sıralamayı, RAND değerlerini içeren yardımcı sütunu kullanacak şekilde ayarlayın, en küçükten büyüğe (veya tersi) sıralayın. Bu, tüm listeyi rastgele yeniden sıralayacaktır.
- Sıralandıktan sonra, yeniden sıralanmış listeden ilk N ismi şanslı çekiliş kazananları olarak seçin.
İpuçları ve notlar: Çalışma sayfanız her hesaplandığında, RAND fonksiyonu güncellenir. Eğer çekiliş sonuçlarını dondurmak istiyorsanız, isimleri kopyalayıp başka bir yere değer olarak yapıştırın. Başka bir çekiliş yapmak isterseniz, sadece yeniden hesaplayın (F9).
Avantajlar: Bu yaklaşım, uygulaması son derece kolaydır, ekstra bir kurulum gerektirmez ve canlı çekilişler sırasında adil olduğunu göstermek için açıktır. Ancak, çekilişi sık sık tekrarlamanız gerekiyorsa veya eski kazananlar listesi gibi gelişmiş özellikler gerektiren durumlarda, formüller, VBA veya Kutools daha iyi işleyecektir.
Özetle, Excel, şanslı çekilişler için rastgele isim seçmek üzere birden fazla yöntem sunar. Yöntem seçimi, basitlik, özelleştirilebilirlik veya görsel etkileşim tercihinize bağlıdır. Doğrudan el ile kullanım için RAND ve sıralama veya Kutools for Excel önerilir. Dinamik ve yeniden kullanılabilir çözümler için formüller veya VBA ekstra esneklik sağlar. Hata veya beklenmedik sonuçlarla karşılaşırsanız, hücre referanslarınızı, aralık seçimlerinizi kontrol edin 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 hataları önlemek için sonuçları doğrulayın.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.





- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin