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 runāju par Randomize paziņojumu, ļ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, apskatiet zemāk redzamo kodu.
Kods:
Sub RND_Example () atkļūdošana. Drukāt Rnd End Sub
Kad palaidu kodu logā Tūlītēja, es redzu zemāk redzamo numuru.
Līdzīgi, izpildot šo kodu vēl 3 reizes, es redzu 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 atkal es 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 vienādi un 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?
1. piemērs
Lai iegūtu nejaušus skaitļus, viss, kas mums jādara, ir pirms RND funkcijas pievienot vienkāršo 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, 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.
