Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 propose trois méthodes pour que vous puissiez le faire facilement.

Générer des numéros de loterie avec des fonctions Excel (Étapes 5)

Générer des numéros de loterie avec VBA Macro

Générer des numéros de loterie avec Kutools pour Excel (Étapes 2)

Lister facilement toutes les combinaisons de plusieurs séries de données dans Excel

Kutools pour Excel Lister toutes les combinaisons utilitaire est conçu pour généraliser toutes les combinaisons possibles à partir de plusieurs séries de données données, et liste ces combinaisons dans une colonne comme ci-dessous capture d'écran montré. Fonctionnalité complète Essai gratuit 60-day!
comme liste toutes les combinaisons 1


Générer des numéros de loterie avec des 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 indiqué ci-dessous:

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 le handle de remplissage vers la plage B2: B50. (Dans la formule, A2 est le nombre aléatoire restant dans la cellule courante, $ A $ 2: $ A $ 50 sont tous des nombres aléatoires obtenus avec la première formule, B $ 1 est la première cellule de la colonne B, et B1 est la cellule au-dessus de la cellule actuelle).
(3) Dans la plage C2: C50, entrez les numéros de séquence de 1 à 49.

Ensuite, vous obtiendrez une table comme la capture d'écran gauche montré:

note ruban La formule est trop compliquée à retenir? Enregistrez la formule en tant qu'entrée de texte automatique pour la réutilisation avec un seul clic à l'avenir!
Lire la suite ... Essai gratuit

3. Trouver une plage vide, tapez les numéros de séquence horizontalement dans une rangée comme ci-dessous la capture d'écran indiquée:

4. Sous le premier numéro de séquence de 1, entrez la formule = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALSE) dans celui-ci, et faites glisser la poignée de remplissage jusqu'à la plage dont vous avez besoin.

Note: Dans cette formule, G1 est la cellule avec le premier numéro de séquence de 1, $ B $ 1: $ C $ 50 sont une colonne de rang unique et une colonne Numéro de boule, 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é:

5. C'est optionnel. Pour empêcher les numéros de loterie de changer automatiquement lorsque la feuille de calcul en cours est actualisée, vous pouvez cliquer sur le bouton Formule > Options de calcul > Manuel.


Générer des numéros de loterie avec VBA Macro

Cette méthode vous guidera pour appliquer une macro VBA afin de générer des numéros de loterie dans Excel. S'il vous plaît faites comme suit:

1. presse autre + F11 clés pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez 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 touche ou cliquez sur le course bouton pour exécuter cette macro VBA.

4. Dans la boîte de dialogue contextuelle, spécifiez une cellule pour afficher les numéros de loterie, puis cliquez sur OK .

Ensuite, vous verrez les numéros de loterie uniques 6 sont générés et affichés dans les cellules spécifiées.


Générer des numéros de loterie avec Kutools pour Excel

Si vous avez installé Kutools for Excel, son Insérer des données aléatoires utilitaire peut vous aider à générer des numéros de loterie dans Excel à la fois.

Kutools for Excel - Combine plus que des fonctions et outils avancés 300 pour Microsoft Excel

1. Sélectionnez les cellules adjacentes 6, telles que A1: F1, puis cliquez sur 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 à la Entier onglet, tapez 1 in À partir du boîte, type 49 in À boîte, vérifiez la Des valeurs uniques option, et cliquez sur le OK bouton. Maintenant, vous verrez que les numéros de loterie uniques de 6 sont générés et affichés immédiatement dans les cellules sélectionnées.

Kutools for Excel - Comprend plus que des outils Excel pratiques 300. Fonctionnalité complète d'essai gratuit 60-day, aucune carte de crédit requise! Obtenez-le maintenant!


Demo: générer des numéros de loterie avec Kutools for Excel

Dans cette vidéo, le Kutools onglet et le Kutools Plus onglet sont ajoutés par Kutools for Excel. Si besoin, s'il vous plaît cliquez ici avoir un essai gratuit 60-day sans limitation!


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.