VBA Nejaušība | Kā lietot Randomize Statement?
Randomizējiet paziņojumu VBA
VBA Randomize paziņojums ir vienkāršs vienas līnijas paziņojums, ko mēs pievienojam pirms RND funkcijas piemērošanas. Ikreiz, kad tiek atvērta darbgrāmata, Randomize paziņojums RND funkcijai piešķir jaunu sēklas numuru atkarībā no datora sistēmas laika.
Pirms es runāju par paziņojumu Randomize, ļaujiet man jūs iepazīstināt ar vienkāršu RND funkciju ar VBA.
Kā darblapas funkcija “RAND” VBA arī “RND” ģenerēs nejaušus skaitļus, kas ir lielāki par 0, bet mazāki par 1.
Tagad ieskatieties funkcijas “RND” sintaksē.
[Skaits]: Mēs varam nodot argumentu trīs veidos.
- Ja mēs nododam skaitli kā <0, tas katru reizi ģenerē to pašu nejaušo skaitli.
- Ja mēs nodosim skaitli kā 0, tas atkārtos pēdējo doto skaitli.
- Ja mēs nododam skaitli> 0, tas jums vienmēr piešķir dažādus nejaušus skaitļus, ti, nākamo nejaušo skaitli secībā.
Piemērs
Piemēram, skatiet zemāk esošo kodu.
Kods:
Sub RND_Example () atkļūdošana. Drukāt Rnd End Sub
Kad es palaidu kodu tiešajā logā, es redzu zem numura.
Līdzīgi, izpildot šo kodu vēl 3 reizes, es varu redzēt zemāk redzamos skaitļus.
Tagad es aizvēršu darbgrāmatu un atkal to atvēršu.
Tagad es atgriezīšos vizuālā pamata redaktora logā.
Tagad tiešais logs ir tukšs un tīrs.
Tagad es atkal izpildīšu kodu četras reizes un redzēšu, kādi ir skaitļi, kurus mēs iegūsim tiešajā logā.
Mēs saņēmām tādus pašus numurus kā iepriekš.
Tas neizskatās kā nejaušs skaitlis, jo katru reizi, kad mēs atkal atveram failu, mums parasti ir tie paši skaitļi, sākot no nulles.
Tātad, kā mēs ģenerējam nejaušus skaitļus neatkarīgi no tā, vai darbgrāmata ir atvērta vai nē?
Mums jāizmanto paziņojums “Randomize”.
Kā lietot VBA izlases veida paziņojumu?
Jūs varat lejupielādēt šo VBA Randomize Excel veidni šeit - VBA Randomize Excel Template1. piemērs
Lai iegūtu nejaušus skaitļus, viss, kas mums jādara, ir pirms RND funkcijas pievienot vienkāršu vienas līnijas līniju “Randomize”.
Kods:
Sub Randomize_1 () Randomize Debug.Print Rnd End Sub
Tagad es palaidīšu kodu 4 reizes un redzēšu, ko es saņemu.
Tas ir ģenerējis iepriekš minētos skaitļus manā lokālajā logā.
Tagad es aizvēršu failu un vēlreiz atvēršu failu.
Kā parasti, vizuālā pamata logā mēs sākam ar tīru lapu.
Tagad es atkal izpildīšu kodu un redzēšu, kādus numurus mēs šoreiz saņemam.
Oho !!! Mēs šoreiz saņēmām dažādus skaitļus.
Tā kā pirms RND funkcijas mēs pievienojām paziņojumu Randomize, mēs katru reizi, kad atkārtoti atveram failu, mēs iegūstam dažādus nejaušus skaitļus.
Tas izskatās kā nejaušs skaitlis, vai ne ???
2. piemērs
Nejaušie skaitļi nekā viens
Kā redzējām, funkcija “RND” var ģenerēt skaitļus tikai no 0 līdz 1. Bet, lai ģenerētu skaitļus, kas ir lielāki par vienu nejaušu skaitli, mums jāizmanto “RANDOM BETWEEN”, kas ir pieejama ar darblapu funkciju klasi.
Tātad, lai ģenerētu nejaušus skaitļus, kas ir lielāki par vienu, mums jāizmanto zemāk redzamais kods.
Kods:
Sub Randomize_2 () Randomize Debug. Drukāt Rnd * 100 End Sub
Tagad es izpildīšu kodu un redzēšu, ko mēs saņemsim.
Šādi mēs varam izmantot VBA paziņojumu “Randomize”, lai ģenerētu nejaušus skaitļus katru reizi, kad mēs atkal atvērtu Excel failu.
