Note: The other languages of the website are Google-translated. Back to English

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

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:

 

ruban de note 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 > Manuel.

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.


comme liste toutes les combinaisons 1

Kutools pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit de toutes les fonctionnalités 30-journée, aucune 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 cours 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érer des numéros de loterie avec Kutools for Excel

Si Kutools for Excel est installé, son 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 pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit de toutes les fonctionnalités 30-journée, aucune carte de crédit requise ! Essai gratuit 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 pour Excel - Comprend plus de 300 outils pratiques pour Excel. Essai gratuit de toutes les fonctionnalités 30-journée, aucune carte de crédit requise ! Achetez-le Maintenant


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


Kutools pour Excel comprend plus de 300 outils pratiques pour Excel, gratuits à essayer sans limitation en 30 jours. Téléchargez et essayez gratuitement maintenant!

Articles Liés:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 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 de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. 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é de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Commentaires (15)
Noté 5 hors 5 · évaluations 1
Ce commentaire a été minimisé par le modérateur sur le site
S'il vous plaît faites facile à trouver ssoftware
Ce commentaire a été minimisé par le modérateur sur le site
J'aimerai gagner un numéro porte-bonheur
Ce commentaire a été minimisé par le modérateur sur le site
: Je voudrais essayer vos nouveaux programmes voir comment les chiffres prédisent
Ce commentaire a été minimisé par le modérateur sur le site
calculer la conjecture du lendemain pour la loterie du kerala
Ce commentaire a été minimisé par le modérateur sur le site
hay, Santhanam avez-vous tous gagné avec ce programme ?
Ce commentaire a été minimisé par le modérateur sur le site
calculer le numéro de loterie du lendemain pour la loterie du kerala - inde
Ce commentaire a été minimisé par le modérateur sur le site
Quel est le but de COUNTIF(B$1:B1,B1)-1 dans la formule de l'étape B ?
Ce commentaire a été minimisé par le modérateur sur le site
Salut hyungsup kim,
COUNTIF(B$1:B1,B1)-1 empêchera les doublons dans la colonne B. Par exemple, si B1 est une valeur unique, cette partie renverra 0, ce qui n'affectera pas le résultat du classement ; si le B1 est en double, cette partie ajustera légèrement le résultat du classement.
Ce commentaire a été minimisé par le modérateur sur le site
Salut, j'ai essayé la méthode Vlookup que vous avez montrée ici, cela fonctionne très bien et il est facile de générer les nombres pour la plage de 1 à 49.

Mais je pensais éliminer certains nombres en jeu comme par exemple au lieu d'exécuter des nombres j'aurai 25 nombres de 1 à 49. Comment dois-je ajuster la formule Vlookup pour que cela fonctionne ?
Noté 5 hors 5
Ce commentaire a été minimisé par le modérateur sur le site
Salut Yogi, désolé je ne comprends pas très bien votre demande. Que voulez-vous dire par avoir 25 numéros de 1 à 49 ?
Ce commentaire a été minimisé par le modérateur sur le site
Oui 25 numéros de 1 à 49.
J'ai essayé d'utiliser la même formule, mais une fois qu'un nombre supérieur à 25 est sélectionné, le nombre suivant dans la séquence ne peut pas être affiché et une erreur se produit.
Noté 5 hors 5
Ce commentaire a été minimisé par le modérateur sur le site
Merci Amandine pour votre aide.
Ce commentaire a été minimisé par le modérateur sur le site
Le fichier ne fonctionne pas avec la fromula, ce qui ne va pas

s'il vous plaît laissez-moi savoir

je copie le formulaire tout est correct.
Ce commentaire a été minimisé par le modérateur sur le site
Salut,

Pourriez-vous joindre le fichier sur lequel vous travaillez ?

Amanda à écrit son
Ce commentaire a été minimisé par le modérateur sur le site
le système ne fonctionne pas, ce qui ne va pas j'ai inséré tout le formulaire
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