Tato metoda vás provede aplikací několika funkcí aplikace Excel ke generování čísel loterií. A můžete to udělat následovně:

1. V prázdném listu zadejte záhlaví sloupců v rozsahu A1: C1, jak je uvedeno níže:

2. Zadejte vzorce do sloupce A, sloupce B a sloupce C:

(1) Do buňky A2 zadejte vzorec = RAND ()a potom přetáhněte úchyt Vyplnit do oblasti A2: A50.
(2) V buňce B2 zadejte vzorec =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1a potom přetáhněte rukojeť výplně do oblasti B2: B50. (Ve vzorci je A2 náhodné číslo ponechané aktuální buňce, $ A $ 2: $ A $ 50 jsou všechna náhodná čísla, která jsme dostali s prvním vzorcem, B $ 1 je první buňka ve sloupci B a B1 je buňka nad aktuální buňka).
(3) V rozsahu C2: C50 zadejte pořadová čísla od 1 do 49.

Poté dostanete tabulku, jak je ukázáno na levé obrazovce:

 

Vzorec je příliš komplikovaný na to, abyste si ho pamatovali? Uložte vzorec jako položku automatického textu pro opakované použití jediným kliknutím v budoucnu! Přečtěte si více ...     Zkušební verze zdarma

3. Najděte prázdný rozsah, zadejte pořadová čísla vodorovně do řádku, jak je uvedeno níže:

4. Pod prvním pořadovým číslem 1 zadejte vzorec = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALSE) do něj a přetáhněte rukojeť výplně do požadovaného rozsahu.

Poznámka: V tomto vzorci je G1 buňka s prvním pořadovým číslem 1, $ B $ 1: $ C $ 50 jsou sloupce Unique Rank a Ball Number, 2 znamená najít hodnoty ve druhém sloupci Range $ B $ 1: $ C $ 50 .

Poté získáte čísla loterií, jak je uvedeno níže:

5. Je to volitelné. Chcete-li zabránit automatickým změnám čísel loterie při aktualizaci aktuálního listu, můžete kliknout na ikonu Vzorec > Možnosti výpočtu > Manuál.

Snadno vypište všechny kombinace několika sérií dat v aplikaci Excel

Kutools pro Excel Seznam všech kombinací nástroj je navržen tak, aby generoval všechny možné kombinace z několika daných sérií dat a vypsal tyto kombinace do sloupce, jak je ukázáno níže.

Tato metoda vás provede aplikací makra VBA ke generování čísel loterií v aplikaci Excel. Postupujte prosím následovně:

1. lis Další + F11 klávesy pro otevření okna Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modul otevřete nové okno modulu a vložte do něj následující kód VBA:

VBA: Generátor čísel loterií v aplikaci 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. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění tohoto makra VBA.

4. Nyní v rozbalovacím dialogovém okně určete buňku, která má vygenerovat čísla loterie, a klikněte na OK .

Pak uvidíte, že se v určených buňkách vygeneruje a zobrazí 6 jedinečných čísel loterie.

Pokud máte nainstalovaný program Kutools pro Excel, jeho Vložte náhodná data nástroj vám pomůže generovat čísla loterií v aplikaci Excel najednou.

1. Vyberte 6 sousedních buněk, například A1: F1, a poté klikněte na Kutools > Vložit > Vložte náhodná data.

2. Nyní vyjde dialogové okno Vložit náhodná data. Přejít na Celé číslo kartu, zadejte 1 in od box, zadejte 49 in Na zaškrtněte políčko Jedinečné hodnoty a klepněte na tlačítko OK knoflík. Nyní uvidíte, že se ve vybraných buňkách vygeneruje a zobrazí se 6 jedinečných čísel loterie.

Náhodně vyberte buňky na základě kritérií v aplikaci Excel

Náhodně přidejte barvu pozadí / výplně pro buňky v aplikaci Excel