Jak generować numery loterii w programie Excel?
Czy kiedykolwiek myślałeś o generowaniu liczb loterii w Excelu lub samodzielnym tworzeniu generatora liczb loterii w Excelu? W tym artykule przedstawiam trzy metody łatwego wykonania tego zadania.
- Generuj numery loterii za pomocą funkcji programu Excel (5 kroki)
- Wygeneruj numery loterii za pomocą VBA Macro
- Generuj numery loterii za pomocą Kutools for Excel (2 kroki)
Generuj numery loterii za pomocą funkcji programu Excel
Ta metoda przeprowadzi Cię przez zastosowanie kilku funkcji programu Excel do generowania liczb loterii. Możesz wykonać następujące czynności:
1. W pustym arkuszu wpisz nagłówki kolumn w zakresie A1: C1, jak pokazano na poniższym zrzucie ekranu:
2. Wprowadź formuły w kolumnie A, kolumnie B i kolumnie C:
(1) W komórce A2 wprowadź formułę = LOS (), a następnie przeciągnij uchwyt Wypełnij do zakresu A2: A50.
(2) W komórce B2 wprowadź formułę =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, a następnie przeciągnij uchwyt wypełnienia do zakresu B2: B50. (W formule A2 to liczba losowa pozostała do bieżącej komórki, $ A $ 2: $ A $ 50 to wszystkie liczby losowe, które otrzymaliśmy z pierwszą formułą, B $ 1 to pierwsza komórka w kolumnie B, a B1 to komórka powyżej bieżącej komórka).
(3) W zakresie C2: C50 wprowadź numery sekwencyjne od 1 do 49.
Następnie otrzymasz tabelę, jak pokazano na lewym ekranie:
![]() |
Formuła jest zbyt skomplikowana, by ją zapamiętać? Zapisz formułę jako wpis Auto Text do ponownego użycia za pomocą jednego kliknięcia w przyszłości! Czytaj więcej ... Przetestuj za darmo |
3. Znajdź pusty zakres, wpisz numery sekwencyjne poziomo w rzędzie, jak pokazano poniżej:
4. Pod pierwszą liczbą sekwencyjną 1 wprowadź wzór = WYSZUKAJ.PIONOWO (G1, $ B 1 $: $ C $ 50,2, FALSE) do niego i przeciągnij uchwyt wypełnienia do wymaganego zakresu.
Uwagi: W tej formule G1 to komórka z pierwszą liczbą sekwencyjną 1, $ B $ 1: $ C $ 50 to kolumna Unique Rank i kolumna Ball Number, 2 oznacza znalezienie wartości w drugiej kolumnie zakresu $ B $ 1: $ C $ 50 .
Następnie otrzymasz numery loterii, jak pokazano poniżej:
5. To jest opcjonalne. Aby zapobiec automatycznej zmianie numerów loterii po odświeżeniu bieżącego arkusza roboczego, możesz kliknąć ikonę Formuła > Opcje obliczeniowe > Instrukcja obsługi.
Z łatwością wymień wszystkie kombinacje kilku serii danych w programie Excel
Kutools for Excel'S Wyświetl wszystkie kombinacje Narzędzie jest przeznaczone do generowania wszystkich możliwych kombinacji z kilku podanych serii danych i umieszczania tych kombinacji w kolumnie, jak pokazano poniżej.

Kutools for Excel - Doładuj Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się pełną funkcjonalnością 30-dniowa DARMOWA wersja próbna bez karty kredytowej! Zdobądź To Teraz
Wygeneruj numery loterii za pomocą VBA Macro
Ta metoda poprowadzi Cię do zastosowania makra VBA do generowania liczb loterii w programie Excel. Wykonaj następujące czynności:
1. naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.
2, Kliknij wstawka > Moduł aby otworzyć nowe okno modułu i wklej do niego następujący kod VBA:
VBA: Generator liczb loterii w programie Excel
Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub
3, wciśnij F5 lub kliknij run przycisk, aby uruchomić to makro VBA.
4. Teraz w wyskakującym oknie dialogowym określ komórkę, w której mają być wyświetlane numery loterii, i kliknij OK przycisk.
Następnie zobaczysz 6 unikalnych numerów loterii jest generowanych i wyświetlanych w określonych komórkach.
Generuj numery loterii za pomocą Kutools for Excel
Jeśli masz Kutools for Excel zainstalowany, jego Wstaw losowe dane narzędzie może pomóc w natychmiastowym generowaniu liczb loterii w programie Excel.
Kutools for Excel - Zawiera ponad 300 niezbędnych narzędzi dla programu Excel. Ciesz się pełną funkcjonalnością 30-dniowa DARMOWA wersja próbna bez karty kredytowej! Pobierz teraz!
1. Wybierz 6 sąsiednich komórek, na przykład A1: F1, a następnie kliknij Kutools > wstawka > Wstaw losowe dane.
2. Teraz pojawia się okno dialogowe Wstaw losowe dane. Przejdź do Liczba całkowita tab, wpisz 1 in Od pole, wpisz 49 in Do zaznacz pole Unikalne wartości opcję i kliknij przycisk OK przycisk. Teraz zobaczysz 6 unikalnych numerów loterii, które są generowane i natychmiast wyświetlane w wybranych komórkach.
Kutools for Excel - Doładuj Excel za pomocą ponad 300 niezbędnych narzędzi. Ciesz się pełną funkcjonalnością 30-dniowa DARMOWA wersja próbna bez karty kredytowej! Zdobądź To Teraz
Demo: generuj numery loterii za pomocą Kutools for Excel
Podobne artykuły:
Losowo wybierz komórki na podstawie kryteriów w programie Excel
Losowo dodaj kolor tła / wypełnienia dla komórek w programie Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami 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!














