Note: The other languages of the website are Google-translated. Back to English

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

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


Создавайте номера лотереи с помощью функций 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 Список всех комбинаций Утилита предназначена для обобщения всех возможных комбинаций из нескольких заданных серий данных и перечисления этих комбинаций в столбце, как показано на скриншоте ниже.


как перечислить все комбинации 1

Kutools for Excel - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 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 - Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now


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


Kutools for Excel включает более 300 удобных инструментов для Excel, которые можно бесплатно попробовать без ограничений в течение 30 дней. Скачать и бесплатную пробную версию сейчас!

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


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (15)
Номинальный 5 из 5 · рейтинги 1
Этот комментарий был сведен к минимуму модератором на сайте
Пожалуйста, легко найти ssoftware
Этот комментарий был сведен к минимуму модератором на сайте
Я хотел бы выиграть какое-то число удачи
Этот комментарий был сведен к минимуму модератором на сайте
: Я хотел бы попробовать ваши новые программы посмотреть, как цифры предсказывают
Этот комментарий был сведен к минимуму модератором на сайте
рассчитать предположение на следующий день для лотереи Кералы
Этот комментарий был сведен к минимуму модератором на сайте
эй, Сантанам, ты все выиграл с этой программой?
Этот комментарий был сведен к минимуму модератором на сайте
рассчитать номер лотереи на следующий день для лотереи Кералы - Индия
Этот комментарий был сведен к минимуму модератором на сайте
Какова цель СЧЁТЕСЛИ(B$1:B1,B1)-1 в формуле на шаге B?
Этот комментарий был сведен к минимуму модератором на сайте
Привет хёнсоп ким,
COUNTIF(B$1:B1,B1)-1 предотвратит дублирование в столбце B. Например, если B1 является уникальным значением, эта часть вернет 0, что не повлияет на результат ранжирования; если B1 дублируется, эта часть немного скорректирует результат ранжирования.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, я попробовал способ Vlookup, который вы показали здесь, он отлично работает, и легко генерировать числа для диапазона от 1 до 49.

Но я думал об исключении некоторых чисел из игры, например, вместо последовательных чисел у меня будет 25 чисел от 1 до 49. Как мне нужно настроить формулу Vlookup, чтобы она работала?
Номинальный 5 из 5
Этот комментарий был сведен к минимуму модератором на сайте
Привет Йоги, извините, я не совсем понимаю вашу просьбу. Что вы имеете в виду, имея 25 чисел от 1 до 49?
Этот комментарий был сведен к минимуму модератором на сайте
Да 25 номеров от 1 до 49.
Я пытался использовать ту же формулу, но как только выбрано число больше 25, следующее число в последовательности не может быть показано, и возникает ошибка.
Номинальный 5 из 5
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо Аманда за помощь.
Этот комментарий был сведен к минимуму модератором на сайте
Файл не работает с фромулом, что не так

пожалуйста, дайте мне знать

Я копирую формулу, все правильно.
Этот комментарий был сведен к минимуму модератором на сайте
Всем привет,

Не могли бы вы прикрепить файл, над которым работаете?

Аманда
Этот комментарий был сведен к минимуму модератором на сайте
система не работает, что не так я вставил все формулы
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL