Escola Saberexcel VBA Estudos® - Treinamentos com Macros & Curso Excel VBA Planilhas

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), vos GERAR NUMEROS ALEATÓRIOS E SOMAR
Usando uma instrução For Next e Função Rnd() vamos gerar números aleatorios e somar os valores, e retonar 2(duas) linhas abaixo. 

Sub sbx_aleatorio_for_next()
Dim i As Integer
Dim soma As Double
For i = 2 To Cells(Rows.Count, "b").End(xlUp).Row
Cells(i, "d").Value = CDbl((Rnd * 1000))
tSoma = tSoma + Cells(i, "d")
Next i
Cells(i + 1, "d").Value = tSoma
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.




 
 Baixe o exemplo de planilha contendo os macros acima:
 SBL Excel VBA - Instrução For Next insere Aleatorios (36.95 kB)