seychellesartprojects.org

Juhuslik avaldus VBA-s

VBA Randomize avaldus on lihtne ühe liiniga lause, mille lisame enne RND funktsiooni rakendamist. Kui töövihik uuesti avatakse, annab Randomize'i lause lause RND-funktsioonile uue seemnenumbri, sõltuvalt arvuti süsteemiajast.

Enne Randomize'i avaldusest rääkimist lubage mul tutvustada teile lihtsat RND-funktsiooni koos VBA-ga.

Töölehe funktsioonina „RAND“ genereerib VBA-s ka „RND“ juhuslikud arvud, mis on suuremad kui 0, kuid vähem kui 1.

Nüüd heitke pilk funktsiooni “RND” süntaksile.

[Number]: argumenti saame edastada kolmel viisil.

• Kui edastame numbri väärtuseks <0, genereerib see iga kord sama juhusliku arvu.
• Kui edastame numbri 0-ks, kordab see viimast antud numbrit.
• Kui me edastame arvu> 0, annab see teile pidevalt erinevaid juhuslikke numbreid, st järjestuse järgmise juhusliku arvu.

Näide

Näite saamiseks vaadake allolevat koodi.

Kood:

 Sub RND_Example () silumine. Prindi Rnd End Sub 

Kui käivitan koodi kohe aknas, näen numbri all.

Samamoodi näen seda koodi veel kolm korda käivitades allpool olevaid numbreid.

Nüüd panen töövihiku kinni ja avan uuesti.

Nüüd lähen tagasi visuaalse põhiredaktori aknasse.

Nüüd on vahetu aken tühi ja puhas.

Nüüd jällegi täidan koodi neli korda ja vaatan, mis numbrid me kohe aknast saame.

Saime samad numbrid kui ülal.

See ei tundu juhuslik number, sest iga kord, kui faili uuesti avame, kipuvad samad numbrid algusest peale algama.

Niisiis, kuidas genereerida juhuslikke numbreid, olenemata sellest, kas töövihik avati uuesti või mitte?

Peame kasutama lauset „Randomize”.

Kuidas kasutada VBA juhuslikku avaldust?

Selle VBA Randomize Exceli malli saate alla laadida siit - VBA Exceli malli randomiseerimine

Näide 1

Juhuslike arvude saamiseks peame vaid enne funktsiooni RND lisama lihtsa üherealise “Randomize”.

Kood:

 Sub juhuslikult_1 () juhuslikult siluda. Prindi Rnd End Sub 

Nüüd käivitan koodi 4 korda ja vaatan, mida saan.

See on loonud ülaltoodud numbrid minu kohalikus aknas.

Nüüd ma sulgen faili ja avan faili uuesti.

Nagu tavaliselt, alustame visuaalse põhiakna puhta lehega.

Nüüd täidan koodi uuesti ja vaatan, mis numbrid me seekord saame.

Vau !!! Saime seekord erinevad numbrid.

Kuna lisasime enne funktsiooni RND lause Randomize, saame faili uuesti avamisel erinevad juhuslikud arvud.

See näeb välja nagu juhuslik arv, kas pole ???

Näide 2

Juhuslikud arvud suuremad kui üks

Nagu nägime, saab funktsioon „RND” genereerida ainult numbreid 0–1. Kuid suurema arvu kui ühe juhusliku arvu genereerimiseks peame kasutama töölehe funktsiooniklassiga saadaval olevat juhuslikku juhuslikku arvu (RANDOM BETWEEN).

Nii et suuremate kui juhuslike arvude genereerimiseks peame kasutama allolevat koodi.

Kood:

 Sub juhuslikult_2 () juhuslikult siluda. Prindi Rnd * 100 End Sub 

Nüüd täidan koodi ja vaatan, mida saame.

Niimoodi saame VBA-s avalduse „Randomiseerimine” abil luua juhuslikud arvud iga kord, kui Exceli faili uuesti avame.