Excel VBA – Instrução For Next insere Numeros Aleatorios

Tempo de leitura: menos de 1 minuto

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

Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
GERAR NUMEROS ALEATÓRIOS E SOMAR
Usando uma instrução For Next e Função Rnd() vamos gerar números aleatórios e somar os valores, e retornar 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:
[wpdm_package id=’472′]

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.