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

Як згенерувати лотерейні номери в Excel?

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


Створюйте номери лотерей за допомогою функцій Excel

Цей метод допоможе вам застосувати кілька функцій Excel для створення номерів лотерей. І ви можете зробити наступне:

1. На пустому аркуші введіть заголовки стовпців у діапазоні A1: C1, як показано на знімку екрана нижче:

2. Введіть формули в стовпці А, Стовпці В та Стовпці C:

(1) У комірку А2 введіть формулу = RAND (), а потім перетягніть маркер заповнення до діапазону 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.

Тоді ви отримаєте таблицю, як показано на знімку зліва:

 

стрічка записки Формула занадто складна, щоб запам'ятати? Збережіть формулу як автоматичний запис тексту для повторного використання лише одним клацанням у майбутньому!
Детальніше ...     Безкоштовне випробування

3. Знайдіть порожній діапазон, введіть порядкові номери по горизонталі в ряд, як показано на знімку екрана нижче:

4. Під першим порядковим номером 1 введіть формулу = ПЕРЕГЛЯД (G1, $ B $ 1: $ C $ 50,2, FALSE) і перетягніть ручку заповнення до потрібного вам діапазону.

примітки: У цій формулі G1 - це клітинка з першим порядковим номером 1, $ B $ 1: $ C $ 50 - це унікальний стовпець рангу та стовпець номер кулі, 2 означає знаходження значень у другому стовпці діапазону $ B $ 1: $ C $ 50 .

Тоді ви отримаєте номери лотереї, як показано нижче:

5. Це необов’язково. Щоб запобігти автоматичній зміні номерів лотерей, коли поточний аркуш оновлюється, ви можете натиснути Formula > Параметри розрахунку > Мануал.

Легко перелічіть усі комбінації кількох рядів даних в Excel

Kutools для Excel Перелічіть усі комбінації Утиліта призначена для узагальнення всіх можливих комбінацій з кількох заданих серій даних та перерахування цих комбінацій у стовпці, як показано на знімку екрана нижче.


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

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Get It Now

Створюйте номери лотерей за допомогою VBA Macro

Цей метод допоможе вам застосувати макрос VBA для генерування номерів лотереї в Excel. Будь ласка, виконайте наступне:

1. Прес інший + F11 клавіші, щоб відкрити вікно Microsoft Visual Basic for Applications.

2. Клацання Insert > Модулі відкрити нове вікно модуля та вставити в нього наступний код 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 для Excel

Якщо у вас встановлений Kutools для Excel, його Вставити випадкові дані Утиліта може допомогти вам одночасно генерувати лотерейні номери в Excel.

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Безкоштовна пробна версія зараз!

1. Виберіть 6 сусідніх комірок, наприклад A1: F1, а потім клацніть на Кутулс > Insert > Вставити випадкові дані.

2. Тепер з’явиться діалогове вікно Вставити випадкові дані. Перейдіть до Ціле число вкладка, введіть 1 in від поле, введіть 49 in До встановіть прапорець Унікальні значення та натисніть кнопку OK кнопку. Тепер ви побачите, як 6 унікальних номерів лотереї генеруються та негайно відображаються у вибраних клітинках.

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Get It Now


Демонстрація: генеруйте номери лотерей за допомогою Kutools для Excel


Kutools для Excel включає більше 300 зручних інструментів для Excel, які можна спробувати без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Статті по темі:


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (15)
Оцінено 5 з 5 · рейтинги 1
Цей коментар був мінімізований модератором на сайті
Будь ласка, легко знайдіть програмне забезпечення
Цей коментар був мінімізований модератором на сайті
Я хотів би виграти номер удачі
Цей коментар був мінімізований модератором на сайті
: Я хотів би спробувати ваші нові програми подивитися, як прогнозують цифри
Цей коментар був мінімізований модератором на сайті
розрахувати гадання наступного дня для лотереї Керали
Цей коментар був мінімізований модератором на сайті
Хей, Сантанаме, ти вигравав за цією програмою?
Цей коментар був мінімізований модератором на сайті
розрахувати номер лотереї наступного дня для лотереї Керала - Індія
Цей коментар був мінімізований модератором на сайті
Яка мета COUNTIF(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
Цей коментар був мінімізований модератором на сайті
Дякую Аманда за допомогу.
Цей коментар був мінімізований модератором на сайті
Файл не працює з fromula, що не такG

будь ласка, дай мені знати

Я копію формуляр все правильно.
Цей коментар був мінімізований модератором на сайті
Привіт там,

Не могли б ви прикріпити файл, над яким ви працюєте?

Аманда
Цей коментар був мінімізований модератором на сайті
система не працює, що не так, я вставив усі формуляри
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL