VBA – Número Aleatório

Este tutorial demonstrará como trabalhar com números aleatórios no VBA.

Função RND

A função RND gera um número que está entre 0 e 1. A sintaxe da função RND é:

Rnd([Número]) onde:

• Número(opcional) – É opcional e, se <0, a função retorna o mesmo número aleatório em cada chamada usando [Número] como semente; se =0, a função retorna o número aleatório mais recente; se >0, a função retorna o próximo número aleatório gerado. Se estiver em branco, será usado o padrão >0.

Sub RndNum()
    MsgBox Rnd()
End Sub

Para gerar um número aleatório entre dois valores, é necessário usar a função RND em combinação com a função INT (Função Inteiro) usando a seguinte fórmula geral:

• Int(limite inferior + Rnd * ( limite superior – limite inferior + 1 )

Portanto, para gerar um número aleatório entre 2 e 30, você usaria o seguinte código:

Sub GerandoUmNumeroAleatorio()

Dim NumeroAleatorio As Integer

NumeroAleatorio = Int(2 + Rnd * (30 - 2 + 1))
Debug.Print NumeroAleatorio

End Sub