Rnd funkcija
Koristi se za promjenu vrijednosti sjemena koju koristi generator slučajnih brojeva za funkciju Rnd.
Jednostavni Rnd primjeri
123456 | Sub Rnd_Example ()Dim randomValueNasumičnorandomValue = RndKraj podm |
Rnd sintaksa
U VBA Editor -u možete upisati "Rnd (" da vidite sintaksu za funkciju Rnd:
Funkcija Rnd sadrži argument:
Broj: [Izborno] Bilo koji važeći numerički izraz.
Primjeri funkcije Excel VBA Rnd
Za generiranje slučajne cijele vrijednosti između 1 i 10 možete upotrijebiti sljedeći kod.
12345678 | Pod Rnd_Primjer1 ()Dim rndValue As SingleNasumičnoZa i = 1 do 20rndValue = Int ((Rnd * 10) + 1)Sljedeći iKraj podm |
Ovaj će kôd generirati 20 slučajnih cijelih vrijednosti između 1 i 10.
Za generiranje slučajne vrijednosti između donje i gornje granice možete koristiti sljedeću funkciju.
123 | Funkcija RndSpecial (gornja granica kao pojedinačna, donja kao pojedinačna) kao pojedinačnaRndSpecial = (gornja granica - donja granica) * RndZavršna funkcija |
12345 | Sub Rnd_Example2 ()Priguši randomValue As SinglerandomValue = RndSpecial (5, 30)MsgBox randomValueKraj podm |
Ovo će vratiti slučajnu vrijednost između 5 i 30.