Այս հոդվածը ցույց է տալիս պատահական թվերի գեներատորի 4 օրինակ առանց կրկնօրինակների, օգտագործելով VBA Excel-ում: Այստեղ մենք կօգտագործենք Excel-ի ներկառուցված Rnd ֆունկցիան՝ մեր կոդը կարգավորելու համար: Եկեք ուսումնասիրենք օրինակները՝ սովորելու եզակի պատահական թվեր ստեղծելու տեխնիկան:

Ներբեռնեք պրակտիկայի աշխատանքային գիրքը

Ներբեռնեք այս պրակտիկայի աշխատանքային գրքույկը, որպեսզի վարժություններ կատարեք այս հոդվածը կարդալու ընթացքում:

4 օրինակներ Պատահական թվերի գեներատոր առանց կրկնօրինակների Excel VBA-ում

Կոդ գրեք Visual Basic Editor-ում

պատահական թվեր առանց կրկնօրինակների ստեղծելու համար , մենք պետք է բացենք և գրենք VBA կոդը տեսողական հիմնական խմբագրիչում: Հետևեք քայլերին բացելու տեսողական հիմնական խմբագրիչը և այնտեղ որոշ կոդ գրեք:

• Գնացեք Developer ներդիր Excel Ribbon :
• Սեղմեք Visual Basic տարբերակը:

• Visual Basic For Applications պատուհանում սեղմեք Տեղադրել բացվող պատուհանը ընտրելու Նոր մոդուլը: տարբերակ:

Այժմ դրեք ձեր կոդը տեսողական կոդերի խմբագրիչի ներսում և սեղմեք F5 գործարկելու այն։

