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 omogoči novo začetno številko, odvisno od sistemskega časa računalnika.
Preden spregovorim o izjavi Randomize, naj vam predstavim preprosto funkcijo RND z VBA.
Kot funkcija delovnega lista »RAND« v VBA bo tudi »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 število> 0, vam nenehno daje različne naključne številke, tj. Naslednje naključno število v zaporedju.
Primer
Na primer, poglejte spodnjo kodo.
Koda:
Sub RND_Example () Odpravljanje napak. Natisni Rnd End Sub
Ko zaženem kodo v oknu Takoj, vidim spodnjo številko.
Podobno, ko izvedem to kodo še 3-krat, 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 znova odpremo datoteko, 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?
Primer # 1
Da bi dobili naključne številke, moramo pred funkcijo RND dodati preprosto eno črto »Randomize«.
Koda:
Sub Randomize_1 () Randomize Debug. Natisni Rnd 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 izgleda 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. Da pa bi lahko ustvarili številke, večje od ene naključne številke, moramo uporabiti “RANDOM BETWEEN”, ki je na voljo v razredu funkcij delovnega lista.
Torej, da ustvarimo naključne številke, večje 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.
