Vba: como usar randbetween para gerar números aleatórios

Você pode usar o método RandBetween em VBA para gerar um número inteiro aleatório entre dois valores específicos.

Aqui estão duas maneiras comuns de usar esse método na prática:

Método 1: use RandBetween para gerar um número inteiro aleatório

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Esta macro específica irá gerar um número inteiro aleatório entre 1 e 100 na célula A1 .

Método 2: use RandBetween para gerar vários números inteiros aleatórios

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Esta macro específica irá gerar um número inteiro aleatório entre 1 e 100 para cada célula no intervalo A1:A10 .

Os exemplos a seguir mostram como usar cada um desses métodos na prática.

Exemplo 1: Use RandBetween para gerar um número inteiro aleatório

Suponha que queiramos gerar um número aleatório entre 1 e 100 e colocar o resultado na célula A1 da nossa planilha atual no Excel.

Podemos criar a seguinte macro para fazer isso:

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que a célula A1 contém o valor 36 .

Observe que cada vez que executamos esta macro, um valor inteiro diferente entre 1 e 100 pode ser gerado.

Exemplo 2: Use RandBetween para gerar vários números inteiros aleatórios

Suponha que, em vez disso, queiramos gerar um número inteiro aleatório entre 1 e 100 para cada célula no intervalo A1:A10 .

Podemos criar a seguinte macro para fazer isso:

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que cada célula no intervalo A1:A10 contém um número inteiro aleatório entre 1 e 100.

Nota : Você pode encontrar a documentação completa para o método RandBetween VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como escrever funções AVERAGEIF e AVERAGEIFS
VBA: Como escrever funções SUMIF e SUMIFS
VBA: Como escrever funções COUNTIF e COUNTIFS