1. VBA Rnd ֆունկցիայի օգտագործումը` առանց կրկնօրինակների պատահական թվեր ստեղծելու համար

Rnd ֆունկցիան օգտագործվում է Excel VBA -ից ստեղծեք պատահական թվեր որոնք 0-ի միջև են և 1 բացառիկ:

Առաջադրանք . Ստեղծեք 10 պատահական թվեր 0 և 1-ի միջև A1:A10 բջիջներում:

Կոդ . Տեղադրեք հետևյալ կոդը տեսողական հիմնական խմբագրիչում և սեղմեք F5 գործարկելու համար այն:

1974

Ելք . վերը նշված սքրինշոթը ցույց է տալիս 10 եզակի պատահական թվեր 0-ի և 1-ի միջակայքում:

Կոդի բացատրություն.

Այս կոդում մենք օգտագործել ենք Rnd ֆունկցիան պատահական թվեր տեղադրելու համար Ա1:A10 բջիջների միջակայքում : Նախքան նոր համարը տեղադրելը, մենք օգտագործեցինք Do while Loop որոնելու համարը -ում: 1>կանխորոշված ​​բջիջների տիրույթ (A1:A10) անկախ նրանից, թե այն արդեն գոյություն ունի թե չէ : թվի առկայությունը բջջային տիրույթում ամեն անգամ ստուգելու համար մենք կարգավորել ենք կոդը COUNTIF ֆունկցիայի , այս ֆունկցիան ստուգում է a նոր պատահական համարը ցուցակում արդեն գոյություն ունեցող թվերի նախքան այն տեղադրելը:

Կարդալ ավելին : Excel-ի բանաձև՝ պատահական թվեր ստեղծելու համար (5 օրինակ)

2. Պատահական թվերի գեներատոր սահմանված ներքևի և վերին սահմանների համար առանց կրկնօրինակների

պատահական թվեր ստեղծելու համար սահմանված տիրույթում , մենք պետք է սահմանեք ստորին սահմանը և վերին սահմանը մեր VBA կոդում: Տեղեկատվության համար, ստորին սահմանը նվազագույն թիվն է և վերին սահմանը պատահական թվերի գեներատորի ամենաբարձր թիվն է միջակայքում : Մենք կարող ենք օգտագործել հետևյալ բանաձևը մեր կոդում։

(վերևում – ստորին սահման + 1) * Rnd + ստորին սահման

2.1 Պատահական Թվերի գեներատոր- տասնորդական

Առաջադրանք : Ստեղծեք 10 պատահական թվեր 10 -ի և 20 -ի միջև <1-ում> բջիջներ A1:A10:

Կոդ ․ գործարկելու համար այն:

5324

Ելք . վերը նշված սքրինշոթը ցույց է տալիս 10 եզակի պատահական թվեր 1-ի և 10-ի միջակայքում:

2.2 Պատահական թվերի գեներատոր- ամբողջ թիվ

Այս նկարում մենք կօգտագործենք VBA Int ֆունկցիան հեռացնելու կոտորակային մասը պատահական թվերից :

Առաջադրանք . 1>Ստեղծեք 20 պատահական ամբողջ թիվ 1 և 20 միջև A1:B10 բջիջներում:

Կոդ ․ գործարկելու համար այն:

9469

Ելք . վերը նշված սքրինշոթը ցույց է տալիս 20 եզակի պատահական ամբողջ թվեր 1-ի և 20-ի միջակայքում:

Կարդալ ավելին. Պատահական թվերի գեներատոր Excel-ում առանց կրկնությունների (9 մեթոդ)

Նման ընթերցումներ

• Պատահական թվերի գեներատոր Excel-ում տվյալների վերլուծության գործիքով և ֆունկցիաներով
• Ինչպես Ստեղծեք պատահական տվյալներ Excel-ում (9Հեշտ մեթոդներ)
• Պատահական 5 նիշ թվերի գեներատոր Excel-ում (7 օրինակ)
• Պատահական 4 նիշ թվերի գեներատոր Excel-ում (8 օրինակ)
• Ստեղծեք պատահական թվեր Excel-ի ցանկից (4 եղանակ)

3. Նշեք տասնորդական տեղեր եզակի պատահական թվերի գեներատորի համար Excel VBA-ում

Մենք կարող ենք օգտագործել Round ֆունկցիան մեր կոդի մեջ նշել տասնորդական տեղերի համարը պատահականորեն ստեղծված եզակի թվերում : Ֆունկցիայի շարահյուսությունը -

Round (արտահայտություն, [numdecimalplaces])

Մենք պետք է նշենք 2-րդ արգումենտ մեր պահանջի համաձայն :

Առաջադրանք . Ստեղծեք 20 պատահական թվեր 2 տասնորդական թվերով <1-ի միջև:>1 և 20 A1:B10 բջիջներում:

Կոդ ․ գործարկելու համար այն:

2773

Ելք . վերը նշված սքրինշոթը ցույց է տալիս 20 եզակի պատահական ամբողջ թվեր 2 տասնորդական տեղ 1-ի և 20-ի միջակայքում:

Կարդալ ավելին. Գեներացրեք պատահական թվեր Excel-ում տասնորդականներով (3 մեթոդ)

4. Զարգացրեք օգտվողի ձև պատահական թվերի գեներատորի համար Excel VBA-ում առանց կրկնօրինակների

Այս նկարում մենք ցույց կտանք, թե ինչպես օգտագործել UserForm <1-ում:>Excel VBA պատահական թվեր ստեղծելու առանց կրկնօրինակների :

Առաջադրանք. Ստեղծել20 պատահական թվեր բջիջների տիրույթում A1:B10 ՝ օգտագործելով UserForm մուտքագրված արժեքներով (i) ներքևի սահման (ii) վերին սահման (iii) տասնորդական թվերի թիվը:

Ստեղծեք օգտվողի ձև.

Հետևեք ստորև նշված քայլերին, որպեսզի ստեղծեք UserForm մեր ցանկալի մուտքագրման դաշտերով .

• Գնացեք Developer ներդիր Excel Ribbon :
• Սեղմեք Visual Հիմնական տարբերակ:

• Visual Basic For Applications պատուհանում սեղմեք Տեղադրել բացվող պատուհանում ընտրելու համար UserForm տարբերակը:

• UserForm-ում ավելացրեք a պիտակ :
• վերնագիր պիտակը որպես Lower Bound հատկություններում:

• Ավելացրեք երկու ավելի պիտակներ անուններով Upperbund և DecimalPlaces ։

• Այժմ ավելացրեք երեք տեքստային տուփեր Օգտագործողի ձևում :

• Այս փուլում ավելացրեք ա CommandButton և անվանեք այն Ստեղծեք ։

• Այժմ, կրկնակի սեղմեք CommandButton և դրեք հետևյալ կոդը կոդի խմբագրիչում :

4410

• Սեղմեք F5 գործարկելու համար կոդը և UserForm հայտնվել է :
• Դրեք ներքևի սահմանը , վերին եզրագիծը, և համարը տասնորդական տեղերից UserForm և սեղմեք ՍտեղծելԿոճակ .

Ելք . A1:B10 բջիջներում կան 20 պատահական թվեր 2 տասնորդական թվերով 1-ից 30-ի միջակայքում:

Կարդալ ավելին` Ինչպես ստեղծել պատահական թվեր առանց կրկնօրինակների Excel-ում (7 եղանակ)

Հիշելու բաներ

• Մենք կարող ենք նաև օգտագործել Ստուգել ֆունկցիան Int ֆունկցիայի փոխարեն եզակի ամբողջ թվեր ստեղծելու համար : Ֆունկցիան հեռացնում է կոտորակային մասը թվի ինչպես Int ֆունկցիան :

Եզրակացություն

Այժմ մենք գիտենք, թե ինչպես ստեղծել եզակի պատահական թվեր Excel-ում VBA-ի միջոցով համապատասխան օրինակների օգնությամբ: Հուսանք, դա կօգնի ձեզ ավելի վստահ օգտագործել ֆունկցիոնալությունը: Ցանկացած հարց կամ առաջարկ, մի մոռացեք դրանք դնել ներքևի մեկնաբանությունների դաշտում: