Այս մեթոդը կօգնի ձեզ կիրառել մի քանի Excel գործառույթներ ՝ վիճակախաղի համարներ ստեղծելու համար: Եվ դուք կարող եք անել հետևյալը.

1, Դատարկ աշխատաթերթում մուտքագրեք սյունակի վերնագրեր A1: C1 տիրույթում, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.

2, Մուտքագրեք բանաձևեր սյունակում A, B սյունակում և C սյունակում:

(1) A2 բջիջում մուտքագրեք բանաձևը = 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 հաջորդականության առաջին համարի XNUMX-ից ներքևում մուտքագրեք բանաձևը = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, կեղծ) մեջը, և լրացրեք բռնիչը քաշեք ձեզ համար անհրաժեշտ տիրույթ:

ՆշումԱյս բանաձևում G1- ը 1-ին հաջորդականության առաջին համար ունեցող բջիջն է. $ B $ 1: $ C $ 50 եզակի դասակարգի սյունակ և գնդակի համարի սյունակ, 2 նշանակում է գտնել արժեքներ $ B $ 1 $ երկրորդ սյունակում: $ C $ 50 ,

Դրանից հետո դուք կստանաք վիճակախաղի համարները, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.

5, Դա ընտրովի է: Որպեսզի վիճակախաղի համարները ավտոմատ կերպով չփոխվեն, երբ ընթացիկ աշխատանքային թերթը թարմացվում է, կարող եք սեղմել Ֆորմուլա > Հաշվարկի ընտրանքներ > ձեռնարկ.

Եթե ​​ունեք Excel- ի համար նախատեսված Kutools, ապա դա Տեղադրեք պատահական տվյալներ օգտակար ծրագիրը կարող է օգնել Excel- ում միանգամից վիճակախաղի համարներ առաջացնել:

1, Ընտրեք հարակից 6 բջիջներ, ինչպիսիք են A1: F1, և այնուհետև կտտացրեք այն Կուտոլս > Տեղադրել > Տեղադրեք պատահական տվյալներ.

2, Այժմ դուրս է գալիս Տեղադրեք պատահական տվյալների երկխոսության պատուհանը: Գնալ դեպի Ամբողջական էջանիշը, տեսակը 1 in From տուփ, տեսակ 49 in Դեպի տուփը, ստուգիր Եզակի արժեքներ տարբերակը եւ սեղմեք OK կոճակ Այժմ կտեսնեք, որ վիճակախաղի 6 եզակի համարներ են գոյանում և անմիջապես ցուցադրվում ընտրված խցերում:

Այս մեթոդը կօգնի ձեզ կիրառել 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 ստեղնը կամ սեղմել Վազում այս VBA մակրո գործարկման կոճակը:

4, Այժմ բացվող երկխոսության դաշտում նշեք բջիջը վիճակախաղի համարները թողարկելու համար և կտտացրեք այն OK կոճակը:

Դրանից հետո կտեսնեք, որ վիճակախաղի 6 եզակի համարներ են ստեղծվում և ցուցադրվում նշված բջիջներում:

Excel- ի չափանիշների հիման վրա պատահականորեն ընտրեք բջիջները

Excel- ում պատահականորեն ավելացրեք ֆոնային / լրացնելու գույնը