Как да направя имена за теглене на късмет в Excel?
В ежедневната си работа понякога трябва да изберете някои служители на случаен принцип от дълъг списък с имена като щастливи имена. В Excel, как бихте могли произволно да изберете някои имена за теглене на късмет? В тази статия ще говоря за някои полезни методи за справяне с тази работа в Excel.
Извличане на произволни имена за теглене на късмет с формула
Извличане на произволни имена за теглене на късмет с VBA код
Изберете произволни имена за теглене на късмет с Kutools за Excel
Извличане на произволни имена за теглене на късмет с формула
Например, искам да извлека произволни 3 имена от списъка с имена, следната дълга формула може да ви помогне, моля, направете следното:
Въведете тази формула в празна клетка, където искате да поставите резултата: =IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$16,AGGREGATE(15,6,((ROW(A$2:A$16)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$16,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$16)-COUNTA(C$1:C1)+1)))) и след това плъзнете манипулатора за запълване надолу до клетките, както ви е необходимо, вижте екранната снимка:
Забележки:
1. В горната формула: A2: A16 е списъкът с имена, от който искате да извлечете на случаен принцип, B2 е необходимият брой, който искате да извлечете имена, C2 е клетката, в която да въведете формулата, и C1 е клетката над клетката с формула.
2. Можете да натиснете F9 ключ, за да получите друга група нови имена на случаен принцип.
Извличане на произволни имена за теглене на късмет с VBA код
Тук VBA код също може да ви помогне да завършите тази задача, моля, направете следното:
1. Задръжте натиснат Alt + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Извличане на произволни имена от списък:
Public Sub LuckyDraw()
Dim I, J, xRnd As Long
Dim xSRg, xDRg As Range
Dim xDic As New Dictionary
Dim xnum, xLastRow As Long
On Error Resume Next
Set xSRg = Application.InputBox("Please select the data list:", "KuTools for Excel", Selection.Address, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please selecta cell to put the result:", "KuTools for Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
xLastRow = xSRg.Rows.Count
Set xSRg = xSRg(1)
Set xDRg = xDRg(1)
xnum = Range("B2")
If xnum < 1 Then Exit Sub
J = 0
For I = 1 To xnum
LabExit:
xRnd = Int(Rnd() * xLastRow)
If xDic.Exists(xRnd) Then GoTo LabExit
xDic.Add xRnd, ""
xDRg.Offset(J, 0).Value = xSRg.Offset(xRnd, 0).Value
J = J + 1
Next
End Sub
Забележка: В горния код, B2 клетката съдържа броя имена, които искате да извлечете.
3. След като въведете кода, щракнете Инструменти > Препратки в отвореното Microsoft Visual Basic за приложения прозорец и след това изскочи Препратки – VBAProject диалогов прозорец, проверете Microsoft Scripting Runtime опция в Налични препратки списъчно поле, вижте екранна снимка:
4, И после щракнете върху OK бутон, за да излезете от диалоговия прозорец, след което натиснете F5 ключ, за да изпълните този код, и се появява поле за подкана, за да ви напомни да изберете списъка с данни, от който искате да извлечете имена, вижте екранна снимка:
5. Щракнете OK и се появява друго поле за подкана, моля, изберете клетка, където искате да поставите резултата, вижте екранната снимка:
6, След това кликнете OKи желаният брой имена са създадени произволно наведнъж, вижте екранната снимка:
Изберете произволни имена за теглене на късмет с Kutools за Excel
Може би горните два метода са трудни за повечето от нас, тук, ако имате Kutools за Excel, Със своята Сортиране на обхват на случаен принцип функция, можете бързо да избирате имена на случаен принцип.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Изберете списъка с имена, който искате да изберете произволно. След това щракнете Kutools > Обхват > Сортиране / избор на диапазон на случаен принцип, вижте екранна снимка:
2. В Сортиране/избиране на диапазон на случаен принцип диалогов прозорец, под Изберете въведете номера, чиито имена искате да изберете Брой клетки за избор текстово поле и след това изберете Изберете произволни клетки в Изберете тип раздел, вижте екранна снимка:
3, След това кликнете Ok и вашият конкретен брой имена са избрани според нуждите ви, вижте екранната снимка:
Щракнете, за да изтеглите Kutools за Excel и безплатна пробна версия сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
