Excel'de şanslı çekiliş isimleri nasıl yapılır?

Günlük işlerinizde, bazen bir dizi listeden rastgele bazı çalışanları şanslı isimler olarak seçmeniz gerekebilir. Excel'de, şanslı çekiliş yapmak için rastgele isimleri nasıl seçebilirsiniz? Bu makalede, Excel'de bu görevi gerçekleştirmek için kullanabileceğiniz bazı yararlı yöntemlerden bahsedeceğim.

Formül ile şanslı çekiliş için rastgele isimler çıkarma

Kutools for Excel ile şanslı çekiliş için rastgele isimler seçme

VBA kodu ile şanslı çekiliş için rastgele isimler çıkarma

Formül ile şanslı çekiliş için rastgele isimler çıkarma

Örneğin, isim listesinden herhangi 3 ismi çıkarmak istiyorum, aşağıdaki uzun formül size yardımcı olabilir, lütfen şu adımları izleyin:

Sonucu koymak istediğiniz boş bir hücreye şu formülü girin: =EĞER(SATIR(C$2:C2)>B$2;"";DİZİN(A$2:A$16;TOPLA.ÇARP(15;6;((SATIR(A$2:A$16)-SATIR(A$2)+1)/EĞERYOKSA(EŞLEŞ(A$2:A$16;C$1:C1;0)));RASGELEARADA(1;SATIR(A$2:A$16)-EĞERSAY(C$1:C1)+1)))) ve ardından formülü gerektiği kadar hücrelere doğru sürükleyin, ekran görüntüsüne bakın:

Notlar:

1. Yukarıdaki formülde: A2:A16, rastgele çıkarmak istediğiniz isim listesidir, B2, çıkarmak istediğiniz isim sayısını belirtir, C2 formülü gireceğiniz hücredir ve C1, formül hücresinin üstündeki hücredir.

2. Rastgele yeni bir isim grubu almak için F9 tuşuna basabilirsiniz.

Kutools for Excel ile şanslı çekiliş için rastgele isimler seçme

Belki de yukarıdaki iki yöntem bizim için zor olabilir, burada Kutools for Excel eklentisi varsa, Sırala, Seç veya Rastgele özelliğini kullanarak hızlıca rastgele isimler seçebilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:

1. Rastgele seçmek istediğiniz isim listesini seçin. Ardından Kutools > Aralık > Sırala, Seç veya Rastgele'ye tıklayın, ekran görüntüsüne bakın:

2. Sırala, Seç veya Rastgele iletişim kutusunda, Seç sekmesi altında, seçmek istediğiniz isim sayısını Seçilecek Hücre Sayısı metin kutusuna girin ve ardından Seçim Türü bölümünde Rastgele Hücre Seç seçeneğini seçin, ekran görüntüsüne bakın:

3. Ardından Tamam düğmesine tıklayın ve belirli sayıda isim sizin için seçilecektir, ekran görüntüsüne bakın:

Kutools for Excel'i indirmek ve ücretsiz deneme sürümünü şimdi başlatmak için tıklayın!

VBA kodu ile şanslı çekiliş için rastgele isimler çıkarma

Burada, bir VBA kodu da bu görevi tamamlamanıza yardımcı olabilir, lütfen şu adımları izleyin:

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Ekle Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Bir listeden rastgele isimler çıkarma:

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

Not: Yukarıdaki kodda, B2, çıkarmak istediğiniz isim sayısını içeren hücredir.

3. Kodu ekledikten sonra, açılan Microsoft Visual Basic for Applications penceresinde Araçlar > Referanslar'a tıklayın ve ardından açılan Referanslar – VBAProject iletişim kutusunda Mevcut Referanslar listesi kutusundan Microsoft Scripting Runtime seçeneğini işaretleyin, ekran görüntüsüne bakın:

4. Ve ardından Tamam düğmesine tıklayarak iletişim kutusundan çıkın, ardından kodu çalıştırmak için F5 tuşuna basın ve bir uyarı kutusu açılacak, isimleri çıkaracağınız veri listesini seçmenizi hatırlatacaktır, ekran görüntüsüne bakın:

5. Tamam düğmesine tıklayın ve başka bir uyarı kutusu açılacak, lütfen sonucu koymak istediğiniz hücreyi seçin, ekran görüntüsüne bakın:

6. Ardından Tamam'a tıklayın ve istenen sayıda isim anında rastgele oluşturulacaktır, ekran görüntüsüne bakın: