Comment générer des numéros de loterie dans Excel?
Avez-vous déjà pensé à générer des numéros de loterie dans Excel ou à créer vous-même un générateur de numéros de loterie dans Excel? Dans cet article, je vous propose trois méthodes pour le faire facilement.
- Générer des numéros de loterie avec les fonctions Excel (5 étapes)
- Générer des numéros de loterie avec la macro VBA
- Générez des numéros de loterie avec Kutools for Excel (2 étapes)
Générer des numéros de loterie avec les fonctions Excel
Cette méthode vous guidera à travers l'application de plusieurs fonctions Excel pour générer des numéros de loterie. Et vous pouvez faire comme suit:
1. Dans une feuille de calcul vierge, tapez les en-têtes de colonne dans la plage A1: C1 comme ci-dessous la capture d'écran illustrée:
2. Entrez les formules dans la colonne A, la colonne B et la colonne C:
(1) Dans la cellule A2, entrez la formule = RAND (), puis faites glisser la poignée de remplissage vers la plage A2: A50.
(2) Dans la cellule B2, entrez la formule =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, puis faites glisser la poignée de remplissage vers la plage B2: B50. (Dans la formule, A2 est le nombre aléatoire laissé à la cellule actuelle, $ A $ 2: $ A $ 50 sont tous des nombres aléatoires que nous avons obtenus avec la première formule, B $ 1 est la première cellule de la colonne B et B1 est la cellule au-dessus du courant cellule).
(3) Dans la plage C2: C50, entrez les numéros de séquence de 1 à 49.
Ensuite, vous obtiendrez un tableau comme capture d'écran de gauche:
La formule est trop compliquée à retenir? Enregistrez la formule en tant qu'entrée de texte automatique pour la réutiliser en un seul clic à l'avenir! Lire la suite... Essai gratuit |
3. Trouvez une plage vide, tapez les numéros de séquence horizontalement dans une ligne comme ci-dessous la capture d'écran illustrée:
4. Sous le premier numéro de séquence de 1, entrez la formule = RECHERCHEV (G1, $ B $ 1: $ C $ 50,2, FALSE) dedans, et faites glisser la poignée de remplissage vers la plage dont vous avez besoin.
Notes: Dans cette formule, G1 est la cellule avec le premier numéro de séquence de 1, $ B $ 1: $ C $ 50 sont la colonne Unique Rank et la colonne Ball Number, 2 signifie trouver des valeurs dans la deuxième colonne de Range $ B $ 1: $ C $ 50 .
Ensuite, vous obtiendrez les numéros de loterie comme ci-dessous la capture d'écran montrée:
5. C'est facultatif. Pour éviter que les numéros de loterie ne changent automatiquement lors de l'actualisation de la feuille de calcul actuelle, vous pouvez cliquer sur le bouton Laits en poudre > Options de calcul > Manuelle.
Répertoriez facilement toutes les combinaisons de plusieurs séries de données dans Excel
Kutools pour Excel Lister toutes les combinaisons L'utilitaire est conçu pour généraliser toutes les combinaisons possibles à partir de plusieurs séries de données données, et lister ces combinaisons dans une colonne comme illustré ci-dessous.
Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant
Générer des numéros de loterie avec la macro VBA
Cette méthode vous guidera pour appliquer une macro VBA pour générer des numéros de loterie dans Excel. Veuillez procéder comme suit:
1. presse autre + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2Cliquez sur insérer > Module pour ouvrir une nouvelle fenêtre de module et collez-y le code VBA suivant:
VBA: générateur de numéros de loterie dans Excel
Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub
3. appuie sur le F5 ou cliquez sur la Courir bouton pour exécuter cette macro VBA.
4. Maintenant, dans la boîte de dialogue contextuelle, spécifiez une cellule pour afficher les numéros de loterie, puis cliquez sur le bouton OK .
Ensuite, vous verrez 6 numéros de loterie uniques sont générés et affichés dans les cellules spécifiées.
Générez des numéros de loterie avec Kutools for Excel
Si Kutools pour Excel est installé, c'est Insérer des données aléatoires L'utilitaire peut vous aider à générer des numéros de loterie dans Excel à la fois.
Kutools for Excel - Emballé avec plus de 300 outils essentiels pour Excel. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Télécharger maintenant!
1. Sélectionnez 6 cellules adjacentes, telles que A1: F1, puis cliquez sur le bouton Kutools > insérer > Insérer des données aléatoires.
2. La boîte de dialogue Insérer des données aléatoires apparaît maintenant. Aller au Entier onglet, tapez 1 in Du boîte, type 49 in À case, cochez la case Des valeurs uniques option, et cliquez sur le OK bouton. Maintenant, vous verrez 6 numéros de loterie uniques sont générés et affichés immédiatement dans les cellules sélectionnées.
Kutools for Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez d'un essai GRATUIT complet de 30 jours sans carte de crédit requise ! Achetez-le Maintenant
Démo : générer des numéros de loterie avec Kutools for Excel
Articles Liés:
Sélectionnez au hasard des cellules en fonction de critères dans Excel
Ajouter au hasard la couleur d'arrière-plan / de remplissage pour les cellules dans Excel
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!