Comment créer des noms de tirage au sort dans Excel?
Dans votre travail quotidien, parfois, vous devez sélectionner certains employés au hasard parmi une longue liste de noms comme noms chanceux. Dans Excel, comment pouvez-vous sélectionner au hasard des noms pour faire un tirage au sort? Cet article, je vais parler de quelques méthodes utiles pour gérer ce travail dans Excel.
Extraire des noms aléatoires pour faire un tirage au sort avec la formule
Extraire des noms aléatoires pour faire un tirage au sort avec le code VBA
Sélectionnez des noms aléatoires pour faire un tirage au sort avec Kutools for Excel
Extraire des noms aléatoires pour faire un tirage au sort avec la formule
Par exemple, je veux extraire 3 noms de la liste de noms, la longue formule suivante peut vous aider, procédez comme suit:
Entrez cette formule dans une cellule vide où vous souhaitez mettre le résultat: =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)))) , puis faites glisser la poignée de remplissage vers les cellules selon vos besoins, voir capture d'écran:
Notes:
1. Dans la formule ci-dessus: A2: A16 est la liste de noms dont vous souhaitez extraire au hasard, B2 est le nombre requis pour extraire les noms, C2 est la cellule dans laquelle entrer la formule, et C1 est la cellule au-dessus de la cellule de formule.
2. Vous pouvez appuyer sur F9 clé pour obtenir un autre groupe de nouveaux noms au hasard.
Extraire des noms aléatoires pour faire un tirage au sort avec le code VBA
Ici, un code VBA peut également vous aider à terminer cette tâche, procédez comme suit:
1. Maintenez le Alt + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: extraire des noms aléatoires d'une liste:
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
Notes: Dans le code ci-dessus, B2 est la cellule contient le nombre de noms que vous souhaitez extraire.
3. Après avoir inséré le code, cliquez sur Outils > Bibliographie en plein air Microsoft Visual Basic pour applications fenêtre, puis, dans le sauté Références - VBAProject boîte de dialogue, cochez Exécution de scripts Microsoft option dans la Références disponibles zone de liste, voir capture d'écran:
4. Et puis cliquez OK pour quitter la boîte de dialogue, puis appuyez sur F5 pour exécuter ce code, et une boîte de dialogue apparaît pour vous rappeler de sélectionner la liste de données dont vous souhaitez extraire les noms, voir capture d'écran:
5Cliquez sur OK bouton, et une autre boîte de dialogue apparaît, veuillez sélectionner une cellule dans laquelle vous souhaitez placer le résultat, voir capture d'écran:
6. Puis clique OK, et le nombre souhaité de noms ont été créés au hasard à la fois, voir capture d'écran:
Sélectionnez des noms aléatoires pour faire un tirage au sort avec Kutools for Excel
Peut être au-dessus de deux méthodes sont difficiles pour la plupart d'entre nous, ici, si vous avez Kutools for Excel, Avec son Trier la plage au hasard fonctionnalité, vous pouvez sélectionner rapidement des noms au hasard.
Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, veuillez faire comme ceci:
1. Sélectionnez la liste de noms que vous souhaitez sélectionner au hasard. Puis clique Kutools > Catégorie > Trier / sélectionner la plage au hasard, voir capture d'écran:
2. Dans le Trier / sélectionner la plage au hasard boîte de dialogue, sous la Sélectionnez , entrez le numéro dont vous souhaitez sélectionner les noms dans le Nombre de cellules à sélectionner zone de texte, puis choisissez Sélectionnez des cellules aléatoires dans l' Sélectionner le genre section, voir capture d'écran:
3. Puis clique Ok bouton, et votre nombre spécifique de noms a été sélectionné selon vos besoins, voir capture d'écran:
Cliquez pour télécharger Kutools pour Excel et un essai gratuit maintenant!
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!