Kako ustvariti loterijske številke v Excelu?
Ste že kdaj pomislili, da bi v Excelu ustvarili številke loterije ali sami ustvarili generator številk loterije v Excelu? V tem članku vam predstavljam tri metode za enostavno izvedbo.
- Ustvari loterijske številke z Excelovimi funkcijami (5 korakov)
- Ustvari loterijske številke z makro VBA
- Ustvari loterijske številke s Kutools za Excel (2 korakov)
Ustvari loterijske številke z Excelovimi funkcijami
Ta metoda vas bo vodila skozi uporabo več Excelovih funkcij za ustvarjanje številk loterije. In lahko naredite naslednje:
1. V prazen delovni list vnesite glave stolpcev v obseg A1: C1, kot je prikazano spodaj:
2. V stolpce A, stolpce B in stolpce C vnesite formule:
(1) V celico A2 vnesite formulo = RAND ()in nato povlecite ročico za polnjenje v obseg A2: A50.
(2) V celico B2 vnesite formulo =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1in nato povlecite ročico za polnjenje v obseg B2: B50. (V formuli je A2 naključno število, prepuščeno trenutni celici, $ A $ 2: $ A $ 50 so vsa naključna števila, ki smo jih dobili s prvo formulo, B $ 1 je prva celica v stolpcu B in B1 je celica nad trenutno celica).
(3) V območju C2: C50 vnesite zaporedne številke od 1 do 49.
Nato boste dobili tabelo, kot je prikazano na levi sliki zaslona:
Formula je preveč zapletena, da bi si jo zapomnili? Shranite formulo kot vnos samodejnega besedila za nadaljnjo uporabo z enim samim klikom v prihodnosti! Preberite več ... Brezplačen preizkus |
3. Poiščite prazen obseg, vnesite zaporedne številke vodoravno v vrsto, kot je prikazano spodaj:
4. Pod prvo zaporedno številko 1 vnesite formulo = OGLED (G1, $ B $ 1: $ C $ 50,2, LAŽNO) vanj in povlecite ročico za polnjenje v obseg, ki ga potrebujete.
Opombe: V tej formuli je G1 celica s prvo zaporedno številko 1, $ B $ 1: $ C $ 50 sta stolpec Unique Rank in Ball Number, 2 pomeni iskanje vrednosti v drugem stolpcu obsega $ B $ 1: $ C $ 50 .
Nato boste dobili številke loterije, kot je prikazano spodaj:
5. Neobvezno. Če želite preprečiti, da bi se številke loterije samodejno spreminjale, ko se trenutni delovni list osveži, kliknite Formula > Možnosti izračuna > Navodilo.
Preprosto naštejte vse kombinacije več serij podatkov v Excelu
Kutools za Excel Seznam vseh kombinacij pripomoček je zasnovan tako, da navede vse možne kombinacije iz več danih serij podatkov in jih navede v stolpcu, kot je prikazano spodaj
Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now
Ustvari loterijske številke z makro VBA
Ta metoda vas bo vodila do uporabe makra VBA za ustvarjanje številk loterije v Excelu. Naredite naslednje:
1. Pritisnite druga + F11 za odpiranje okna Microsoft Visual Basic for Applications.
2. Kliknite Vstavi > Moduli da odprete novo okno modula in vanj prilepite naslednjo kodo VBA:
VBA: Generator številk loterije v Excelu
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. Pritisnite F5 ali kliknite Run za zagon tega makra VBA.
4. Zdaj v pojavnem pogovornem oknu določite celico za prikaz številk loterije in kliknite OK gumb.
Nato boste videli, da se v določenih celicah generira in prikaže 6 unikatnih številk loterije.
Ustvari loterijske številke s Kutools za Excel
Če imate nameščen Kutools za Excel, ga Vstavite naključne podatke pripomoček vam lahko pomaga ustvariti loterijske številke v Excelu hkrati.
Kutools za Excel - Vsebuje več kot 300 osnovnih orodij za Excel. Uživajte v 30-dnevnem BREZPLAČNEM preizkusu s polnimi funkcijami brez kreditne kartice! Prenesi zdaj!
1. Izberite 6 sosednjih celic, na primer A1: F1, in nato kliknite Kutools > Vstavi > Vstavite naključne podatke.
2. Zdaj se odpre pogovorno okno Vstavi naključne podatke. Pojdi na Integer zavihek, vnesite 1 in od polje, vrsto 49 in Da potrdite polje Edinstvene vrednote in kliknite na OK . Zdaj boste videli, da je 6 edinstvenih številk loterije ustvarjenih in takoj prikazanih v izbranih celicah.
Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now
Demo: ustvarite številke loterije s Kutools za Excel
Sorodni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!