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

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 alkalmazással


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:

doki szerencsés nevek 1

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:

doki szerencsés nevek 2

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:

doki szerencsés nevek 3

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:

doki szerencsés nevek 4

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:

doki szerencsés nevek 5


Válasszon véletlenszerű neveket a szerencsés sorsoláshoz a Kutools for Excel alkalmazással

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:

doki szerencsés nevek 8

Kattintson a Kutools for Excel és az ingyenes próbaverzió letöltéséhez!


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (3)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hiba:
# EGYEN!



képlet:
=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))))
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Mangipudi!
Ez a képlet jól működik az Excel-munkafüzetemben, melyik Excel verziót használja?
Itt képernyőképként is megadhatja problémáját.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanaz a hiba, de nem mindig jelenik meg.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi