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:
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:
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:
5. Kliknite OK in izkaže se drugo pozivno polje, izberite celico, kamor želite dati rezultat, glejte posnetek zaslona:
6. Nato kliknite OKin želeno število imen je bilo ustvarjenih naključno hkrati, glejte posnetek zaslona:
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:
Kliknite za prenos Kutools za Excel in brezplačno preskusno različico zdaj!
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!
