Rnd funkcija
Naudojamas norint pakeisti sėklos vertę, kurią atsitiktinių skaičių generatorius naudoja funkcijai Rnd.
Paprasti Rnd pavyzdžiai
123456 | Rnd_Example ()Pritemdyti atsitiktinę vertęAtsitiktinairandomValue = RndPabaiga Sub |
Rnd sintaksė
VBA redaktoriuje galite įvesti „Rnd (“), kad pamatytumėte „Rnd“ funkcijos sintaksę:
Funkcijoje Rnd yra argumentas:
Skaičius: [Neprivaloma] Bet kokia tinkama skaitinė išraiška.
„Excel VBA Rnd“ funkcijos pavyzdžiai
Norėdami sugeneruoti atsitiktinę sveikų skaičių vertę nuo 1 iki 10, galite naudoti šį kodą.
12345678 | Rnd_Example1 ()Dim rndValue As SingleAtsitiktinaiJei i = nuo 1 iki 20rndValue = Int ((Rnd * 10) + 1)Kitas I.Pabaiga Sub |
Šis kodas sugeneruos 20 atsitiktinių sveikų skaičių nuo 1 iki 10.
Norėdami sukurti atsitiktinę vertę tarp apatinės ir viršutinės ribos, galite naudoti šią funkciją.
123 | Funkcija RndSpecial (viršutinė riba kaip vieniša, apatinė - vieniša) kaip vienišaRndSpecial = (viršutinė - apatinė) * RndPabaigos funkcija |
12345 | Rnd_Example2 ()Dim randomValue As SinglerandomValue = RndSpecial (5, 30)„MsgBox randomValue“Pabaiga Sub |
Tai grąžins atsitiktinę vertę nuo 5 iki 30.