Функція VBA: Rnd

Опис

Функція VBA Rnd повертає випадкове число, менше за 1 і більше або дорівнює 0.

Синтаксис Rnd

Rnd

Приклад VBA Rnd

Деякі приклади значень, які повертає функція Rnd:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Повертає, наприклад: 0.1790262
    MsgBox Rnd 'Повертає, наприклад: 0.734448
    MsgBox Rnd 'Повертає, наприклад: 0.4870669
    MsgBox Rnd 'Повертає, наприклад: 0.9100572
    MsgBox Rnd 'Повертає, наприклад: 0.7860449
    MsgBox Rnd 'Повертає, наприклад: 0.1607063
    
End Sub

Згенеруємо випадкове ціле число від 1 до 10 за допомогою функції Rnd:

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

Sub RndExample2()
    
    MsgBox RandomNumber 'Повертає, наприклад: 6
    MsgBox RandomNumber 'Повертає, наприклад: 2
    MsgBox RandomNumber 'Повертає, наприклад: 10
    MsgBox RandomNumber 'Повертає, наприклад: 7
    MsgBox RandomNumber 'Повертає, наприклад: 9
    MsgBox RandomNumber 'Повертає, наприклад: 1
    MsgBox RandomNumber 'Повертає, наприклад: 8
    
End Sub