Função Rnd
Usado para alterar o valor de semente usado pelo gerador de número aleatório para a função Rnd.
Exemplos Rnd Simples
123456 | Sub Rnd_Example ()Dim randomValueAleatóriarandomValue = RndEnd Sub |
Sintaxe Rnd
No Editor VBA, você pode digitar “Rnd (” para ver a sintaxe da Função Rnd:
A função Rnd contém um argumento:
Número: [Opcional] Qualquer expressão numérica válida.
Exemplos de função Excel VBA Rnd
Para gerar um valor inteiro aleatório entre 1 e 10, você pode usar o código a seguir.
12345678 | Sub Rnd_Example1 ()Dim rndValue As SingleAleatóriaPara i = 1 a 20rndValue = Int ((Rnd * 10) + 1)Proximo euEnd Sub |
Este código irá gerar 20 valores inteiros aleatórios entre 1 e 10.
Para gerar um valor aleatório entre um limite inferior e um limite superior, você pode usar a seguinte função.
123 | Função RndSpecial (limite superior como único, limite inferior como único) como únicoRndSpecial = (limite superior - limite inferior) * RndFunção Final |
12345 | Sub Rnd_Example2 ()Dim randomValue As SinglerandomValue = RndSpecial (5, 30)MsgBox randomValueEnd Sub |
Isso retornará um valor aleatório entre 5 e 30.