Izjava o naključnem izboru v VBA
Stavek VBA Randomize je preprost enovrstni stavek, ki ga dodamo pred uporabo funkcije RND. Vsakič, ko se delovni zvezek ponovno odpre, stavek Randomize funkciji RND poda novo številko semena, odvisno od sistemskega časa računalnika.
Preden spregovorim o izjavi Randomize, naj vam predstavim preprosto funkcijo RND z VBA.
Kot funkcija delovnega lista »RAND« bo tudi v VBA »RND« generiral naključne številke, ki so večje od 0, vendar manjše od 1.
Zdaj si oglejte sintakso funkcije "RND".
[Število]: Argument lahko posredujemo na tri načine.
- Če prenesemo številko kot <0, vedno znova generira enako naključno število.
- Če številko prenesemo kot 0, bo ponovila zadnjo številko, ki jo je dala.
- Če prenesemo številko> 0, vam nenehno daje različne naključne številke, tj. Naslednje naključno število v zaporedju.
Primer
Za primer si oglejte spodnjo kodo.
Koda:
Sub RND_Example () Odpravljanje napak. Natisni Rnd End Sub
Ko zaženem kodo v neposrednem oknu, vidim spodnjo številko.
Podobno, ko izvedem to kodo še trikrat, vidim spodnje številke.
Zdaj bom zaprl delovni zvezek in ga znova odprl.
Zdaj se bom vrnil v okno urejevalnika visual basic.
Zdaj je neposredno okno prazno in čisto.
Zdaj bom kodo izvedel štirikrat in videl, katere številke bomo dobili v neposrednem oknu.
Dobili smo enake številke kot zgoraj.
To ni videti kot naključno število, ker vsakič, ko datoteko znova odpremo, ponavadi dobimo enake številke, že od začetka.
Torej, kako ustvarimo naključne številke ne glede na to, ali se je delovni zvezek ponovno odprl ali ne?
Uporabiti moramo izjavo »Naključno«.
Kako uporabiti izjavo VBA Randomize?
To predlogo VBA Randomize Excel lahko prenesete tukaj - VBA Randomize Excel PredlogaPrimer # 1
Če želimo dobiti naključne številke, moramo pred funkcijo RND dodati preprosto eno črto »Randomize«.
Koda:
Sub Randomize_1 () Randomize Debug. Natisni Rnd End End Sub
Zdaj bom 4-krat zagnal kodo in pogledal, kaj dobim.
V mojem lokalnem oknu je ustvaril zgornje številke.
Zdaj bom zaprl datoteko in jo znova odprl.
Kot ponavadi začnemo s čistim skrilavcem v oknu visual basic.
Zdaj bom spet izvedel kodo in videl, katere številke bomo dobili tokrat.
Vau !!! Tokrat imamo različne številke.
Ker smo pred funkcijo RND dodali stavek Randomize, dobimo različne naključne številke vsakič, ko datoteko znova odpremo.
To je videti kot naključna številka, kajne ???
2. primer
Naključne številke večje od ene
Kot smo videli, lahko funkcija “RND” generira samo številke od 0 do 1. Toda za generiranje številk, večjih od ene naključne številke, moramo uporabiti “RANDOM BETWEEN”, ki je na voljo v razredu funkcij delovnega lista.
Za ustvarjanje naključnih števil, večjih od ene, moramo uporabiti spodnjo kodo.
Koda:
Sub Randomize_2 () Randomize Debug.Print Rnd * 100 End Sub
Zdaj bom izvršil kodo in videl, kaj bomo dobili.
Tako lahko v VBA uporabimo stavek »Naključno« za ustvarjanje naključnih števil vsakič, ko ponovno odpremo datoteko excel.