Comment faire un tirage au sort dans une feuille de calcul Excel via VBA

Partage maintenant:

Dans la feuille de calcul Excel, vous pouvez également faire un tirage au sort. Dans cet article, nous allons vous montrer comment terminer cette tâche dans Excel.

Un tirage au sort est très courant dans notre vie quotidienne. Par exemple, vous devez donner des primes aux employés à la fin d'une année. Vous souhaitez sélectionner des employés chanceux au hasard. Par conséquent, vous pouvez utiliser le fichier Excel pour faire un tirage au sort.

Faire un tirage au sort

Dans cette partie, nous présenterons les méthodes en détail.

  1. Ouvrez le fichier Excel avec toutes les informations des employés. Dans cet exemple, il y a 18 employés dans la feuille de calcul. Et les bonus existants sont calculés en fonction de leur volume de ventes.Exemple
  2. Et puis appuyez sur les touches de raccourci "Alt + F11" sur le clavier pour ouvrir l'éditeur Visual Basic.
  3. Après cela, insérez un nouveau module dans l'éditeur.Module d'insertion
  4. Dans cette étape, copiez les codes suivants dans le nouveau module :
Sub MakeLuckyDraw()
  Dim nNumber As Integer, nRowIndex As Integer

  'Generate a random number
  nNumber = Int(Rnd() * (19 - 2 + 1)) + 2

  'Go through the list
  For nRowIndex = 2 To 19
    If nRowIndex = nNumber Then
      MsgBox "The lucky one is " & Cells(nRowIndex, 1).Value
    End If
  Next nRowIndex
End Sub

Dans ces codes, la formule "Int(Rnd() * (19 - 2 + 1)) + 2" garantira que le nombre aléatoire sera dans 2-19. Vous pouvez également modifier la formule selon vos besoins.

En fait, à l'exception de la formule ci-dessus pour générer un nombre, vous pouvez également utiliser la fonction de feuille de calcul "RandBetween". Et vous devez changer les codes dans le module.

'Generate a random number
nNumber = Application.WorksheetFunction.RandBetween(2, 19)
  1. Après cela, cliquez sur l'onglet "Développeur" dans le ruban.
  2. Et puis cliquez sur le bouton "Insérer" dans la barre d'outils.
  3. Dans la liste déroulante, choisissez l'option "Bouton".Bouton Insérer
  4. Après cela, cliquez dans la feuille de calcul. Vous verrez la fenêtre "Assign Macro".
  5. Dans cette fenêtre, cliquez sur la macro que vous avez entrée dans le nouveau module.Attribuer une macro
  6. Et puis cliquez sur le bouton "OK".
  7. Ensuite, vous pouvez voir le bouton dans la feuille de calcul. Faites un clic droit sur le bouton.
  8. Dans la fenêtre contextuelle, choisissez l'option "Modifier le texte".
  9. Donnez maintenant un nom au bouton. Nous l'appellerons "Lucky Person".Éditer le texte
  10. Vous avez terminé tous les réglages. Vous pouvez maintenant commencer l'activité. Cliquez sur le bouton.
  11. Et puis vous verrez une fenêtre pop-up avec le nom de votre employé.Résultat

À partir des étapes ci-dessus, vous pouvez voir que l'utilisation d'Excel pour faire un tirage au sort est très pratique. La prochaine fois, vous pouvez également envisager d'utiliser des fichiers Excel pour ces tâches.

Comment réparer vos fichiers Excel

La majorité des utilisateurs quitteront l'application Excel tant qu'ils rencontreront des erreurs dans Excel. Et la prochaine fois qu'ils ouvriront un fichier Excel, les problèmes n'existeront plus. Mais si vous rencontrez de graves problèmes avec Excel, vous devez prendre des mesures supplémentaires. Vous pouvez utiliser un outil tiers pour réparer Excel xlsx endommagé et corriger les erreurs Excel. C'est également la méthode la plus efficace pour résoudre les problèmes liés à Excel.

Introduction de l'auteur:

Anna Ma est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris réparer les données doc corrompues et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com

Partage maintenant:

Les commentaires sont fermés.