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

Ինչպե՞ս կատարել հաջողակ նկարների անուններ Excel- ում:

Ձեր ամենօրյա աշխատանքում, երբեմն, ձեզ հարկավոր է պատահականորեն ընտրել որոշ աշխատակիցների ՝ երկար ցուցակի անուններից որպես հաջողակ անուններ: Excel- ում ինչպե՞ս կարող եք պատահականորեն ընտրել որոշ անուններ `հաջողակ վիճակահանություն կատարելու համար: Այս հոդվածում ես կխոսեմ մի քանի օգտակար մեթոդների մասին `Excel- ում այս գործով զբաղվելու համար:

Բերեք բանաձևով պատահական անուններ կատարելու համար պատահական անուններ

VBA կոդով հանեք պատահական անուններ ՝ բախտավոր խաղարկություն կատարելու համար

Ընտրեք պատահական անուններ Excel- ի համար Kutools- ի հետ հաջող խաղարկություն կատարելու համար


Բերեք բանաձևով պատահական անուններ կատարելու համար պատահական անուններ

Օրինակ, ես ուզում եմ ցանկացած 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

Նշումներ:

1. Վերոնշյալ բանաձևում. A2: A16 այն անունների ցուցակն է, որը ցանկանում եք պատահականորեն հանել, B2 պահանջվող թիվն է, որը ցանկանում եք արդյունահանել անուններ, C2 այն բջիջն է, որտեղ մուտքագրվում է բանաձևը, և C1 բանաձեւային բջիջից վեր գտնվող բջիջն է:

2. Կարող եք սեղմել F9 ստեղն ՝ պատահականորեն նոր անունների մեկ այլ խումբ ստանալու համար:


VBA կոդով հանեք պատահական անուններ ՝ բախտավոր խաղարկություն կատարելու համար

Այստեղ VBA կոդը կարող է նաև օգնել ձեզ ավարտել այս առաջադրանքը, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք Alt + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Randomուցակից հանիր պատահական անունները.

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 հավելվածների համար պատուհանից, այնուհետև դուրս եկավ դուրս Հղումներ - VBAP նախագիծ երկխոսության տուփ, ստուգեք Microsoft Scripting Runtime տարբերակը Հասանելի հղումներ ցուցակի տուփ, տես նկարի նկարը.

դոկ բախտավոր անուններ 2

4. Եվ այնուհետեւ կտտացրեք OK երկխոսության տուփից դուրս գալու կոճակը, ապա սեղմել F5 այս կոդն աշխատեցնելու բանալին, և դուրս է գալիս հուշման տուփ, որը հիշեցնում է ձեզ ՝ ընտրելով տվյալների ցուցակը, որից ուզում եք անուններ հանել, տե՛ս նկարը.

դոկ բախտավոր անուններ 3

5: Սեղմեք OK կոճակը և դուրս է եկել մեկ այլ հուշագիր, խնդրում ենք ընտրել այն բջիջը, որտեղ ցանկանում եք արդյունքը տեղադրել, տես նկարի նկարը.

դոկ բախտավոր անուններ 4

6. Այնուհետեւ կտտացրեք OK, և անունների ցանկալի քանակը ստեղծվել է միանգամից պատահականորեն, տես նկարի նկարը.

դոկ բախտավոր անուններ 5


Ընտրեք պատահական անուններ Excel- ի համար Kutools- ի հետ հաջող խաղարկություն կատարելու համար

Գուցե վեր լինի երկու մեթոդներ, դժվար է մեզանից շատերի համար, եթե ունեք Excel- ի համար նախատեսված գործիքներԻր Տեսակավորել տեսականին պատահականորեն առանձնահատկությունը, դուք կարող եք արագորեն ընտրել անուններ պատահականորեն:

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. 

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1. Ընտրեք այն անվանացանկը, որը ցանկանում եք պատահականորեն ընտրել: Դրանից հետո կտտացրեք Կուտոլս > Շարք > Տեսակավորել / Ընտրել տիրույթը պատահականորեն, տես նկարի նկարը.

2, Մեջ Տեսակավորել / Ընտրել տիրույթը պատահականորեն երկխոսության տուփ, տակ ընտրել էջանիշ, մուտքագրեք այն համարը, որը ցանկանում եք ընտրել անունները մեջ Ընտրելու համար բջիջների քանակը տեքստային տուփ, ապա ընտրեք Ընտրեք պատահական բջիջներ է Ընտրել տեսակը բաժին, տես նկարի նկարը.

3. Այնուհետեւ կտտացրեք Ok կոճակը, և ձեր հատուկ անունների անուններն ընտրվել են ըստ ձեզ, տես նկարի նկարը.

դոկ բախտավոր անուններ 8

Կտտացրեք Excel- ի և անվճար փորձաշրջանի համար Kutools- ը ներբեռնելու համար:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սխալ:
# ԱՆUM!



Formula.
=IF(ROWS(C$2:C2)>B$2,"",INDEX(A$2:A$1500,AGGREGATE(15,6,((ROW(A$2:A$1500)-ROW(A$2)+1)/ISNA(MATCH(A$2:A$1500,C$1:C1,0))),RANDBETWEEN(1,ROWS(A$2:A$1500)-COUNTA(C$1:C1)+1))))
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Մանգիպուդի,
Այս բանաձևը լավ է աշխատում իմ Excel աշխատանքային գրքում, Excel-ի ո՞ր տարբերակն եք օգտագործում:
Այստեղ կարող եք նաև տալ ձեր խնդիրը որպես սքրինշոթ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ունեմ նույն սխալը, բայց այն միշտ չէ, որ ցույց է տալիս:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից