Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Excel
  • Comment créer des noms de tirage au sort dans Excel?

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:

doc noms chanceux 1

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 > Références 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:

doc noms chanceux 2

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:

doc noms chanceux 3

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:

doc noms chanceux 4

6. Puis clique OK, et le nombre souhaité de noms ont été créés au hasard à la fois, voir capture d'écran:

doc noms chanceux 5


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 pour Excel, Avec son Trier la plage au hasard fonctionnalité, vous pouvez sélectionner rapidement des noms au hasard.

Kutools pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. 

Après l'installation de Kutools pour Excel, veuillez faire comme ceci:

1. Sélectionnez la liste de noms que vous souhaitez sélectionner au hasard. Puis clique Kutools > Autonomie > 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 le 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:

doc noms chanceux 8

Cliquez pour télécharger Kutools pour Excel et un essai gratuit maintenant!


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité en
80 %

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus que
    300
    Caractéristiques puissantes
    . Prend en charge Office/Excel
    2007-2019 et 365
    . Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes
    30
    -jour d'essai gratuit. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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é en
    50 %
    , et réduit chaque jour des centaines de clics de souris !
bas de cabine
Commentaires (3)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Erreur:
#NUM!



Formule:
=IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
Ce commentaire a été minimisé par le modérateur sur le site
Bonjour, Mangipudi,
Cette formule fonctionne bien dans mon classeur Excel, quelle version d'Excel utilisez-vous ?
Vous pouvez également donner votre problème sous forme de capture d'écran ici.
Ce commentaire a été minimisé par le modérateur sur le site
J'ai la même erreur, mais elle ne s'affiche pas tout le temps.
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL