Как сгенерировать номера лотереи в Excel?
Вы когда-нибудь думали о создании номеров лотереи в Excel или самостоятельно создать генератор номеров лотереи в Excel? В этой статье я предлагаю вам три способа сделать это легко.
- Создавайте номера лотереи с помощью функций Excel (5 ступени)
- Создавайте номера лотереи с помощью макроса VBA
- Создание номеров лотереи с помощью Kutools for Excel (2 ступени)
Создавайте номера лотереи с помощью функций Excel
Этот метод поможет вам применить несколько функций Excel для генерации номеров лотереи. А сделать можно так:
1. На пустом листе введите заголовки столбцов в диапазоне A1: C1, как показано ниже:
2. Введите формулы в столбец A, столбец B и столбец C:
(1) В ячейке A2 введите формулу = СЛЧИС (), а затем перетащите маркер заливки в диапазон A2: A50.
(2) В ячейке B2 введите формулу =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, а затем перетащите маркер заливки в диапазон B2: B50. (В формуле A2 - это случайное число, оставшееся до текущей ячейки, $ A $ 2: $ A $ 50 - это все случайные числа, полученные с помощью первой формулы, B $ 1 - первая ячейка в столбце B, а B1 - это ячейка над текущей. ячейка).
(3) В диапазоне C2: C50 введите порядковые номера от 1 до 49.
Тогда вы получите таблицу, как показано на скриншоте слева:
Формула слишком сложна для запоминания? Сохраните формулу как запись Auto Text для повторного использования одним щелчком мыши в будущем! Подробнее ... Бесплатная пробная версия |
3. Найдите пустой диапазон, введите порядковые номера по горизонтали в строке, как показано ниже:
4. Под первым порядковым номером 1 введите формулу = ВПР (G1; $ B $ 1: $ C $ 50,2; FALSE) в него и перетащите маркер заполнения в нужный диапазон.
Внимание: В этой формуле G1 - это ячейка с первым порядковым номером 1, $ B $ 1: $ C $ 50 - столбец Уникальный ранг и столбец Номер шара, 2 означает поиск значений во втором столбце диапазона $ B $ 1: $ C $ 50 .
Затем вы получите номера лотереи, как показано на скриншоте ниже:
5. Это необязательно. Чтобы номера лотереи не менялись автоматически при обновлении текущего листа, вы можете нажать кнопку Формула > Варианты расчета > Ручная.
Легко составить список всех комбинаций нескольких серий данных в Excel
Kutools для Excel Список всех комбинаций Утилита предназначена для обобщения всех возможных комбинаций из нескольких заданных серий данных и перечисления этих комбинаций в столбце, как показано на скриншоте ниже.
Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now
Создавайте номера лотереи с помощью макроса VBA
Этот метод поможет вам применить макрос VBA для создания номеров лотереи в Excel. Пожалуйста, сделайте следующее:
1, нажмите другой + F11 клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модули чтобы открыть новое окно модуля, и вставьте в него следующий код VBA:
VBA: генератор номеров лотереи в 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, нажмите F5 ключ или щелкните Run кнопку, чтобы запустить этот макрос VBA.
4. Теперь во всплывающем диалоговом окне укажите ячейку для вывода номеров лотереи и щелкните значок OK .
Затем вы увидите, что 6 уникальных номеров лотереи генерируются и отображаются в указанных ячейках.
Создание номеров лотереи с помощью Kutools for Excel
Если у вас установлен Kutools for Excel, его Вставить случайные данные Утилита может помочь вам сразу сгенерировать номера лотереи в Excel.
Kutools for Excel - Содержит более 300 основных инструментов для Excel. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Скачать сейчас!
1. Выберите 6 смежных ячеек, например A1: F1, а затем щелкните значок Кутулс > Вставить > Вставить случайные данные.
2. Появится диалоговое окно «Вставить случайные данные». Перейти к Целое вкладка, тип 1 in от поле, введите 49 in к поле, отметьте Уникальные ценности и нажмите OK кнопка. Теперь вы увидите, что 6 уникальных номеров лотереи генерируются и сразу отображаются в выбранных ячейках.
Kutools for Excel - Дополните Excel более чем 300 основными инструментами. Наслаждайтесь полнофункциональной 30-дневной БЕСПЛАТНОЙ пробной версией без необходимости использования кредитной карты! Get It Now
Демо: создание номеров лотереи с помощью Kutools for Excel
Статьи по теме:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!