Notifications
Clear all

Chegando e já precisando de ajuda!

5 Posts
3 Usuários
0 Reactions
858 Visualizações
(@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-vidal-nobre)
Posts: 4063
Famed 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
 
Postado : 27/03/2013 11:57 am
(@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-vidal-nobre)
Posts: 4063
Famed 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.

 
Postado : 27/03/2013 4:40 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Olá seja bem vindo (a), Felipe!!!...quando for postar use os sub-foruns, aqui é só para apresentações!!!

Seu tópico foi movimentado para um local de acordo com sua duvida.

Por favor Leia os links abaixo, obrigado!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att ;)

 
Postado : 27/03/2013 5:37 pm