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

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

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:

 

uwaga wstążka 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 dla Excela 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.


jako lista wszystkich kombinacji 1

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! 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 zainstalowany Kutools dla programu Excel, jego plik Wstaw losowe dane narzędzie może pomóc w natychmiastowym generowaniu liczb loterii w programie Excel.

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Bezpłatna wersja próbna 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 dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Zdobądź To Teraz


Demo: generuj numery loterii za pomocą Kutools for Excel


Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi dla programu Excel, które można bezpłatnie wypróbować bez ograniczeń przez 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Podobne artykuły:


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 (15)
Znamionowy 5 z 5 · 1 oceny
Ten komentarz został zminimalizowany przez moderatora na stronie
Proszę łatwo znaleźć oprogramowanie
Ten komentarz został zminimalizowany przez moderatora na stronie
Chciałbym wygrać numer szczęścia
Ten komentarz został zminimalizowany przez moderatora na stronie
: Chciałbym wypróbować twoje nowe programy, zobacz jak przepowiadają liczby
Ten komentarz został zminimalizowany przez moderatora na stronie
oblicz przypuszczenie następnego dnia dla loterii Kerala
Ten komentarz został zminimalizowany przez moderatora na stronie
hay, Santhanam czy wygrałeś z tym programem?
Ten komentarz został zminimalizowany przez moderatora na stronie
oblicz numer loterii następnego dnia dla loterii Kerala - Indie
Ten komentarz został zminimalizowany przez moderatora na stronie
Jaki jest cel LICZ.JEŻELI(B$1:B1,B1)-1 w formule w kroku B?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć hyungsup kim,
LICZ.JEŻELI(B$1:B1,B1)-1 zapobiegnie duplikatom w kolumnie B. Na przykład, jeśli B1 jest wartością unikalną, ta część zwróci 0, co nie wpłynie na wynik rankingu; jeśli B1 jest duplikatem, ta część nieznacznie zmieni wynik rankingu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Wypróbowałem sposób Vlookup, który tutaj pokazałeś, działa świetnie i łatwo jest wygenerować liczby dla zakresu od 1 do 49.

Ale myślałem o wyeliminowaniu niektórych liczb w grze, na przykład zamiast biegania liczb będę miał 25 liczb od 1 do 49. Jak będę musiał dostosować formułę Vlookup, aby działała?
Znamionowy 5 z 5
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Yogi, przepraszam, nie do końca rozumiem twoją prośbę. Co masz na myśli, mając 25 liczb od 1 do 49?
Ten komentarz został zminimalizowany przez moderatora na stronie
Tak 25 liczb od 1 do 49.
Próbowałem użyć tego samego wzoru, ale po wybraniu liczby większej niż 25 nie można wyświetlić następnej liczby w sekwencji i pojawia się błąd.
Znamionowy 5 z 5
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Amando za pomoc.
Ten komentarz został zminimalizowany przez moderatora na stronie
Plik nie działa z fromula, co jest nie tak

proszę dać mi znać

Kopiuję formułę, wszystko jest poprawne.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam,

Czy mógłbyś załączyć plik, nad którym pracujesz?

Amanda
Ten komentarz został zminimalizowany przez moderatora na stronie
system nie działa, co jest nie tak, wstawiłem wszystkie formuły
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