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 (5 stappen)
- Genereer lotnummers met VBA Macro
- Genereer lotnummers met Kutools voor Excel (2 stappen)
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:
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.
Note: 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 > Handmatig.
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.
Kutools for Excel - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! 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 - Verpakt met meer dan 300 essentiële tools voor Excel. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Download nu!
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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu
Demo: genereer lotnummers met Kutools voor Excel
Gerelateerde artikelen:
Selecteer willekeurig cellen op basis van criteria in Excel
Voeg willekeurig achtergrond- / vulkleur toe voor cellen in Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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!