Função VBA - Preenchendo um intervalo com valores aleatórios - Exemplos de código VBA

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 Randomise_Range (Cell_Range As Range) 'Irá randomizar cada célula em Range Dim Cell' Desativar alertas de tela Application.ScreenUpdating = False para cada célula em Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub

O código “Application.ScreenUpdating = FALSE” e “Application.ScreenUpdating = TRUE” servem para desligar e ligar os alertas de tela - tornando 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 () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub

Portanto, neste caso, as células A1: T8000 na folha 3 são preenchidas com números aleatórios - uma vez que o botão de comando 1 é clicado.

Baixe o arquivo .XLSM aqui