Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe maak je lucky draw namen in Excel?

In uw dagelijkse werk moet u soms enkele werknemers willekeurig uit een lange lijst kiezen als de geluksnamen. Hoe kun je in Excel willekeurig een aantal namen selecteren voor het maken van een gelukslot? In dit artikel zal ik ingaan op enkele handige methoden om deze taak in Excel aan te pakken.

Extract willekeurige namen voor het maken van lucky draw met formule

Extract willekeurige namen voor het maken van lucky draw met VBA-code

Selecteer willekeurige namen voor het maken van lucky draw met Kutools voor Excel


Selecteer willekeurige namen voor het maken van geluksnamen in Excel

Om sommige werknemers willekeurig uit een lange lijstnaam te selecteren als de geluksnamen, kunt u de Kutools for Excel, Met Sorteerbereik willekeurig functie, kunt u snel een specifiek aantal namen willekeurig selecteren als u dat wilt.

doc gelukkige namen 9

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Extract willekeurige namen voor het maken van lucky draw met formule

Ik wil bijvoorbeeld alle 3-namen uit de namenlijst halen, de volgende lange formule kan u helpen, doe alstublieft als volgt:

Voer deze formule in een lege cel in waar u het resultaat wilt plaatsen: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) en sleep vervolgens de vulgreep naar cellen naar behoefte, zie screenshot:

doc gelukkige namen 1

Opmerkingen:

1. In de bovenstaande formule: A2: A16 is de namenlijst die u willekeurig wilt uitpakken, B2 is het vereiste nummer dat u wilt uitpakken, C2 is de cel waar de formule moet worden ingevoerd, en C1 is de cel boven de formulecel.

2. U kunt op drukken F9 sleutel om willekeurig een nieuwe groep nieuwe namen te krijgen.


Extract willekeurige namen voor het maken van lucky draw met VBA-code

Hier kan een VBA-code je ook helpen om deze taak te voltooien, doe dit als volgt:

1. Houd de toets ingedrukt Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: willekeurige namen uit een lijst extraheren:

Public Sub LuckyDraw()
    Dim I, J, xRnd As Long
    Dim xSRg, xDRg As Range
    Dim xDic As New Dictionary
    Dim xnum, xLastRow As Long
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    xLastRow = xSRg.Rows.Count
    Set xSRg = xSRg(1)
    Set xDRg = xDRg(1)
    xnum = Range("B2")
    If xnum < 1 Then Exit Sub
    J = 0
    For I = 1 To xnum
LabExit:
        xRnd = Int(Rnd() * xLastRow)
        If xDic.Exists(xRnd) Then GoTo LabExit
        xDic.Add xRnd, ""
        xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
        J = J + 1
    Next
End Sub

Notes: In de bovenstaande code, B2 is de cel bevat het aantal namen dat u wilt extraheren.

3. Nadat u de code hebt ingevoegd, klikt u op Gereedschap > Referenties in de geopende Microsoft Visual Basic voor toepassingen venster, en vervolgens in de popping out Referenties - VBAProject dialoogvenster Microsoft Scripting Runtime optie in het Beschikbare verwijzingen keuzelijst, zie screenshot:

doc gelukkige namen 2

4. En klik vervolgens op OK om het dialoogvenster te sluiten en druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvak om u te herinneren aan het selecteren van de gegevenslijst waarvan u namen wilt extraheren, zie screenshot:

doc gelukkige namen 3

5. Klikken OK knop, en een andere prompt box is uitgeklapt, selecteer een cel waar je het resultaat wilt plaatsen, zie screenshot:

doc gelukkige namen 4

6. Dan klikken OKen het gewenste aantal namen is in één keer willekeurig gemaakt, zie screenshot:

doc gelukkige namen 5


Selecteer willekeurige namen voor het maken van lucky draw met Kutools voor Excel

Misschien zijn boven twee methoden moeilijk voor de meesten van ons, hier, als je dat hebt Kutools for Excel, Met Sorteerbereik willekeurig functie, kunt u snel namen willekeurig selecteren.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, doe alsjeblieft als volgt:

1. Selecteer de namenlijst die u willekeurig wilt selecteren. Dan klikken Kutools > Bereik > Sorteerbereik willekeurigzie screenshot:

doc gelukkige namen 6

2. In de Sorteerbereik willekeurig dialoogvenster, onder de kiezen tab, voer het nummer in waarvan u de namen wilt selecteren Aantal te selecteren cellen tekstvak en kies vervolgens Selecteer willekeurige cellen in de Selecteer Type sectie, zie screenshot:

doc gelukkige namen 7

3. Dan klikken Ok knop, en uw specifieke aantal namen zijn geselecteerd zoals u nodig hebt, zie screenshot:

doc gelukkige namen 8

Klik om Kutools voor Excel te downloaden en nu gratis uitproberen!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ravikumar Mangipudi · 10 months ago
    Error:
    #NUM!



    Formula:
    =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      Hello, Mangipudi,
      This formula works well in my Excel workbook, which Excel version do you use?
      You can also give your problem as a screenshot here.