Ši pamoka parodys, kaip dirbti su atsitiktiniais skaičiais VBA.
RND funkcija
Funkcija RND generuoja skaičių nuo 0 iki 1. RND funkcijos sintaksė yra tokia:
Rnd ([skaičius]), kur:
- Skaičius (Neprivaloma)- Tai neprivaloma ir, jei 0, funkcija grąžina kitą sugeneruotą atsitiktinį skaičių. Jei tuščias, naudojamas numatytasis> 0.
123 | Sub RndNum ()„MsgBox Rnd“ ()Pabaiga Sub |
Atsitiktinio skaičiaus generavimas VBA
Norėdami sugeneruoti atsitiktinį skaičių tarp dviejų verčių, turite naudoti funkciją RND kartu su funkcija INT (sveikojo skaičiaus funkcija) pagal šią bendrą formulę:
- Int (apatinė riba + Rnd * (viršutinė - apatinė + 1))
Taigi, norėdami sugeneruoti atsitiktinį skaičių nuo 2 iki 30, turėtumėte naudoti šį kodą:
12345678 | Sub GeneratingARandomNumber ()Pritemdyti atsitiktinį skaičių kaip sveiką skaičiųrandomNumber = Int (2 + Rnd * (30 - 2 + 1))Derinti. Atspausdinti atsitiktinį skaičiųPabaiga Sub |