Chegando e já precisando de ajuda!

2024 - VBA & Macros

Post Recente por Fernando Fernandes 12 anos atrás

5 Posts

3 Usuários

0 Reactions

878 Visualizações

RSS

foxmartins

(@foxmartins)

Posts: 2

New Member

Topic starter

Boa tarde pessoal!

Meu nome é Filipe e sou do interior de São Paulo, trabalho em uma entidade do terceiro setor na área financeira.
Estou precisando muito da ajuda de todos.
Preciso gerar uma planilha com 1 milhão de números aleatórios e sem repetição. Encontrei alguma coisa já em alguns posts, só que nada com essa quantidade de números.
Alguém pode ajudar? Estou com muita urgência!

Muito obrigado!

Abraço a todos!

Postado : 27/03/2013 11:18 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Filipe,

Boa Tarde!

Tentei gerar aqui essa planilha e lhe enviar mais a mesma fica com mais de 16 MB e é impossível carrgá-la no site. Desse modo, segue um código que gera esses números na coluna A. Demora uns 2 ou 3 minutos, mas gera.

Para utilizá-lo, cole o código abaixo em um módulo dentro do editor do VBA e execute-o normalmente presionando F5.

Sub NumeroAleatorios()
    Dim i As Long
    For i = 1 To 1000000
        Range("A" & i).Value = Rnd(i)
    Next
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 27/03/2013 11:57 am

foxmartins

(@foxmartins)

Posts: 2

New Member

Topic starter

Muito obrigado Wagner.

Só que ele está "quebrando" o valor tipo:
0,705547512
0,53342402
0,579518616

Neste caso eu precisaria que fosse tipo assim: Preciso que seja 7 caracteres então ficaria,

0.000.001
0.100.000
0.332.231
0.589.132

Grato

Postado : 27/03/2013 12:11 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

foxmartins,

Boa Noite!

Veja se assim resolve. No arquivo anexo tem apenas 10 números. Para gerar 1.000.000 de números, altere o número 10 no comando FOR para 1000000.

Numeros Aleatórios.rar

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 27/03/2013 4:40 pm