Satura rādītājs
Rnd funkcija
Izmanto, lai mainītu sēklu vērtību, ko nejaušo skaitļu ģenerators izmanto funkcijai Rnd.
Vienkārši Rnd piemēri
| 123456 | Rnd_Example ()Dim randomValueRandomizētrandomValue = RndBeigu apakš |
Rnd sintakse
VBA redaktorā varat ierakstīt “Rnd (”), lai redzētu funkcijas Rnd sintaksi:
Funkcija Rnd satur šādu argumentu:
Skaitlis: [Neobligāti] Jebkura derīga ciparu izteiksme.
Excel VBA Rnd funkcijas piemēri
Lai ģenerētu nejaušu veselu skaitli no 1 līdz 10, varat izmantot šādu kodu.
| 12345678 | Rnd_Example1 ()Dim rndValue Kā viensRandomizētJa i = 1 līdz 20rndValue = Int ((Rnd * 10) + 1)Tālāk iBeigu apakš |
Šis kods ģenerēs 20 nejaušu veselu skaitļu vērtību no 1 līdz 10.
Lai ģenerētu nejaušu vērtību starp apakšējo un augšējo robežu, varat izmantot šādu funkciju.
| 123 | Funkcija RndSpecial (augšējā daļa kā viena, apakšējā daļa kā viena) kā vienaRndSpecial = (augšējā - apakšējā) * RndBeigu funkcija |
| 12345 | Rnd_Example2 ()Dim randomValue kā SinglerandomValue = RndSpecial (5, 30)MsgBox randomValueBeigu apakš |
Tādējādi tiks atgriezta nejauša vērtība no 5 līdz 30.
