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:
Anmerkungen:
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
Note: 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 > Bibliographie 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:
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:
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:
6. Dann klick OKund die gewünschte Anzahl von Namen wurde zufällig auf einmal erstellt, siehe Screenshot:
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:
Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!
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!