Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako narediti srečo z imeni v Excelu?

V vsakodnevnem delu morate včasih izbrati nekaj zaposlenih naključno iz dolgih imen seznamov kot srečna imena. V Excelu, kako lahko naključno izberete nekaj imen za srečo? V tem članku bom govoril o nekaterih uporabnih metodah za obravnavanje tega dela v Excelu.

Izvleček naključnih imen za izdelavo srečne risbe s formulo

Izvleči naključna imena za izdelavo srečne risbe s kodo VBA

Izberite naključna imena za izdelavo srečne risbe z Kutools za Excel


Izberite naključna imena za izdelavo srečnih imen v Excelu

Če želite naključno izbrati nekatere zaposlene iz dolgih imen seznamov kot srečna imena, lahko uporabite Kutools za Excel, Z njegovim Razvrstite obseg poljubno funkcijo, lahko hitro izbirate določeno število imen po naključju, kot jih potrebujete.

doc srečna imena 9

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Izvleček naključnih imen za izdelavo srečne risbe s formulo

Na primer, iz imena seznama želim izvleči vsa imena 3, vam lahko pomaga naslednja dolga formula:

Vnesite to formulo v prazno celico, kjer želite dati rezultat: =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)))) in nato povlecite ročico za polnjenje do polj, kot jih potrebujete, si oglejte sliko zaslona:

doc srečna imena 1

Opombe:

1. V zgornji formuli: A2: A16 je seznam imen, ki ga želite izvleči iz naključno, B2 je zahtevana številka, ki jo želite izpisati, C2 je celica, v katero vnesemo formulo, in C1 je celica nad celico s formulo.

2. Lahko pritisnete F9 ključno, da bi dobili novo skupino novih imen naključno.


Izvleči naključna imena za izdelavo srečne risbe s kodo VBA

Tukaj vam lahko tudi kodo VBA pomaga dokončati to nalogo, storite to:

1. Drži dol Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: izvleče naključna imena s seznama:

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

Opombe: V zgornji kodi, B2 je celica vsebuje število imen, ki jih želite izvleči.

3. Ko vstavite kodo, kliknite Orodja > Reference v odprtem Microsoft Visual Basic za aplikacije okno, in nato, v popped out Reference - VBAProjekt pogovorno okno, preveri Microsoft Scripting Runtime možnost v Razpoložljive reference polje s seznamom, si oglejte sliko zaslona:

doc srečna imena 2

4. In nato kliknite OK za izhod iz pogovornega okna, nato pritisnite F5 ključ za zagon te kode in izpisano polje za hitro klicanje, ki vas opomni, da izberete seznam podatkov, iz katerega želite izvleči imena, glejte sliko zaslona:

doc srečna imena 3

5. Kliknite OK gumb in drugo okno za izpis je izpuščeno, izberite celico, kamor želite dati rezultat, si oglejte posnetek zaslona:

doc srečna imena 4

6. Nato kliknite OKin želeno število imen je bilo ustvarjenih naključno hkrati, si oglejte posnetek zaslona:

doc srečna imena 5


Izberite naključna imena za izdelavo srečne risbe z Kutools za Excel

Lahko je nad dvema metodama težko za večino nas, tukaj, če imate Kutools za Excel, Z njegovim Razvrstite obseg poljubno funkcijo, lahko hitro izbirate imena naključno.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite tako:

1. Izberite seznam imen, ki ga želite naključno izbrati. Nato kliknite Kutools > Območje > Razvrstite obseg poljubno, si oglejte sliko zaslona:

doc srečna imena 6

2. v Razvrstite obseg poljubno pogovorno okno, pod Izberite kartico, vnesite številko, v katero želite izbrati imena Število celic, ki jih želite izbrati polje z besedilom in nato izberite Izberite naključne celice v Izberite Vrsta razdelek, glejte sliko zaslona:

doc srečna imena 7

3. Nato kliknite Ok gumb in določeno število imen ste izbrali po potrebi, glejte sliko zaslona:

doc srečna imena 8

Kliknite za prenos Kutools za Excel in brezplačno preizkusite zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 8 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 · 8 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.