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

Cum se generează numere de loterie în Excel?

V-ați gândit vreodată să generați numere de loterie în Excel sau să creați singur un generator de numere de loterie în Excel? În acest articol, vă ofer trei metode pentru a face acest lucru cu ușurință.


Generați numere de loterie cu funcțiile Excel

Această metodă vă va ajuta să aplicați mai multe funcții Excel pentru a genera numere de loterie. Și puteți face după cum urmează:

1. Într-o foaie de lucru goală, tastați antetele de coloană în Gama A1: C1, așa cum este prezentat mai jos:

2. Introduceți formule în Coloana A, Coloana B și Coloana C:

(1) În celula A2, introduceți formula = RAND (), apoi trageți mânerul de umplere în intervalul A2: A50.
(2) În celula B2, introduceți formula =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, apoi trageți mânerul de umplere în intervalul B2: B50. (În formulă, A2 este numărul aleator lăsat la celula curentă, $ A $ 2: $ A $ 50 sunt toate numerele aleatoare pe care le-am obținut cu prima formulă, B $ 1 este prima celulă din coloana B și B1 este celula de deasupra curentului celulă).
(3) În intervalul C2: C50, introduceți numerele de ordine de la 1 la 49.

Apoi veți obține un tabel așa cum este afișat ecranul din stânga:

 

nota panglică Formula este prea complicată pentru a ne aminti? Salvați formula ca intrare Text automat pentru reutilizare cu un singur clic în viitor!
Citeste mai mult…     Încercare gratuită

3. Găsiți un interval necompletat, tastați numerele de secvență orizontal într-un rând, după cum se arată în imaginea de mai jos:

4. Sub primul număr de secvență 1, introduceți formula = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALS) în el și trageți mânerul de umplere în intervalul de care aveți nevoie.

notițe: În această formulă, G1 este celula cu primul număr de secvență de 1, $ B $ 1: $ C $ 50 sunt coloana Rang unic și coloana Număr minge, 2 înseamnă că găsiți valori în a doua coloană a intervalului $ B $ 1: $ C $ 50 .

Apoi, veți obține numerele de la loterie, așa cum este prezentat mai jos:

5. Este opțional. Pentru a preveni modificarea automată a numerelor de loterie la actualizarea foii de lucru curente, puteți face clic pe Formulă > Opțiuni de calcul > Manual.

Enumerați cu ușurință toate combinațiile de mai multe serii de date în Excel

Kutools pentru Excel Enumerați toate combinațiile utilitarul este conceput să generalizeze toate combinațiile posibile din mai multe serii date de date și să enumere aceste combinații într-o coloană așa cum este prezentat mai jos.


ca listă a tuturor combinațiilor 1

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum

Generați numere de loterie cu VBA Macro

Această metodă vă va ghida să aplicați o macrocomandă VBA pentru a genera numere de loterie în Excel. Vă rugăm să faceți următoarele:

1. presa Alt + F11 tastele pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Module pentru a deschide o nouă fereastră de modul și lipiți următorul cod VBA în ea:

VBA: Generator de numere de loterie în 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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula această macrocomandă VBA.

4. Acum, în caseta de dialog pop-up, specificați o celulă pentru a afișa numerele de loterie și faceți clic pe OK butonul.

Apoi, veți vedea că 6 numere de loterie unice sunt generate și afișate în celulele specificate.


Generați numere de loterie cu Kutools pentru Excel

Dacă aveți instalat Kutools pentru Excel, este Introduceți date aleatorii utilitarul vă poate ajuta să generați numere de loterie în Excel simultan.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Încercare gratuită acum!

1. Selectați 6 celule adiacente, cum ar fi A1: F1, apoi faceți clic pe Kutools > Insera > Introduceți date aleatorii.

2. Acum apare caseta de dialog Inserare date aleatorii. Du-te la Întreg filă, tastați 1 in De la caseta, tip 49 in La , bifați caseta Valori unice și faceți clic pe OK buton. Acum veți vedea că 6 numere de loterie unice sunt generate și afișate imediat în celulele selectate.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Ia-L Acum


Demo: generați numere de loterie cu Kutools pentru Excel


Kutools pentru Excel include mai mult de 300 de instrumente la îndemână pentru Excel, gratuite pentru a încerca fără limitări în 30 de zile. Descărcați și încercați gratuit acum!

Legate de articole:


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (15)
Evaluat 5 din 5 · evaluări 1
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă rugăm să găsiți ușor software-ul
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mi-ar plăcea să câștig un număr de noroc
Acest comentariu a fost redus la minimum de moderatorul de pe site
: Aș dori să încerc noile dvs. programe pentru a vedea cum prezic numerele
Acest comentariu a fost redus la minimum de moderatorul de pe site
calculează ghicitul de a doua zi pentru loteria Kerala
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hay, Santhanam ai câștigat fiecare cu acest program?
Acest comentariu a fost redus la minimum de moderatorul de pe site
calculați numărul loteriei din ziua următoare pentru loteria Kerala - India
Acest comentariu a fost redus la minimum de moderatorul de pe site
Care este scopul COUNTIF(B$1:B1,B1)-1 în formula din pasul B?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună hyungsup Kim,
COUNTIF(B$1:B1,B1)-1 va preveni duplicarea în coloana B. De exemplu, dacă B1 este o valoare unică, această parte va returna 0, care nu va afecta rezultatul clasamentului; dacă B1 este duplicat, această parte va ajusta ușor rezultatul clasamentului.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, am încercat modul Vlookup pe care l-ați arătat aici, funcționează grozav și este ușor să generați numerele pentru intervalul de la 1 la 49.

Dar mă gândeam să elimin unele numere în joc, cum ar fi, de exemplu, în loc să rulez numere, voi avea 25 de numere de la 1 la 49. Cum va trebui să ajustez formula Vlookup pentru ca aceasta să funcționeze?
Evaluat 5 din 5
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Yogi, îmi pare rău, nu prea am înțeles cererea ta. Ce vrei să spui prin a avea 25 de numere de la 1 la 49?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Da 25 de numere de la 1 la 49.
Am încercat să folosesc aceeași formulă, dar odată ce este ales un număr mai mare de 25, următorul număr din secvență nu poate fi afișat și apare o eroare.
Evaluat 5 din 5
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc Amanda pentru ajutor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Fișierul nu funcționează cu fromula, ce este greșit

te rog anunta-ma

Copiez formularul, totul este corect.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut,

Ați putea atașa fișierul pe care îl lucrați?

Amanda
Acest comentariu a fost redus la minimum de moderatorul de pe site
sistemul nu funcționează, ce este în neregulă am introdus toate formularele
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL