Função VBA – Preenchimento de um Intervalo com Valores Aleatórios

Preencher Células com Valores Aleatórios

O código a seguir preencherá um determinado intervalo com um número aleatório entre 0 e 1000:

Sub Randomizar_Intervalo(Intervalo_Celula As Range)
' Irá randomizar cada célula no intervalo
   Dim Celula
'Desativar os alertas de tela
   Application.ScreenUpdating = False
   For Each Celula In Intervalo_Celula
      Celula.Value = Rnd * 1000
   Next Celula
   Application.ScreenUpdating = True
End Sub

As linhas “Application.ScreenUpdating =FALSE” e “Application.ScreenUpdating = TRUE” servem para desativar e ativar os alertas de tela, o que torna a execução do código muito mais rápida.

Ele pode ser configurado por meio de um evento de clique, com a rotina principal especificando o intervalo:

Private Sub CommandButton1_Click()
Randomizar_Intervalo(Sheets("Planilha3").Range("A1:T8000"))
End Sub

Portanto, nesse caso, as células A1:T8000 na planilha 3 são preenchidas com números aleatórios, assim que o botão de comando 1 é clicado

Faça download do arquivo .XLSM aqui

<<Retornar aos exemplos de VBA