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:

 

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 az Excelhez 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.

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.

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

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.

Véletlenszerűen válassza ki a cellákat az Excel kritériumai alapján

Véletlenszerűen adja hozzá az Excel celláinak háttér / kitöltési színét