Página 1 de 1
Sorteio de números no excel
Enviado: 31 Mai 2016 às 15:54
por GENECI
Boa tarde!
Considerando o arquivo anexo para sorteios de uma dezena por vez.
É possível usar o comando =aleatório para sortear números de 1 a 50.
De maneira que o número sorteado não (jamais) possa repetir.
Em outras palavras o comando aleatório sorteou o número 26 então o número 26 deve ficar fora de ser sorteado novamente.
Observação: Também pode ser uma fórmula que faça o procedimento.
Grato - Geneci
Re: Sorteio de números no excel
Enviado: 31 Mai 2016 às 16:05
por alexandrevba
Boa tarde!!
Use uma UDF baseado em:
http://www.ozgrid.com/VBA/RandomNumbers.htm
Código: Selecionar todosFunction RandLotto(Bottom As Integer, Top As Integer, Amount As Integer) As String
Dim iArr As Variant
Dim i As Integer
Dim r As Integer
Dim temp As Integer
Application.Volatile
ReDim iArr(Bottom To Top)
For i = Bottom To Top
iArr(i) = i
Next i
For i = Top To Bottom + 1 Step -1
r = Int(Rnd() * (i - Bottom + 1)) + Bottom
temp = iArr(r)
iArr(r) = iArr(i)
iArr(i) = temp
Next i
For i = Bottom To Bottom + Amount - 1
RandLotto = RandLotto & " " & iArr(i)
Next i
RandLotto = Trim(RandLotto)
End Function
Como funciona:
Após inserir em módulo a função
RandLotto, em uma célula digite
, onde 1 é o numero inical até o número 50 e 8 é os números sortados que deseja que apareça.
|Att
Re: Sorteio de números no excel
Enviado: 01 Jun 2016 às 13:56
por GENECI
Boa tarde! Alexendrevba
Obrigado por atender a minha dúvida.
Segui o procedimento e algo deu errado. "Como sempre".
Por favor pode verificar aonde estar o erro através do arquivo anexo.
Ou salvar um arquivo com o código da UDF.
Obs. Uso o excel 2013.
Grato - GENECI.
Re: Sorteio de números no excel
Enviado: 02 Jun 2016 às 08:18
por alexandrevba
Bom dia!!
Abra o arquivo e veja se está ok.
Att
Sorteio de números no excel
Enviado: 02 Jun 2016 às 10:27
por GENECI
Bom dia! Alexandrevba.
É isso mesmo, agora sim está perfeito como solicitado.
Muito obrigado.
Grato - GENECI.