TOP

Funkcja VBA: Rnd

Opis

Funkcja VBA Rnd zwraca liczbę losową mniejszą niż 1 i większą lub równą 0.


Składnia Rnd

Rnd

Przykład VBA Rnd

Kilka przykładów wartości zwracanych przez funkcję Rnd:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Zwroty np.: 0,1790262
    MsgBox Rnd 'Zwroty np.: 0,734448
    MsgBox Rnd 'Zwroty np.: 0,4870669
    MsgBox Rnd 'Zwroty np.: 0,9100572
    MsgBox Rnd 'Zwroty np.: 0,7860449
    MsgBox Rnd 'Zwroty np.: 0,1607063
    
End Sub
Zawsze dodawaj instrukcję Randomize do swojej procedury lub funkcji przed użyciem funkcji Rnd, aby liczby losowe się nie powtarzały.

Wygenerujmy losową liczbę całkowitą od 1 do 10 za pomocą funkcji Rnd:

Function RandomNumber()
    
    Randomize
    
    RandomNumber = Int(Rnd * 10 + 1)
    
End Function

Sub RndExample2()
    
    MsgBox RandomNumber 'Zwroty, na przykład: 6
    MsgBox RandomNumber 'Zwroty, na przykład: 2
    MsgBox RandomNumber 'Zwroty na przykład: 10
    MsgBox RandomNumber 'Zwroty, na przykład: 7
    MsgBox RandomNumber 'Zwroty na przykład: 9
    MsgBox RandomNumber 'Zwroty, na przykład: 1
    MsgBox RandomNumber 'Zwroty na przykład: 8
    
End Sub