Conas ainmneacha tarraingthe ádh a dhéanamh in Excel?
I do chuid oibre laethúla, uaireanta, ní mór duit roinnt fostaithe a roghnú go randamach ó liosta fada ainmneacha mar na hainmneacha t-ádh. In Excel, conas a d’fhéadfá roinnt ainmneacha a roghnú go randamach chun tarraingt ádh a dhéanamh? An t-alt seo, labhróidh mé faoi roinnt modhanna úsáideacha chun déileáil leis an bpost seo in Excel.
Sliocht ainmneacha randamacha chun tarraingt ádh a dhéanamh leis an bhfoirmle
Sliocht ainmneacha randamacha chun tarraingt ádh a dhéanamh le cód VBA
Roghnaigh ainmneacha randamacha chun tarraingt ádh a dhéanamh le Kutools le haghaidh Excel
Sliocht ainmneacha randamacha chun tarraingt ádh a dhéanamh leis an bhfoirmle
Mar shampla, ba mhaith liom 3 ainm ar bith a bhaint den liosta ainmneacha, is féidir leis an bhfoirmle fhada seo a leanas cabhrú leat, déan mar seo le do thoil:
Iontráil an fhoirmle seo i gcill bhán inar mian leat an toradh a chur: =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)))) , agus ansin tarraing an láimhseáil líonta síos go cealla de réir mar is gá duit, féach an pictiúr:
Nótaí:
1. San fhoirmle thuas: A2: A16 an liosta ainmneacha is mian leat a bhaint as go randamach, B2 an uimhir riachtanach a theastaíonn uait ainmneacha a bhaint as, C2 an bhfuil an chillín le dul isteach san fhoirmle, agus C1 an bhfuil an chill os cionn na cille foirmle.
2. Is féidir leat brú F9 eochair chun grúpa eile ainmneacha nua a fháil go randamach.
Sliocht ainmneacha randamacha chun tarraingt ádh a dhéanamh le cód VBA
Anseo, is féidir le cód VBA cabhrú leat an tasc seo a chríochnú, déan mar seo le do thoil:
1. Coinnigh síos an Alt + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sliocht ainmneacha randamacha ó liosta:
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
nótaí: Sa chód thuas, B2 an bhfuil an líon ainmneacha a theastaíonn uait a bhaint as an gcill.
3. Tar éis duit an cód a chur isteach, ansin cliceáil uirlisí > tagairtí san oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, agus ansin, sa popped amach Tagairtí - VBAProject bosca dialóige, seiceáil Microsoft Scripting Runtime rogha sa Tagairtí atá ar Fáil bosca liosta, féach an scáileán:
4. Agus ansin cliceáil OK cnaipe chun an bosca dialóige a fhágáil, ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an liosta sonraí a theastaíonn uait ainmneacha a bhaint as a roghnú, féach an scáileán:
5. Cliceáil OK cnaipe, agus bosca pras eile popped amach, roghnaigh cill le do thoil más mian leat a chur ar an toradh, féach screenshot:
6. Ansin cliceáil OK, agus cruthaíodh an líon ainmneacha atá ag teastáil go randamach ag an am céanna, féach an scáileán:
Roghnaigh ainmneacha randamacha chun tarraingt ádh a dhéanamh le Kutools le haghaidh Excel
D’fhéadfadh sé a bheith os cionn dhá mhodh atá deacair don chuid is mó dínn, anseo, má tá Kutools le haghaidh Excel, Lena Raon Sórtáil go randamach gné, is féidir leat ainmneacha a roghnú go randamach go tapa.
| Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. |
Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:
1. Roghnaigh an liosta ainmneacha is mian leat a roghnú go randamach. Ansin cliceáil Kutools > Raon > Sórtáil / Roghnaigh Raon go randamach, féach ar an scáileán:
2. Sa an Sórtáil / Roghnaigh Raon go randamach bosca dialóige, faoin Roghnaigh cluaisín, cuir isteach an uimhir a theastaíonn uait ainmneacha a roghnú isteach sa Líon na gcealla le roghnú bosca téacs, agus ansin roghnaigh Roghnaigh cealla randamacha sa Roghnaigh Cineál alt, féach an pictiúr:
3. Ansin cliceáil Ok cnaipe, agus roghnaíodh d’uimhir shonrach ainmneacha de réir mar is gá duit, féach an scáileán:
Cliceáil chun Íoslódáil Kutools le haghaidh Excel agus triail saor in aisce Anois!
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
