Jak tworzyć szczęśliwe nazwy losowań w programie Excel?
W swojej codziennej pracy czasami musisz losowo wybrać niektórych pracowników z długiej listy jako szczęśliwe nazwiska. W programie Excel, jak możesz losowo wybrać nazwy do szczęśliwego losowania? W tym artykule omówię kilka przydatnych metod radzenia sobie z tą pracą w programie Excel.
Wyodrębnij losowe nazwy do szczęśliwego losowania ze wzorem
Wyodrębnij losowe nazwy do szczęśliwego losowania za pomocą kodu VBA
Wybierz losowe nazwy do szczęśliwego losowania za pomocą Kutools for Excel
Wyodrębnij losowe nazwy do szczęśliwego losowania ze wzorem
Na przykład chcę wyodrębnić 3 nazwy z listy nazwisk, poniższa długa formuła może ci pomóc, wykonaj następujące czynności:
Wprowadź tę formułę do pustej komórki, w której chcesz umieścić wynik: =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)))) , a następnie przeciągnij uchwyt wypełniania w dół do komórek, jak potrzebujesz, zobacz zrzut ekranu:
Uwagi:
1. W powyższym wzorze: A2: A16 to lista nazw, z której chcesz wyodrębnić losowo, B2 to wymagana liczba, którą chcesz wyodrębnić nazwy, C2 to komórka, w której należy wprowadzić formułę, a C1 to komórka powyżej komórki z formułą.
2. Możesz nacisnąć F9 klucz, aby losowo uzyskać kolejną grupę nowych nazw.
Wyodrębnij losowe nazwy do szczęśliwego losowania za pomocą kodu VBA
Tutaj kod VBA również może pomóc w zakończeniu tego zadania, wykonaj następujące czynności:
1. Przytrzymaj Alt + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Wyodrębnij losowe nazwy z listy:
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
Note: W powyższym kodzie, B2 to komórka zawiera liczbę nazw, które chcesz wyodrębnić.
3. Po wstawieniu kodu kliknij Tools > Referencje w otwartym Microsoft Visual Basic for Applications okno, a następnie w wyskoczył Referencje - VBAProject okno dialogowe, zaznacz Środowisko wykonawcze skryptów firmy Microsoft Microsoft opcja w Dostępne referencje pole listy, zobacz zrzut ekranu:
4. A następnie kliknij OK , aby zamknąć okno dialogowe, a następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okno zachęty przypominające o wybraniu listy danych, z której chcesz wyodrębnić nazwy, patrz zrzut ekranu:
5. Kliknij OK przycisk i pojawi się kolejne okno zachęty, wybierz komórkę, w której chcesz umieścić wynik, zobacz zrzut ekranu:
6. Następnie kliknij OK, a żądana liczba nazw została utworzona losowo na raz, patrz zrzut ekranu:
Wybierz losowe nazwy do szczęśliwego losowania za pomocą Kutools for Excel
Być może powyżej dwóch metod jest trudnych dla większości z nas, jeśli masz Kutools dla programu Excel, Z siedzibą w Sortuj zakres losowo funkcję, możesz szybko wybierać nazwy losowo.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excel, zrób tak:
1. Wybierz listę nazw, które chcesz wybrać losowo. Następnie kliknij Kutools > łodzie > Sortuj / wybierz zakres losowozobacz zrzut ekranu:
2, w Sortuj / wybierz zakres losowo okno dialogowe w obszarze Wybierz wprowadź numer, który chcesz wybrać nazwy do Liczba komórek do wybrania pole tekstowe, a następnie wybierz Wybierz losowe komórki Wybierz typ sekcja, patrz zrzut ekranu:
3. Następnie kliknij Ok przycisk, a twoja konkretna liczba nazw została wybrana zgodnie z potrzebami, patrz zrzut ekranu:
Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!