Як згенерувати лотерейні номери в Excel?
Ви коли-небудь замислювалися про створення номерів лотерей в Excel або самостійно створити генератор номерів лотерей в Excel? У цій статті я пропоную три способи, як легко це зробити.
- Створюйте номери лотерей за допомогою функцій Excel (5 кроків)
- Створюйте номери лотерей за допомогою VBA Macro
- Генеруйте лотерейні номери за допомогою Kutools для Excel (2 кроків)
Створюйте номери лотерей за допомогою функцій 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 Перелічіть усі комбінації Утиліта призначена для узагальнення всіх можливих комбінацій з кількох заданих серій даних та перерахування цих комбінацій у стовпці, як показано на знімку екрана нижче.
Kutools для Excel - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 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 - Доповніть Excel понад 300 основними інструментами. Насолоджуйтесь повнофункціональною 30-денною БЕЗКОШТОВНОЮ пробною версією без кредитної картки! Get It Now
Демо: генеруйте лотерейні номери за допомогою Kutools для Excel
Статті по темі:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!