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

Kako narediti imena za srečno risanje v Excelu?

Pri vsakodnevnem delu morate včasih naključno izbrati imena zaposlenih z dolgega seznama kot srečna imena. Kako lahko v Excelu naključno izberete nekatera imena za srečno risanje? V tem članku bom govoril o nekaterih uporabnih metodah za reševanje tega dela v Excelu.

Izvlecite naključna imena za srečno risanje s formulo

Izvlecite naključna imena za srečno risanje s kodo VBA

Izberite naključna imena za srečno risanje s programom Kutools za Excel


Izvlecite naključna imena za srečno risanje s formulo

Na primer, želim izločiti katera koli 3 imena s seznama imen, naslednja dolga formula vam lahko pomaga, naredite tako:

Vnesite to formulo v prazno celico, kamor ž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 navzdol do celic, kot potrebujete, glejte posnetek zaslona:

doc srečna imena 1

Opombe:

1. V zgornji formuli: A2: A16 je seznam imen, ki ga želite naključno izvleči, B2 je zahtevana številka, za katero želite izvleči imena, C2 je celica, kamor vnesite formulo, in C1 je celica nad celico s formulo.

2. Lahko pritisnete F9 tipko, če želite naključno dobiti novo skupino novih imen.


Izvlecite naključna imena za srečno risanje s kodo VBA

Tu lahko tudi koda VBA pomaga pri dokončanju te naloge. Naredite to:

1. Držite tipko Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Izvlecite 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. Po vstavitvi kode kliknite Orodja > Reference v odprtem Microsoft Visual Basic za aplikacije okno in nato v izpuščenem Reference - VBAProject pogovorno okno, preverite Izvajanje Microsoftovih skriptov možnost v Razpoložljive reference seznam, glej posnetek zaslona:

doc srečna imena 2

4. In nato kliknite OK za izhod iz pogovornega okna, nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo na izbiro seznama podatkov, iz katerega želite izvleči imena, glejte sliko zaslona:

doc srečna imena 3

5. Kliknite OK in izkaže se drugo pozivno polje, izberite celico, kamor želite dati rezultat, glejte posnetek zaslona:

doc srečna imena 4

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

doc srečna imena 5


Izberite naključna imena za srečno risanje s programom Kutools za Excel

Morda sta zgornji dve metodi za večino izmed nas težki, če že imate Kutools za Excel, Z njegovim Razvrsti obseg naključno lahko naključno hitro izberete imena.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite seznam imen, ki ga želite naključno izbrati. Nato kliknite Kutools > Območje > Naključno razvrsti / izberi obseg, glej posnetek zaslona:

2. v Naključno razvrsti / izberi obseg v pogovornem oknu pod Izberite v zavihek vnesite številko, za katero želite izbrati imena Število celic za izbiro besedilno polje in nato izberite Izberite naključne celice v Izberite Vrsta razdelek, glej posnetek zaslona:

3. Nato kliknite Ok in vaše določeno število imen je bilo izbranih po potrebi, glejte posnetek zaslona:

doc srečna imena 8

Kliknite za prenos Kutools za Excel in brezplačno preskusno različico zdaj!


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Napaka:
#ŠT.!



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))))
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Mangipudi,
Ta formula dobro deluje v mojem Excelovem delovnem zvezku, katero različico Excela uporabljate?
Svojo težavo lahko podate tudi kot posnetek zaslona tukaj.
Ta komentar je moderator na spletnem mestu minimiziral
Imam isto napako, vendar se ne prikaže vedno.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL