Funkcija Rnd
Uporablja se za spreminjanje vrednosti semena, ki jo uporablja generator naključnih števil za funkcijo Rnd.
Preprosti primeri Rnd
123456 | Sub Rnd_Example ()Zatemni naključno vrednostNaključnorandomValue = RndEnd Sub |
Sintaksa Rnd
V urejevalniku VBA lahko vnesete »Rnd («, če si želite ogledati skladnjo funkcije Rnd:
Funkcija Rnd vsebuje argument:
Številka: [Izbirno] Vsak veljaven številski izraz.
Primeri funkcije Excel VBA Rnd
Če želite ustvariti naključno celo število med 1 in 10, lahko uporabite naslednjo kodo.
12345678 | Sub Rnd_Example1 ()Zatemni rndValue kot enojnoNaključnoZa i = 1 do 20rndValue = Int ((Rnd * 10) + 1)Naprej iEnd Sub |
Ta koda bo ustvarila 20 naključnih celoštevilčnih vrednosti med 1 in 10.
Če želite ustvariti naključno vrednost med spodnjo in zgornjo mejo, lahko uporabite naslednjo funkcijo.
123 | Funkcija RndSpecial (zgornja meja kot enojna, spodnja kot enojna) kot enojnaRndSpecial = (zgornja meja - spodnja meja) * RndKončana funkcija |
12345 | Sub Rnd_Example2 ()Zatemni randomValue As SinglerandomValue = RndSpecial (5, 30)MsgBox randomValueEnd Sub |
To bo vrnilo naključno vrednost med 5 in 30.