Funcția Rnd
Folosit pentru a schimba valoarea seed utilizată de generatorul de numere aleatorii pentru funcția Rnd.
Exemple Rnd simple
123456 | Sub Rnd_Example ()Reduceți valoarea aleatorieRandomizerandomValue = RndSfârșitul Sub |
Sintaxa Rnd
În Editorul VBA, puteți tasta „Rnd (” pentru a vedea sintaxa funcției Rnd:
Funcția Rnd conține un argument:
Număr: [Opțional] Orice expresie numerică validă.
Exemple de funcții Excel VBA Rnd
Pentru a genera o valoare întreagă aleatorie între 1 și 10, puteți utiliza următorul cod.
12345678 | Sub Rnd_Example1 ()Dim rndValue As SingleRandomizePentru i = 1 până la 20rndValue = Int ((Rnd * 10) + 1)Apoi euSfârșitul Sub |
Acest cod va genera 20 de valori aleatoare între 1 și 10.
Pentru a genera valoare aleatorie între o limită inferioară și una superioară, puteți utiliza următoarea funcție.
123 | Funcția RndSpecial (upperbound As Single, lowerbound As Single) As SingleRndSpecial = (upperbound - lowerbound) * RndFuncția de sfârșit |
12345 | Sub Rnd_Example2 ()Reduceți valoarea aleatorie ca unicrandomValue = RndSpecial (5, 30)MsgBox randomValueSfârșitul Sub |
Aceasta va returna o valoare aleatorie între 5 și 30.