Þessi grein sýnir 4 dæmi um slembitölugenerator án afrita með VBA í Excel. Hér munum við nota innbyggða Rnd aðgerð Excel til að stilla kóðann okkar. Við skulum kafa ofan í dæmin til að læra aðferðir til að búa til einstakar slembitölur.

Hlaða niður æfingarvinnubók

Hlaða niður þessari æfingu til að æfa á meðan þú ert að lesa þessa grein.

4 Dæmi um Random Number Generator án afrita í Excel VBA

Skrifaðu kóða í Visual Basic Editor

Til að búa til handahófskenndar tölur án afrita þurfum við að opna og skrifa VBA kóða í visual basic ritlinum. Fylgdu skrefunum til að opna visual basic ritilinn og skrifaðu kóðann þar.

• Farðu í Hönnuðar flipi á Excel borði .
• Smelltu á valkostinn Visual Basic.

• Í glugganum Visual Basic For Applications skaltu smella á Insert fellivalmyndina til að velja New Module valkostur.

Settu nú kóðann þinn inn í sjónkóða ritilinn og ýttu á F5 til að keyra það.

1. Notkun VBA Rnd aðgerða til að búa til slembitölu án afrita

Rnd aðgerðin er notuð í Excel VBA til búa til handahófskenndar tölur sem eru á milli 0 og 1 eingöngu.

Verkefni : Búið til 10 handahófskenndar tölur á milli 0 og 1 í reitum A1:A10.

Kóði : Settu eftirfarandi kóða í visual basic ritlinum og ýttu á F5 til að keyra það.

4363

Úttak : Skjámyndin hér að ofan sýnir 10 einstakar handahófskenndar tölur á bilinu 0 og 1.

Kóðaskýring:

Í þessum kóða notuðum við Rnd fallið að setja inn handahófskenndar tölur í frumusviðinu A1:A10 . Áður en settum inn nýtt númer , notuðum við Do While Loop til að leita að númerinu í forskilgreint reitsvið (A1:A10) hvort það þegar er til eða ekki . Til að athuga tilvist númersins í hólfasviðinu í hvert skipti, stilltum við kóðann með COUNTIF aðgerðinni , Þessi aðgerð athugar nýja slembitölu í listanum yfir sem þegar eru til áður en hún er sett inn.

Lesa meira : Excel formúla til að búa til slembitölu (5 dæmi)

2. Tilviljanakenndarnúmeraframleiðandi fyrir skilgreinda neðri mörk og efri mörk án afrita

Til að búa til handahófskenndar tölur innan skilgreinds bils þurfum við að stilltu neðri mörk og efri mörk í VBA kóðanum okkar. Til upplýsingar er neðri mörk lægsta talan og efri mörk er hæsta talan í bilinu fyrir slembitölugjafann. Við getum notað eftirfarandi formúlu í kóðanum okkar.

(upperbound – lowerbound + 1) * Rnd + lowerbound

2.1 Random Talnamyndari- aukastaf

Verkefni : Búið til 10 handahófskenndar tölur milli 10 og 20 í frumur A1:A10.

Kóði : Settu eftirfarandi kóða í visual basic ritlinum og ýttu á F5 til að keyra það.

4722

Úttak : Skjámyndin hér að ofan sýnir 10 einstakar handahófskenndar tölur á bilinu 1 og 10.

2.2 Random Number Generator- Heiltala

Í þessari mynd notum við VBA Int fall til að fjarlægja brotahlutann úr handahófskenndu tölunum .

Verk : Búið til 20 handahófskenndar heiltölur milli 1 og 20 í reitum A1:B10.

Kóði : Settu eftirfarandi kóða í visual basic ritlinum og ýttu á F5 til að keyra það.

7301

Úttak : Skjámyndin hér að ofan sýnir 20 einstakar handahófskenndar heiltölur á bilinu 1 og 20.

Lesa meira: Rendom Number Generator í Excel án endurtekningar (9 aðferðir)

Svipuð aflestrar

• Slembinúmeraframleiðandi með gagnagreiningartóli og aðgerðum í Excel
• Hvernig á að Búðu til handahófskennd gögn í Excel (9Auðveldar aðferðir)
• Rendom 5 Digit Number Generator í Excel (7 dæmi)
• Rendom 4 Digit Number Generator í Excel (8 dæmi)
• Búa til slembitölu úr lista í Excel (4 leiðir)

3. Tilgreindu aukastafi fyrir Unique Random Number Generator í Excel VBA

Við getum notað Round fall í kóðanum okkar til að tilgreina fjöldi af tugastöfum í tilviljunarkenndu einkvæmu tölunum . setningafræði fallsins er-

Round(tjáning, [tölustafir])

Við þurfum að tilgreina 2nd argument samkvæmt kröfu okkar .

Verkefni : Búið til 20 handahófskenndar tölur með 2 aukastöfum milli 1 og 20 í reitum A1:B10.

Kóði : Settu eftirfarandi kóða í visual basic ritlinum og ýttu á F5 til að keyra það.

8468

Úttak : Skjámyndin hér að ofan sýnir 20 einstakar handahófskenndar heiltölur með 2 aukastafir á bilinu 1 og 20.

Lesa meira: Búa til slembitölu í Excel með aukastöfum (3 aðferðir)

4. Þróa notandaeyðublað fyrir slembitölugenerator án afrita í Excel VBA

Í þessari mynd munum við sýna hvernig á að nota UserForm í Excel VBA til að búa til handahófskenndar tölur með engum afritum .

Verkefni: Búa til20 handahófskenndar tölur í hólfsviði A1:B10 með UserForm með inntaksgildunum (i) neðri mörk (ii) efri mörk (iii) fjöldi aukastafa.

Búa til UserForm:

Fylgdu skrefunum hér að neðan til að búa til UserForm með æskilegum innsláttarreitum okkar .

• Farðu á flipann Þróunaraðili frá Excel borði .
• Smelltu á Sjónrænt Grunnvalkostur.

• Í glugganum Visual Basic For Applications smellirðu á Insert fellivalmyndinni til að velja valkostinn UserForm .

• Í UserForm bætið við merki .
• Tekið merkið sem neðri mörk í eiginleikum.

• Bæta við tveimur meiri merkjum sem heita Upperbund og DecimalPlaces .

• Bættu nú við þremur textareitum í UserForm .

• Á þessu stigi skaltu bæta við Command Button og nefna það Generate .

• Nú, tvísmelltu á Command Button og settu eftirfarandi kóða í kóðartilinn .

9369

• Ýttu á F5 til að keyra kóðann og UserForm hefur birst .
• Settu neðri mörk , efri mörk, og töluna af aukastöfum í UserForm og smelltu á GenerateHnappur .

Úttak : Í reitum A1:B10 eru 20 af handahófi tölur með 2 aukastöfum á bilinu 1 til 30.

Lesa meira: Hvernig á að búa til handahófskenndar tölur án afrita í Excel (7 leiðir)

Hlutur til að muna

• Við gætum líka notað Lagaðu aðgerðina í stað Int fallsins til að búa til einstakar heiltölur . Fallið fjarlægir hlutfallið af tölu eins og Int fallið .

Niðurstaða

Nú vitum við hvernig á að búa til einstaka slembitölur með VBA í Excel með hjálp viðeigandi dæma. Vonandi myndi það hjálpa þér að nota virknina á öruggari hátt. Allar spurningar eða tillögur ekki gleyma að setja þær í athugasemdareitinn hér að neðan.