Indholdsfortegnelse
Rnd -funktion
Bruges til at ændre frøværdien, der bruges af tilfældig talgeneratoren til Rnd -funktionen.
Enkle eksempler
123456 | Sub Rnd_Example ()Dim randomValueTilfældiggørrandomValue = RndAfslut Sub |
Rnd Syntaks
I VBA Editor kan du skrive "Rnd (" for at se syntaksen for Rnd -funktionen:
Funktionen Rnd indeholder et argument:
Nummer: [Valgfrit] Ethvert gyldigt numerisk udtryk.
Eksempler på Excel VBA Rnd -funktion
For at generere tilfældig heltal mellem 1 og 10 kan du bruge følgende kode.
12345678 | Sub Rnd_Example1 ()Dim rndValue As SingleTilfældiggørFor i = 1 til 20rndValue = Int ((Rnd * 10) + 1)Næste iAfslut Sub |
Denne kode genererer 20 tilfældigt heltal mellem 1 og 10.
For at generere tilfældig værdi mellem en nedre grænse og en øvre grænse kan du bruge følgende funktion.
123 | Funktion RndSpecial (øvre som single, lavere som single) Som singleRndSpecial = (upperbound - lowerbound) * RndAfslut funktion |
12345 | Sub Rnd_Example2 ()Dim randomValue As SinglerandomValue = RndSpecial (5, 30)MsgBox randomValueAfslut Sub |
Dette vil returnere en tilfældig værdi mellem 5 og 30.