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

Hogyan generálható lottószám az excelben?

Gondolt már arra, hogy lottószámokat állítson elő Excel-ben, vagy készítsen lottószám-generátort Excelben egyedül? Ebben a cikkben három módszert közlök az Ön számára, hogy könnyen elvégezhesse.


Létrehozhat lottószámokat az Excel függvényekkel

Ez a módszer végigvezeti Önt több Excel-függvény alkalmazásán keresztül a lottószámok előállításához. És a következőket teheti:

1. Írjon be egy üres munkalapba oszlopfejléceket az A1: C1 tartományba, az alábbi képernyőképen:

2. Írja be a képleteket az A, B és C oszlopba:

(1) Az A2 cellába írja be a képletet = RAND (), majd húzza a Kitöltő fogantyút az A2: A50 tartományba.
(2) A B2 cellába írja be a képletet =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, majd húzza a Kitöltő fogantyút a B2: B50 tartományba. (A képletben A2 az aktuális cellára hagyott véletlenszám, $ A $ 2: $ A $ 50 mind olyan véletlenszám, amelyet az első képlettel kaptunk, B $ 1 az első cella a B oszlopban, és B1 az aktuális fölötti cella sejt).
(3) A C2: C50 tartományba írja be az 1 és 49 közötti sorszámokat.

Ezután kap egy táblázatot a bal oldali képernyőképen:

 

jegyzetszalag A képlet túl bonyolult ahhoz, hogy emlékezzen rá? Mentse el a képletet automatikus szöveges bejegyzésként, és a jövőben csak egy kattintással használhatja újra!
Olvass tovább…     Ingyenes próbaverzió

3. Keressen egy üres tartományt, írja be a sorszámokat vízszintesen egy sorba, az alábbi ábrán látható módon:

4. Az első 1-es sorszám alatt írja be a képletet = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, HAMIS) és húzza a Fill Handle-t a kívánt tartományba.

Megjegyzések: Ebben a képletben a G1 az a cella, amelynek első sorszáma 1, $ B $ 1: $ C $ 50 Unique Rank oszlop és Ball Number oszlop, 2 azt jelenti, hogy értékeket talál a $ B $ 1 tartomány: $ C $ 50 második oszlopában .

Ezután megkapja a sorsolás számát az alábbi képernyőképen:

5. Nem kötelező. Kattintson a gombra, hogy megakadályozza a lottószámok automatikus változását az aktuális munkalap frissítésekor Képlet > Számítási lehetőségek > Kézikönyv.

Könnyen felsorolhatja az összes adatsor kombinációját az Excel programban

Kutools for Excel's Sorolja fel az összes kombinációt A segédprogramot úgy tervezték, hogy általánosítsa az összes lehetséges kombinációt több megadott adatsorból, és felsorolja ezeket a kombinációkat egy oszlopban, az alábbi képernyőképen.


as felsorolja az összes kombinációt 1

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Szerezd meg most

Létrehozhat lottószámokat a VBA Macro segítségével

Ez a módszer arra készteti Önt, hogy VBA makrót alkalmazzon a lottószámok Excelben történő létrehozásához. Kérjük, tegye a következőket:

1. nyomja meg más + F11 gombokkal nyissa meg a Microsoft Visual Basic for Applications ablakot.

2. Kattints betétlap > Modulok új modulablak megnyitásához és illessze be a következő VBA kódot:

VBA: Lottószám-generátor az Excelben

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. megnyomni a F5 vagy kattintson a gombra futás gombra a VBA makró futtatásához.

4. Most a felbukkanó párbeszédpanelen adjon meg egy cellát a lottószámok kiadásához, majd kattintson a gombra OK gombot.

Ezután látni fogja, hogy 6 egyedi lottószám jön létre és jelenik meg a megadott cellákban.


Létrehozhat lottószámokat a Kutools for Excel programmal

Ha a Kutools for Excel telepítve van, akkor Véletlen adatok beillesztése segédprogram segítségével egyszerre generálhat lottószámokat az Excelben.

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Ingyenes próba most!

1. Jelöljön ki 6 szomszédos cellát, például A1: F1, majd kattintson a gombra Kutools > betétlap > Véletlen adatok beillesztése.

2. Most megjelenik a Véletlen adatok beszúrása párbeszédpanel. Menj a Egész szám fülre írja be 1 in Tól től doboz, írja be 49 in Nak nek jelölje be a négyzetet Egyedi értékek opciót, és kattintson a OK gomb. Most látni fogja, hogy 6 egyedi lottószám jön létre és jelenik meg azonnal a kiválasztott cellákban.

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Szerezd meg most


Bemutató: lottószámok generálása a Kutools for Excel alkalmazással


Kutools az Excel számára több mint 300 praktikus eszközt tartalmaz az Excel számára, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Letöltés és ingyenes próba most!

Kapcsolódó cikkek:


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (15)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérjük, tegyen könnyen megtalálható szoftvert
A weboldal moderátora ezt a megjegyzést minimalizálta
Szeretnék nyerni egy kis szerencseszámot
A weboldal moderátora ezt a megjegyzést minimalizálta
: Ki szeretném próbálni az új programjaidat, és megnézném, hogyan jósolnak a számok
A weboldal moderátora ezt a megjegyzést minimalizálta
kiszámítja a következő napi tippet a kerala lottóhoz
A weboldal moderátora ezt a megjegyzést minimalizálta
hay, Santhanam mindent nyertél ezzel a programmal?
A weboldal moderátora ezt a megjegyzést minimalizálta
számítsa ki a következő napi lottószámot a Kerala lottóhoz - India
A weboldal moderátora ezt a megjegyzést minimalizálta
Mi a COUNTIF(B$1:B1,B1)-1 célja a B lépés képletében?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia hyungsup kim!
A COUNTIF(B$1:B1,B1)-1 megakadályozza az ismétlődéseket a B oszlopban. Például, ha a B1 egyedi érték, ez a rész 0-t ad vissza, ami nem befolyásolja a rangsorolás eredményét; ha a B1 duplikált, ez a rész kissé módosítja a rangsor eredményét.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Kipróbáltam a Vlookup módszert, amit itt bemutattál, remekül működik, és könnyen előállíthatók az 1-től 49-ig terjedő számok.

De arra gondoltam, hogy kiiktatnék néhány számot a játékban, például a futó számok helyett 25 szám lesz 1-től 49-ig. Hogyan kell módosítanom a Vlookup képletet, hogy működjön?
Az 5-t az 5-ből kiértékelte
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Yogi, sajnálom, nem egészen értem a kérésedet. Mit értesz azon, hogy 25 szám van 1-től 49-ig?
A weboldal moderátora ezt a megjegyzést minimalizálta
Igen 25 szám 1-től 49-ig.
Megpróbáltam ugyanazt a képletet használni, de ha 25-nél nagyobb számot vettek fel, a sorozat következő száma nem jeleníthető meg, és hiba lép fel.
Az 5-t az 5-ből kiértékelte
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm Amanda a segítséget.
A weboldal moderátora ezt a megjegyzést minimalizálta
A fájl nem működik a fromulával, mi a baj

kérem tudassa velem

bemásolom a képletet minden helyes.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,

Csatolnád kérlek a fájlt, amiben dolgozol?

Amanda
A weboldal moderátora ezt a megjegyzést minimalizálta
a rendszer nem működik, mi a hiba, beillesztettem az összes formulert
Még senki sem írt megjegyzést
Kérjük, írja meg észrevételeit angol nyelven
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi