Hoe genereert u lotnummers in Excel?

Deze methode leidt u stap voor stap door het toepassen van diverse Excel-functies om lotnummers te genereren. Volg deze stappen:

1. Typ in een leeg werkblad kolomkoppen in het bereik A1:C1, zoals weergegeven in de onderstaande schermafbeelding:

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

(1) Voer in cel A2 de formule =RAND() in en sleep vervolgens de vulgreep naar het bereik A2:A50.
(2) Voer in cel B2 de formule =RANG($A2,$A$2:$A$50)+AANTAL.ALS(B$1:B1,B1)-1 in en sleep vervolgens de vulgreep naar het bereik B2:B50. (In deze formule is A2 het willekeurige getal links van de huidige cel, $A$2:$A$50 zijn alle willekeurige getallen die u met de eerste formule heeft gegenereerd, B$1 is de eerste cel in kolom B en B1 is de cel direct boven de huidige cel.)
(3) Voer in het bereik C2:C50 opeenvolgende nummers in van 1 tot en met 49.

Vervolgens krijgt u een tabel zoals op de linker schermafbeelding wordt weergegeven:

 

Formule te ingewikkeld om te onthouden? Sla de formule op als een automatische tekstvermelding en hergebruik deze in de toekomst met slechts één klik! Lees meer…     Gratis proefversie

3. Zoek een leeg bereik en typ opeenvolgende nummers horizontaal in een rij, zoals op de onderstaande schermafbeelding wordt weergegeven:

4. Voer bij het eerste reeksnummer 1 de formule =VERT.ZOEKEN(G1;$B$1:$C$50;2;ONWAAR) in en sleep vervolgens de vulgreep naar het gewenste bereik.

Opmerking: In deze formule is G1 de cel met het eerste reeksnummer 1, $B$1:$C$50 het bereik met de kolommen Unieke rang en Lotnummer, en betekent 2 dat de waarden worden gezocht in de tweede kolom van het bereik $B$1:$C$50.

Vervolgens krijgt u de lotnummers zoals op de onderstaande schermafbeelding wordt weergegeven:

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

Als u Kutools voor Excel hebt geïnstalleerd, helpt het hulpprogramma Willekeurige gegevens invoegen u direct lotnummers in Excel te genereren.

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

2. Het dialoogvenster Willekeurige gegevens invoegen verschijnt nu. Ga naar het tabblad Geheel getal, typ 1 in het vak Van, typ 49 in het vak Tot, vink de optie Unieke waarden aan en klik op de knop OKU ziet nu direct dat er 6 unieke lotnummers worden gegenereerd en weergegeven in de geselecteerde cellen.

Deze methode leidt u door het toepassen van een VBA-macro om lotnummers in Excel te genereren. Volg deze stappen:

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

4. Geef in het verschijnende dialoogvenster op in welke cel de lotnummers moeten worden weergegeven en klik op de knop OK.

Vervolgens ziet u dat er 6 unieke lotnummers worden gegenereerd en weergegeven in de opgegeven cellen.

Cellen willekeurig selecteren op basis van criteria in Excel

Willekeurig achtergrond/Vulkleur toevoegen aan cellen in Excel