Função VBA: Rnd

Descrição

A função VBA Rnd retorna um número aleatório menor que 1 e maior ou igual a 0.

Sintaxe Rnd

Rnd

Exemplo VBA Rnd

Alguns exemplos de valores retornados pela função Rnd:

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd 'Retorna, por exemplo: 0,1790262
    MsgBox Rnd 'Retorna, por exemplo: 0,734448
    MsgBox Rnd 'Retorna, por exemplo: 0,4870669
    MsgBox Rnd 'Retorna, por exemplo: 0,9100572
    MsgBox Rnd 'Retorna, por exemplo: 0,7860449
    MsgBox Rnd 'Retorna, por exemplo: 0,1607063
    
End Sub

Vamos gerar um número inteiro aleatório de 1 a 10 usando a função Rnd:

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

Sub RndExample2()
    
    MsgBox RandomNumber 'Retorna, por exemplo: 6
    MsgBox RandomNumber 'Retorna, por exemplo: 2
    MsgBox RandomNumber 'Retorna, por exemplo: 10
    MsgBox RandomNumber 'Retorna, por exemplo: 7
    MsgBox RandomNumber 'Retorna, por exemplo: 9
    MsgBox RandomNumber 'Retorna, por exemplo: 1
    MsgBox RandomNumber 'Retorna, por exemplo: 8
    
End Sub