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

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:

szczęśliwe nazwiska doc 1

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

Uwagi: W powyższym kodzie, B2 to komórka zawiera liczbę nazw, które chcesz wyodrębnić.

3. Po wstawieniu kodu kliknij Narzędzia > 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:

szczęśliwe nazwiska doc 2

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:

szczęśliwe nazwiska doc 3

5, Kliknij OK przycisk i pojawi się kolejne okno zachęty, wybierz komórkę, w której chcesz umieścić wynik, zobacz zrzut ekranu:

szczęśliwe nazwiska doc 4

6. Następnie kliknij OK, a żądana liczba nazw została utworzona losowo na raz, patrz zrzut ekranu:

szczęśliwe nazwiska doc 5


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 > Zakres > 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:

szczęśliwe nazwiska doc 8

Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (3)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
błąd:
#NUM!



Wzór:
=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))))
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj, Mangipudi,
Ta formuła działa dobrze w moim skoroszycie programu Excel, której wersji programu Excel używasz?
Możesz również podać swój problem jako zrzut ekranu tutaj.
Ten komentarz został zminimalizowany przez moderatora na stronie
Mam ten sam błąd, ale nie pokazuje się cały czas.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL