Як зробити щасливі імена малювання в 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. Після вставки коду натисніть інструменти > посилання у відкритому Microsoft Visual Basic для додатків вікно, а потім, у спливаючому Посилання - VBAProject діалогове вікно, поставте галочку Виконання сценаріїв Microsoft опція в Доступні посилання вікно списку, див. знімок екрана:

4. А потім клацніть OK , щоб вийти з діалогового вікна, а потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам про вибір списку даних, з якого потрібно витягти імена, див. знімок екрана:

5. Клацання OK , і з'явиться інше вікно запиту, виберіть клітинку, куди ви хочете помістити результат, див. знімок екрана:

6. Потім натисніть OK, і бажану кількість імен було створено випадково відразу, див. скріншот:

Виберіть випадкові імена для здійснення щасливого малювання за допомогою Kutools для Excel

Можливо, вище двох методів важко для більшості з нас, якщо у вас є Kutools для Excel, З його Сортувати діапазон випадковим чином Ви можете швидко довільно вибирати імена.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Виберіть список імен, який потрібно вибрати випадковим чином. Потім клацніть Кутулс > Діапазон > Сортування / вибір діапазону випадковим чином, див. скріншот:

2, в Сортування / вибір діапазону випадковим чином у діалоговому вікні під вибрати на вкладці введіть номер, для якого потрібно вибрати імена Кількість клітинок для виділення текстове поле, а потім виберіть Виділіть випадкові комірки в Виберіть тип розділ, див. знімок екрана:

3. Потім натисніть Ok , і вашу конкретну кількість імен було обрано, як вам потрібно, див. знімок екрана:

Натисніть, щоб завантажити Kutools для Excel та безкоштовну пробну версію зараз!

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...