Macro para gerar números aleatórios
Gerar números aleatório no Excel não é nada complicado, temos as funções ALEATÓRIO e a ALEATÓRIOENTRE. A primeira delas retorna um número aleatório entre 0 e 1, e a segunda retorna um número aleatório entre quaisquer dois números indicados pelo usuário.
Porém essa facilidade toda não é vista nas macros, quando precisamos gerar um número aleatório sem sair do código, sem usar uma célula da planilha. Isso acontece por que não existe uma função própria pra isso nas macros (existe apenas para a função ALEATÓRIO). Mas sempre se dá um jeitinho.
Código VBA para números aleatórios
Eis o código a ser utilizado:
x = Int((180 - 0 + 1) * Rnd + 0)
Esta simples linha de código irá gerar um número aleatório entre 0 e 180 que será armazenado na variável x.
Outro exemplo:
x = Int((85 - 15 + 1) * Rnd + 15)
Esta linha gera um número aleatório entre 15 e 85 que será armazenado na variável x.
Espero ter ajudado.