Функция 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

Всегда добавляйте инструкцию Randomize в вашу процедуру или функцию перед использованием функции Rnd, чтобы случайные числа не повторялись.

Сгенерируем случайное целое число от 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