Wie generiere ich Lotterienummern in Excel?
Haben Sie jemals daran gedacht, Lotterienummern in Excel zu generieren oder selbst einen Lotterienummerngenerator in Excel zu erstellen? In diesem Artikel stelle ich Ihnen drei Methoden zur Verfügung, mit denen Sie dies problemlos erledigen können.
- Generieren Sie Lotterienummern mit Excel-Funktionen (5 Schritte)
- Generieren Sie Lotterienummern mit VBA Macro
- Generieren Sie Lotterienummern mit Kutools for Excel (2 Schritte)
Generieren Sie Lotterienummern mit Excel-Funktionen
Diese Methode führt Sie durch die Anwendung mehrerer Excel-Funktionen zum Generieren von Lotterienummern. Und Sie können wie folgt vorgehen:
1. Geben Sie in ein leeres Arbeitsblatt Spaltenüberschriften in Bereich A1: C1 ein (siehe Abbildung unten):
2. Geben Sie Formeln in Spalte A, Spalte B und Spalte C ein:
(1) Geben Sie in Zelle A2 die Formel ein = RAND ()Ziehen Sie dann den Füllgriff in den Bereich A2: A50.
(2) Geben Sie in Zelle B2 die Formel ein =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1und ziehen Sie dann den Füllgriff in den Bereich B2: B50. (In der Formel ist A2 die Zufallszahl, die der aktuellen Zelle übrig bleibt, $ A $ 2: $ A $ 50 sind alle Zufallszahlen, die wir mit der ersten Formel erhalten haben, B $ 1 ist die erste Zelle in Spalte B und B1 ist die Zelle über der aktuellen Zelle).
(3) Geben Sie im Bereich C2: C50 Sequenznummern von 1 bis 49 ein.
Dann erhalten Sie eine Tabelle, wie im linken Screenshot gezeigt:
Formel ist zu kompliziert, um sich zu erinnern? Speichern Sie die Formel als automatischen Texteintrag für die zukünftige Wiederverwendung mit nur einem Klick! Lese mehr ... Kostenlose Testversion |
3. Suchen Sie einen leeren Bereich und geben Sie die Sequenznummern horizontal in einer Reihe ein (siehe Abbildung unten):
4. Geben Sie unterhalb der ersten Sequenznummer 1 die Formel ein = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, FALSE) Ziehen Sie den Füllgriff in den gewünschten Bereich.
Note: In dieser Formel ist G1 die Zelle mit der ersten Sequenznummer 1, $ B $ 1: $ C $ 50 sind die Spalte für den eindeutigen Rang und die Spalte für die Ballnummer. 2 bedeutet, dass Werte in der zweiten Spalte des Bereichs $ B $ 1: $ C $ 50 gefunden werden .
Dann erhalten Sie die Lotterienummern wie im folgenden Screenshot gezeigt:
5. Es ist optional. Um zu verhindern, dass sich die Lotterienummern beim Aktualisieren des aktuellen Arbeitsblatts automatisch ändern, können Sie auf klicken Formel > Berechnungsoptionen > Manuell.
Listen Sie einfach alle Kombinationen mehrerer Datenreihen in Excel auf
Kutools für Excel Alle Kombinationen auflisten Das Dienstprogramm dient dazu, alle möglichen Kombinationen aus mehreren angegebenen Datenreihen zu verallgemeinern und diese Kombinationen in einer Spalte wie im folgenden Screenshot aufzulisten.
Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt
Generieren Sie Lotterienummern mit VBA Macro
Diese Methode führt Sie zum Anwenden eines VBA-Makros zum Generieren von Lotterienummern in Excel. Bitte gehen Sie wie folgt vor:
1. Drücken Sie Andere + F11 Tasten zum Öffnen des Fensters Microsoft Visual Basic für Applikationen.
2. Klicken Sie Insert > Modul So öffnen Sie ein neues Modulfenster und fügen folgenden VBA-Code ein:
VBA: Lotterienummerngenerator in 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. Drücken Sie die F5 Taste oder klicken Sie auf Führen Sie Schaltfläche zum Ausführen dieses VBA-Makros.
4. Geben Sie nun im Popup-Dialogfeld eine Zelle für die Ausgabe der Lotterienummern an und klicken Sie auf OK .
Dann sehen Sie, dass 6 eindeutige Lotterienummern generiert und in den angegebenen Zellen angezeigt werden.
Generieren Sie Lotterienummern mit Kutools for Excel
Wenn Sie Kutools für Excel installiert haben, ist es Zufällige Daten einfügen Mit dem Dienstprogramm können Sie Lotterienummern in Excel gleichzeitig generieren.
Kutools for Excel - Vollgepackt mit über 300 wichtigen Tools für Excel. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Jetzt herunterladen!
1. Wählen Sie 6 benachbarte Zellen aus, z. B. A1: F1, und klicken Sie dann auf Kutoolen > Insert > Zufällige Daten einfügen.
2. Nun erscheint das Dialogfeld Zufällige Daten einfügen. Gehe zum ganze Zahl Registerkarte, Typ 1 in Aus Box, geben Sie ein 49 in Zu Aktivieren Sie das Kontrollkästchen Einzigartige Werte Option und klicken Sie auf OK Taste. Jetzt werden 6 eindeutige Lotterienummern generiert und sofort in den ausgewählten Zellen angezeigt.
Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt
Demo: Generieren Sie Lotterienummern mit Kutools for Excel
In Verbindung stehende Artikel:
Wählen Sie Zellen nach dem Zufallsprinzip anhand von Kriterien in Excel aus
Fügen Sie zufällig Hintergrund- / Füllfarben für Zellen in Excel hinzu
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!