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

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.

Če imate nameščen Kutools za Excel, ga Vstavite naključne podatke pripomoček vam lahko pomaga ustvariti loterijske številke v Excelu hkrati.

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.

Naključno izberite celice na podlagi meril v Excelu

Naključno dodajte barvo ozadja / polnila za celice v Excelu