Sut i wneud enwau tynnu lwcus yn Excel?
Yn eich gwaith beunyddiol, weithiau, mae angen i chi ddewis rhai gweithwyr ar hap o enwau rhestr hir fel yr enwau lwcus. Yn Excel, sut allech chi ddewis rhai enwau ar hap ar gyfer gwneud tynnu lwcus? Yr erthygl hon, byddaf yn siarad am rai dulliau defnyddiol i ddelio â'r swydd hon yn Excel.
Tynnwch enwau ar hap ar gyfer gwneud llun lwcus gyda fformiwla
Tynnwch enwau ar hap ar gyfer gwneud llun lwcus gyda chod VBA
Dewiswch enwau ar hap ar gyfer tynnu lwcus Kutools for Excel
Tynnwch enwau ar hap ar gyfer gwneud llun lwcus gyda fformiwla
Er enghraifft, rwyf am dynnu unrhyw 3 enw o'r rhestr enwau, gall y fformiwla hir ganlynol eich helpu chi, gwnewch fel hyn:
Rhowch y fformiwla hon mewn cell wag lle rydych chi am roi'r canlyniad: =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)))) , ac yna llusgwch y ddolen llenwi i lawr i gelloedd yn ôl yr angen, gweler y screenshot:
Nodiadau:
1. Yn y fformiwla uchod: A2: A16 yw'r rhestr enwau rydych chi am dynnu ohoni ar hap, B2 yw'r rhif gofynnol rydych chi am dynnu enwau arno, C2 yw'r gell lle i fynd i mewn i'r fformiwla, a C1 yw'r gell uwchben y gell fformiwla.
2. Gallwch bwyso F9 allwedd i gael grŵp arall o enwau newydd ar hap.
Tynnwch enwau ar hap ar gyfer gwneud llun lwcus gyda chod VBA
Yma, gall cod VBA hefyd eich helpu i orffen y dasg hon, gwnewch fel hyn:
1. Daliwch i lawr y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Tynnu enwau ar hap o restr:
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
Nodyn: Yn y cod uchod, B2 ydy'r gell yn cynnwys nifer yr enwau rydych chi am eu tynnu.
3. Ar ôl mewnosod y cod, yna cliciwch offer > cyfeiriadau yn yr agored Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, ac yna, yn y popped allan Cyfeiriadau - VBAProject blwch deialog, gwirio Amser Rhedeg Sgriptio Microsoft opsiwn yn y Cyfeiriadau sydd ar Gael blwch rhestr, gweler y screenshot:
4. Ac yna cliciwch OK botwm i adael y blwch deialog, yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa rhag dewis y rhestr ddata rydych chi am dynnu enwau ohoni, gweler y screenshot:
5. Cliciwch OK botwm, ac mae blwch prydlon arall wedi'i popio allan, dewiswch gell lle rydych chi am roi'r canlyniad, gweler y screenshot:
6. Yna cliciwch OK, ac mae'r nifer ddymunol o enwau wedi'u creu ar hap ar unwaith, gweler y screenshot:
Dewiswch enwau ar hap ar gyfer tynnu lwcus Kutools for Excel
Gall fod uwchlaw dau ddull yn anodd i'r mwyafrif ohonom, yma, os oes gennych chi Kutools for Excel, Gyda'i Trefnu Ystod ar Hap nodwedd, gallwch ddewis enwau ar hap yn gyflym.
| Kutools for Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. |
Ar ôl gosod Kutools for Excel, gwnewch fel hyn:
1. Dewiswch y rhestr enwau rydych chi am ei dewis ar hap. Yna cliciwch Kutools > Ystod > Trefnu / Dewis Ystod ar Hap, gweler y screenshot:
2. Yn y Trefnu / Dewis Ystod ar Hap blwch deialog, o dan y dewiswch tab, nodwch y rhif rydych chi am ddewis enwau yn y Nifer y celloedd i'w dewis blwch testun, ac yna dewis Dewiswch gelloedd ar hap yn y Dewiswch Math o adran, gweler y screenshot:
3. Yna cliciwch Ok botwm, ac mae eich nifer benodol o enwau wedi'u dewis yn ôl yr angen, gweler y screenshot:
Cliciwch i Lawrlwytho Kutools for Excel a threial am ddim Nawr!
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
