Як зробити щасливі імена малювання в Excel?
Іноді під час щоденної роботи вам потрібно випадковим чином вибирати деяких співробітників із довгих списків як щасливі імена. Як в Excel можна випадковим чином вибрати деякі імена для того, щоб зробити щасливу розіграш? У цій статті я розповім про деякі корисні методи боротьби з цією роботою в Excel.
Вийміть випадкові імена для того, щоб зробити щасливий малюнок за допомогою формули
Вийміть випадкові імена для здійснення щасливого розіграшу за допомогою коду VBA
Виберіть випадкові імена для розіграшу за допомогою Kutools для Excel
Вийміть випадкові імена для того, щоб зробити щасливий малюнок за допомогою формули
Наприклад, я хочу вилучити будь-які 3 імена зі списку імен, наступна довга формула може вам допомогти, будь ласка, зробіть так:
Введіть цю формулу в порожню комірку, куди ви хочете помістити результат: =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)))) , а потім перетягніть маркер заповнення вниз до комірок, як вам потрібно, див. знімок екрана:
Примітки:
1. У наведеній вище формулі: A2: A16 - це список імен, який ви хочете добути випадковим чином, B2 - необхідне число, яке потрібно витягти, C2 - клітинка, куди потрібно ввести формулу, і C1 - це клітина над коміркою формули.
2. Можна натиснути F9 клавішу, щоб випадково отримати іншу групу нових імен.
Вийміть випадкові імена для здійснення щасливого розіграшу за допомогою коду VBA
Тут код VBA також може допомогти вам виконати це завдання, будь ласка, виконайте наступне:
1. Утримуйте клавішу Alt + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код VBA: Витяг випадкових імен зі списку:
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
примітки: У наведеному вище коді, B2 - комірка містить кількість імен, які потрібно витягти.
3. Після вставки коду натисніть Tools > посилання у відкритому Microsoft Visual Basic для додатків вікно, а потім, у спливаючому Посилання - VBAProject діалогове вікно, поставте галочку Виконання сценаріїв Microsoft опція в Доступні посилання вікно списку, див. знімок екрана:
4. А потім клацніть OK , щоб вийти з діалогового вікна, а потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам про вибір списку даних, з якого потрібно витягти імена, див. знімок екрана:
5. Клацання OK , і з'явиться інше вікно запиту, виберіть клітинку, куди ви хочете помістити результат, див. знімок екрана:
6. Потім натисніть OK, і бажану кількість імен було створено випадково відразу, див. скріншот:
Виберіть випадкові імена для розіграшу за допомогою Kutools для Excel
Можливо, вище двох методів важко для більшості з нас, якщо у вас є Kutools для Excel, З його Сортувати діапазон випадковим чином Ви можете швидко довільно вибирати імена.
| Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, зробіть так:
1. Виберіть список імен, який потрібно вибрати випадковим чином. Потім клацніть Кутулс > Діапазон > Сортування / вибір діапазону випадковим чином, див. скріншот:
2, в Сортування / вибір діапазону випадковим чином у діалоговому вікні під Select на вкладці введіть номер, для якого потрібно вибрати імена Кількість клітинок для виділення текстове поле, а потім виберіть Виділіть випадкові комірки в Виберіть тип розділ, див. знімок екрана:
3. Потім натисніть Ok , і вашу конкретну кількість імен було обрано, як вам потрібно, див. знімок екрана:
Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
