Hogyan készítsünk szerencsés sorsolási neveket az Excelben?
A mindennapi munkában néha véletlenszerűen kell kiválasztania néhány alkalmazottat a hosszú listanevek közül, mint szerencsés neveket. Az Excelben hogyan lehetne véletlenszerűen kiválasztani néhány nevet a szerencsés sorsoláshoz? Ebben a cikkben néhány hasznos módszerről fogok beszélni ennek a feladatnak az Excel kezelésében.
Kivonat véletlenszerű neveket a szerencsés sorsoláshoz képlettel
Kivonat véletlenszerű neveket a szerencsés sorsoláshoz VBA kóddal
Válasszon véletlenszerű neveket a szerencsés sorsoláshoz a Kutools for Excel segítségével
Kivonat véletlenszerű neveket a szerencsés sorsoláshoz képlettel
Például ki szeretnék vonni bármely 3 nevet a névlistából, a következő hosszú képlet segíthet, kérjük, tegye a következőket:
Írja be ezt a képletet egy üres cellába, ahová be szeretné helyezni az eredményt: =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)))) , majd húzza le a kitöltő fogantyút a cellákra, ha szükséges, lásd a képernyőképet:
Megjegyzések:
1. A fenti képletben: A2: A16 az a névlista, amelyből véletlenszerűen ki akarsz vonni, B2 a szükséges szám, amelyet ki akarsz vonni a nevekből, C2 az a cella, ahova be kell írni a képletet, és C1 a képletcella fölötti cella.
2. Megnyomhatja F9 gombot, hogy véletlenszerűen kapjon egy másik csoportot.
Kivonat véletlenszerű neveket a szerencsés sorsoláshoz VBA kóddal
Itt egy VBA kód is segíthet a feladat végrehajtásában, kérjük, tegye a következőket:
1. Tartsa lenyomva a Alt + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Véletlen nevek kivonása egy listából:
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
Megjegyzések: A fenti kódban B2 a cella tartalmazza a kivonni kívánt nevek számát.
3. A kód beillesztése után kattintson a gombra Eszközök > Referenciák a nyitottban Microsoft Visual Basic for Applications ablakot, majd beugrott Referenciák - VBAProject párbeszédpanelen ellenőrizze Microsoft Scripting Runtime lehetőség a Elérhető referenciák lista mező, lásd a képernyőképet:
4. Kattintson a gombra OK gombot a párbeszédpanelből való kilépéshez, majd nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy kiválasztja az adatlistát, amelyből kivonni szeretné a neveket, lásd a képernyőképet:
5. Kattints OK gombra, és egy újabb prompt doboz jelenik meg, kérjük, válasszon egy cellát, ahová az eredményt szeretné felvenni, lásd a képernyőképet:
6. Ezután kattintson OK, és a kívánt számú név egyszerre lett véletlenszerűen létrehozva, lásd a képernyőképet:
Válasszon véletlenszerű neveket a szerencsés sorsoláshoz a Kutools for Excel segítségével
Két módszer felett lehet, a legtöbbünk számára nehéz, itt van, ha van Kutools az Excel számára, Annak Rendezés tartomány véletlenszerűen funkcióval gyorsan kiválaszthatja a neveket véletlenszerűen.
Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. |
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Válassza ki a véletlenszerűen kiválasztani kívánt névlistát. Ezután kattintson a gombra Kutools > Választék > Rendezés / Választási tartomány véletlenszerűen, lásd a képernyőképet:
2. Az Rendezés / Választási tartomány véletlenszerűen párbeszédpanel alatt választ lapon írja be a neveket a nevek kiválasztásához Kiválasztandó cellák száma szövegmezőbe, majd válassza a lehetőséget Válasszon véletlenszerű cellákat a Válasszuk a Típus szakasz, lásd a képernyőképet:
3. Ezután kattintson Ok gombra, és az Ön nevének számát szükség szerint kiválasztotta, lásd a képernyőképet:
Kattintson a Kutools for Excel letöltéséhez és az ingyenes próbaverzióhoz most!
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!