Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как генерировать номера лотереи в Excel?

Вы когда-нибудь думали о том, чтобы генерировать номера лотереи в Excel или самостоятельно генерировать генератор чисел в Excel? В этой статье я даю вам три способа сделать это легко.

Создание лотерейных номеров с помощью функций Excel (Шаги 5)

Создание лотерейных номеров с помощью макроса VBA

Создание лотерейных номеров с помощью Kutools for Excel (Шаги 2)

Легко перечислить все комбинации нескольких серий данных в Excel

Kutools для Excel Список всех комбинаций Утилита предназначена для обобщения всех возможных комбинаций из нескольких заданных рядов данных и перечисления этих комбинаций в столбце, как показано ниже. Полнофункциональная бесплатная пробная версия 60-day!
как список всех комбинаций 1

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel переносит расширенные функции 300 в Excel и мгновенно повышает производительность
  • Super Formula Bar (легко редактировать несколько строк текста и формул); Чтение макета (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон ...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объединить дублирующиеся строки и сумму / среднее ... Предотвратить повторяющиеся клетки; Сравнить диапазоны ...
  • Выберите Дублировать или Уникальные строки; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих книгах; Случайный выбор ...
  • Точное копирование нескольких ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставьте маркеры, флажки и многое другое ...
  • Любить и быстро вставлять формулы, диапазоны, графики и рисунки; Шифровать ячейки с помощью пароля; Создать список рассылки и отправлять электронные письма ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев ...
  • Суперфильтр (сохранение и применение схем фильтрации к другим листам); Расширенный Сортировать по месяцу / неделе / ​​дню, частоте и многому другому; Специальный фильтр жирным шрифтом, курсив ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разбить данные на несколько листов; Пакетное конвертирование xls, xlsx и PDF ...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.

Создание лотерейных номеров с помощью функций Excel

Этот метод поможет вам использовать несколько функций Excel для генерации номеров лотереи. И вы можете сделать следующее:

1, В пустой таблице введите заголовки столбцов в Range A1: C1, как показано ниже:

2, Введите формулы в столбце A, столбце B и столбце C:

(1) В ячейке A2 введите формулу = RAND (), а затем перетащите дескриптор Fill в диапазон 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 - столбец Unique Rank и столбец Ball Number, 2 означает поиск значений во втором столбце Range $ B $ 1: $ C $ 50.

Затем вы получите номера лотереи, как показано ниже:

5, Это необязательно. Чтобы запретить автоматическое изменение номеров лотереи при обновлении текущей рабочей таблицы, вы можете нажать Формула > Параметры расчета > механический.


Создание лотерейных номеров с помощью макроса 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 или нажмите прогон для запуска этого макроса VBA.

4, Теперь в раскрывающемся диалоговом окне укажите ячейку для вывода номеров лотереи и нажмите OK Кнопка.

Затем вы увидите, что уникальные номера лотереи 6 генерируются и отображаются в указанных ячейках.


Создание лотерейных номеров с помощью Kutools for Excel

Если у вас установлен Kutools для Excel, его Вставка случайных данных утилита может помочь вам генерировать номера лотереи в Excel одновременно.

1, Выберите соседние ячейки 6, например A1: F1, а затем нажмите кнопку Kutools > Вставить > Вставка случайных данных.

2, Появится диалоговое окно «Вставить случайные данные». Перейти к Целое вкладка, введите 1 in От поле, введите 49 in к установите флажок Уникальные значения и нажмите OK кнопка. Теперь вы увидите уникальные уникальные лотерейные номера 6 и сразу же отобразятся в выбранных ячейках.

Kutools for Excel - Включает в себя более удобных инструментов 300 для Excel. Полнофункциональная бесплатная пробная версия 60-day, кредитная карта не требуется! Get It Now


Демо: создание лотерейных номеров с помощью Kutools для Excel

В этом видео, Kutools Kutools Plus вкладки добавляются Kutools for Excel, Если это необходимо, пожалуйста, нажмите для 60-дневная бесплатная пробная версия без ограничений!

Статьи по теме:


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.