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

Wie mache ich glückliche Zeichnungsnamen in Excel?

In Ihrer täglichen Arbeit müssen Sie manchmal einige Mitarbeiter zufällig aus einer langen Liste als Glücksnamen auswählen. Wie können Sie in Excel zufällig einige Namen auswählen, um Glück zu ziehen? In diesem Artikel werde ich über einige nützliche Methoden sprechen, um diesen Job in Excel zu bearbeiten.

Extrahieren Sie zufällige Namen, um mit der Formel Glück zu ziehen

Extrahieren Sie zufällige Namen, um mit VBA-Code Glück zu ziehen

Wählen Sie zufällige Namen aus, um mit Kutools for Excel Glück zu haben


Extrahieren Sie zufällige Namen, um mit der Formel Glück zu ziehen

Zum Beispiel möchte ich 3 beliebige Namen aus der Namensliste extrahieren. Die folgende lange Formel kann Ihnen dabei helfen. Bitte tun Sie Folgendes:

Geben Sie diese Formel in eine leere Zelle ein, in die Sie das Ergebnis einfügen möchten: =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)))) und ziehen Sie dann den Füllgriff nach Bedarf auf die Zellen, siehe Screenshot:

doc glückliche Namen 1

Hinweise:

1. In der obigen Formel: A2: A16 ist die Namensliste, aus der Sie zufällig extrahieren möchten. B2 ist die erforderliche Nummer, mit der Sie Namen extrahieren möchten. C2 ist die Zelle, in die die Formel eingegeben werden soll, und C1 ist die Zelle über der Formelzelle.

2. Sie können drücken F9 Taste, um zufällig eine andere Gruppe neuer Namen zu erhalten.


Extrahieren Sie zufällige Namen, um mit VBA-Code Glück zu ziehen

Hier kann Ihnen auch ein VBA-Code helfen, diese Aufgabe abzuschließen. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt Alt + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Extrahieren Sie zufällige Namen aus einer Liste:

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

Hinweis: Im obigen Code, B2 ist die Zelle enthält die Anzahl der Namen, die Sie extrahieren möchten.

3. Klicken Sie nach dem Einfügen des Codes auf Tools > Referenzen im geöffneten Microsoft Visual Basic für Applikationen Fenster, und dann in der herausgesprungen Referenzen - VBAProject Dialogfeld überprüfen Microsoft Scripting-Laufzeit Option in der Verfügbare Referenzen Listenfeld, siehe Screenshot:

doc glückliche Namen 2

4. Und dann klick OK Klicken Sie auf die Schaltfläche, um das Dialogfeld zu schließen, und drücken Sie dann F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, die Datenliste auszuwählen, aus der Sie Namen extrahieren möchten. Siehe Screenshot:

doc glückliche Namen 3

5. Klicken Sie OK Klicken Sie auf eine Schaltfläche, in der ein weiteres Eingabeaufforderungsfeld angezeigt wird. Wählen Sie eine Zelle aus, in die Sie das Ergebnis einfügen möchten. Siehe Screenshot:

doc glückliche Namen 4

6. Dann klick OKund die gewünschte Anzahl von Namen wurde zufällig auf einmal erstellt, siehe Screenshot:

doc glückliche Namen 5


Wählen Sie zufällige Namen aus, um mit Kutools for Excel Glück zu haben

Möglicherweise sind zwei Methoden für die meisten von uns hier schwierig, wenn Sie haben Kutools for ExcelMit seinen Sortierbereich zufällig Mit dieser Funktion können Sie Namen schnell und zufällig auswählen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. 

Nach der Installation Kutools for ExcelBitte machen Sie Folgendes:

1. Wählen Sie die Namensliste aus, die Sie zufällig auswählen möchten. Dann klick Kutoolen > Abdeckung > Bereich zufällig sortieren / auswählen, siehe Screenshot:

2. In dem Bereich zufällig sortieren / auswählen Dialogfeld unter Auswählen Geben Sie auf der Registerkarte die Nummer ein, für die Sie Namen auswählen möchten Anzahl der auszuwählenden Zellen Textfeld, und wählen Sie dann Wähle zufällige Zellen aus der Typ wählen Abschnitt, siehe Screenshot:

3. Dann klick Ok Klicken Sie auf die Schaltfläche, und Ihre spezifische Anzahl von Namen wurde nach Bedarf ausgewählt. Siehe Screenshot:

doc glückliche Namen 8

Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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!
officetab unten
Kommentare (3)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Fehler:
#NUM!



Formel:
=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))))
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Mangipudi,
Diese Formel funktioniert gut in meiner Excel-Arbeitsmappe, welche Excel-Version verwenden Sie?
Sie können Ihr Problem auch hier als Screenshot angeben.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe den gleichen Fehler, aber er wird nicht immer angezeigt.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL