Hoe loterijnummers genereren in Excel?

Deze methode begeleidt je bij het toepassen van verschillende Excel-functies om loterijnummers te genereren. En je kunt als volgt te werk gaan:

1. Typ kolomkoppen in Bereik A1:C1 in een leeg werkblad zoals in onderstaande schermafbeelding te zien is:

2. Voer formules in Kolom A, Kolom B en Kolom C in:

(1) Voer in Cel A2 de formule =RAND()in, en sleep vervolgens het vulhandvat naar het bereik A2:A50.
(2) Voer in Cel B2 de formule =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1in, en sleep vervolgens het vulhandvat naar het bereik B2:B50. (In de formule is A2 het willekeurige getal links van de huidige cel, $A$2:$A$50 zijn alle willekeurige getallen die we met de eerste formule hebben verkregen, B$1 is de eerste cel in Kolom B, en B1 is de cel boven de huidige cel).
(3) Voer in Bereik C2:C50 volgnummers in van 1 tot 49.

Vervolgens krijg je een tabel zoals in de linker schermafbeelding te zien is:

 

Formule te ingewikkeld om te onthouden? Sla de formule op als een AutoTekst-item om in de toekomst met slechts één klik te hergebruiken! Lees meer…     Gratis proefversie

3. Zoek een leeg bereik, typ volgnummers horizontaal in een rij zoals in onderstaande schermafbeelding te zien is:

4. Onder het eerste volgnummer van 1, voer de formule =VLOOKUP(G1,$B$1:$C$50,2,FALSE) in, en sleep vervolgens het vulhandvat naar het bereik dat je nodig hebt.

Opmerking: In deze formule is G1 de cel met het eerste volgnummer van 1, $B$1:$C$50 zijn de kolommen Unieke Rangorde en Balnummer, 2 betekent waarden zoeken in de tweede kolom van Bereik $B$1:$C$50.

Vervolgens krijg je de loterijnummers zoals in onderstaande schermafbeelding te zien is:

5. Dit is optioneel. Om te voorkomen dat de loterijnummers automatisch veranderen wanneer het huidige werkblad wordt vernieuwd, kun je op Formule > Berekeningsopties > Handmatig.

Als je Kutools voor Excel hebt geïnstalleerd, kan de functie Willekeurige gegevens invoegen je helpen om in één keer loterijnummers te genereren in Excel.

1. Selecteer 6 aangrenzende cellen, zoals A1:F1, en klik vervolgens op Kutools > Invoegen > Willekeurige gegevens invoegen.

2. Nu verschijnt het dialoogvenster Willekeurige gegevens invoegen. Ga naar het tabblad Geheel getal tab, type 1 in Van vak, type 49 in Tot vak, vink de optie Unieke waarden aan, en klik op de OK knop. Nu zie je dat er 6 unieke loterijnummers worden gegenereerd en direct in de geselecteerde cellen worden weergegeven.

Deze methode begeleidt je bij het toepassen van een VBA-macro om loterijnummers te genereren in Excel. Doe als volgt:

1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module om een nieuw modulevenster te openen, en plak de volgende VBA-code erin:

VBA: Loterijnummer-generator in 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. Druk op de F5-toets of klik op de knop Uitvoeren om deze VBA-macro uit te voeren.

4. Nu in het pop-updialoogvenster, specificeer een cel om de loterijnummers uit te voeren, en klik op de OK knop.

Vervolgens zie je dat er 6 unieke loterijnummers worden gegenereerd en weergegeven in de gespecificeerde cellen.

Willekeurig cellen selecteren op basis van criteria in Excel

Willekeurig achtergrond/vulkleur toevoegen aan cellen in Excel