Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Não Repetir Números Aleatórios

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Alessandromc29



Mensagens : 2
Data de inscrição : 05/09/2011

MensagemAssunto: Não Repetir Números Aleatórios   Seg Set 05, 2011 6:35 pm

Caros,

Tentei sem sucesso fazer uma macro para sorteio de Bingo Sad . A mesma tem que fazer o seguinte:

- Gerar um número aleatório entre 1 e 75;
- A medida que os números forem saindo os mesmos não podem sair mais;
- Uma opção para voltar para o início caso seja necessário iniciar com todos os números novamente.

Tentei vencer esse desafio mas não conheço quase nada de VBA, espero que alguem possa nos ajudar a entender como pode ser feito iso.

desde já agradeço a atenção de todos cheers

Alessandro
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Não Repetir Números Aleatórios   Ter Set 06, 2011 12:50 am

Boa noite!!

Veja se isso te ajuda

Sub Sorteio()
Dim Vetor()
Dim Qt As Long
Dim i As Long
Dim n As Long
Dim Max As Long

Columns("A").Clear
Qt = [C1].Value
Max = [C2].Value
If Qt > Max Then
MsgBox "O valor da célula C1 não pode ser maior que o da célula C2!"
Exit Sub
End If
ReDim Vetor(Max)
For i = 1 To Max
Vetor(i) = i
Next

For i = 1 To Qt
n = Int(Rnd * (Max - i + 1)) + 1
Vetor(0) = Vetor(n + i - 1)
Vetor(n + i - 1) = Vetor(i)
Vetor(i) = Vetor(0)
Cells(i, 1).Value = Vetor(i)
Next
End Sub

Att...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Não Repetir Números Aleatórios
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Como gerar números aleatórios sem repetir?
» [Resolvido]Backgrounds aleatórios: é possível?
» [TUTORIAL] Widget com conteúdos aleatórios
» Números Aleatórios - Numbers
» Tilesets aleatórios

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: