Note: The other languages of the website are Google-translated. Back to English

Hoe lotnummers genereren in Excel?

Heeft u er ooit aan gedacht om lotnummers te genereren in Excel, of zelf een generator voor lotnummers te maken in Excel? In dit artikel geef ik drie methoden om het gemakkelijk voor elkaar te krijgen.


Genereer lotnummers met Excel-functies

Deze methode helpt u bij het toepassen van verschillende Excel-functies om lotnummers te genereren. En je kunt het als volgt doen:

1. Typ in een leeg werkblad kolomkoppen in bereik A1: C1 zoals hieronder weergegeven schermafbeelding:

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

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

Vervolgens krijg je een tabel zoals de linker schermafbeelding wordt getoond:

 

nota lint De formule is te ingewikkeld om te onthouden? Sla de formule op als een Auto Text-invoer voor hergebruik met slechts één klik in de toekomst!
Lees meer ...     gratis trial

3. Zoek een leeg bereik, typ volgnummers horizontaal in een rij zoals hieronder weergegeven schermafbeelding:

4. Voer onder het eerste volgnummer 1 de formule in = VERT.ZOEKEN (G1, $ B $ 1: $ C $ 50,2, FALSE) erin en sleep de vulhendel naar het bereik dat u nodig hebt.

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

Vervolgens krijgt u de lotnummers zoals hieronder weergegeven schermafbeelding:

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

Maak een lijst van alle combinaties van verschillende reeksen gegevens in Excel

Kutools voor Excel's Maak een lijst van alle combinaties hulpprogramma is ontworpen om alle mogelijke combinaties van verschillende gegeven reeksen gegevens algemeen te maken en deze combinaties in een kolom op te sommen zoals onderstaand screenshot.


als lijst van alle combinaties 1

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie met volledige functionaliteit 30-dag, geen creditcard nodig! Snap het nu

Genereer lotnummers met VBA Macro

Deze methode helpt u bij het toepassen van een VBA-macro om lotnummers in Excel te genereren. Ga als volgt te werk:

1. pers anders + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.

2. Klikken Invoegen > Module om een ​​nieuw modulevenster te openen en de volgende VBA-code erin te plakken:

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

4. Geef nu in het pop-upvenster een cel op om de lotnummers uit te voeren en klik op de OK knop.

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


Genereer lotnummers met Kutools voor Excel

Als u Kutools voor Excel hebt geïnstalleerd, is het Voeg willekeurige gegevens in hulpprogramma kan u helpen lotnummers in Excel in één keer te genereren.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie met volledige functionaliteit 30-dag, geen creditcard nodig! Nu gratis proberen!

1. Selecteer 6 aangrenzende cellen, zoals A1: F1, en klik vervolgens op het Kutools > Invoegen > Voeg willekeurige gegevens in.

2. Nu verschijnt het dialoogvenster Willekeurige gegevens invoegen. Ga naar het Geheel getal tabblad, typ 1 in Van vak, type 49 in Naar vakje, vink het Unieke waarden optie en klik op de OK knop. Nu zult u zien dat 6 unieke lotnummers worden gegenereerd en onmiddellijk in de geselecteerde cellen worden weergegeven.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie met volledige functionaliteit 30-dag, geen creditcard nodig! Snap het nu


Demo: genereer lotnummers met Kutools voor Excel


Kutools for Excel bevat meer dan 300 handige tools voor Excel, gratis en onbeperkt uit te proberen in 30 dagen. Download en gratis proef nu!

Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (15)
Rated 5 uit 5 · 1 ratings
Deze opmerking is gemaakt door de moderator op de site
Doe alsjeblieft gemakkelijk om software te vinden
Deze opmerking is gemaakt door de moderator op de site
Ik wil graag een geluksgetal winnen
Deze opmerking is gemaakt door de moderator op de site
: Ik zou graag je nieuwe programma's willen proberen om te zien hoe de cijfers voorspellen
Deze opmerking is gemaakt door de moderator op de site
bereken de volgende dag gok voor Kerala loterij
Deze opmerking is gemaakt door de moderator op de site
hay, Santhanam heb je elke overwinning behaald met dit programma?
Deze opmerking is gemaakt door de moderator op de site
bereken het lotnummer van de volgende dag voor kerala loterij - india
Deze opmerking is gemaakt door de moderator op de site
Wat is het doel van AANTAL.ALS(B$1:B1,B1)-1 in de formule in stap B?
Deze opmerking is gemaakt door de moderator op de site
Hallo hyungsup kim,
AANTAL.ALS(B$1:B1,B1)-1 voorkomt duplicaten in kolom B. Als de B1 bijvoorbeeld een unieke waarde is, retourneert dit deel 0, wat geen invloed heeft op het rangschikkingsresultaat; als de B1 duplicaat is, zal dit deel het rangschikkingsresultaat enigszins aanpassen.
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik heb de Vlookup-manier geprobeerd die je hier hebt laten zien, het werkt geweldig en het is gemakkelijk om de nummers voor het bereik van 1 tot 49 te genereren.

Maar ik dacht erover om een ​​aantal nummers in het spel te elimineren, bijvoorbeeld in plaats van nummers te laten lopen, heb ik 25 nummers van 1 tot 49. Hoe moet ik de Vlookup-formule aanpassen om het te laten werken?
Rated 5 uit 5
Deze opmerking is gemaakt door de moderator op de site
Hoi Yogi, sorry dat ik je verzoek niet helemaal begrijp. Wat bedoel je met 25 getallen van 1 tot 49?
Deze opmerking is gemaakt door de moderator op de site
Ja 25 nummers van 1 tot 49.
Ik heb geprobeerd dezelfde formule te gebruiken, maar zodra een getal groter dan 25 is gekozen, kan het volgende getal in de reeks niet worden weergegeven en treedt er een fout op.
Rated 5 uit 5
Deze opmerking is gemaakt door de moderator op de site
Bedankt Amanda voor je hulp.
Deze opmerking is gemaakt door de moderator op de site
Het bestand werkt niet met de fromula, wat is er mis

laat het me weten

ik kopieer de formule, alles is correct.
Deze opmerking is gemaakt door de moderator op de site
Hey daar!

Kunt u het bestand waaraan u werkt bijvoegen?

Amanda
Deze opmerking is gemaakt door de moderator op de site
het systeem werkt niet, wat is er mis, ik heb alle formules ingevoegd
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL