Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Evitar o Zero na Fu...
 
Notifications
Clear all

Evitar o Zero na Função-Rand

 
2024 - VBA & Macros
5 Posts
1 Usuários
0 Reactions
717 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Tenho esse código....

Sub Range_Q05()
Sheets("Folha2").Activate
Range("A6:F11,A13:F18").Formula = "=int(rand()*60)"
End Sub

Seria um tipo de megasena, quando aperto o botão que executa a nos números aleatórios, aparece o número Zero, eu gostaria de saber como faço para evitar o resultado Zero.

Obrigado!!!!!

Att..

 
Postado : 29/07/2011 5:27 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Faça varios testes :

Sub Range_Q05()
    Sheets("Plan2").Activate
    Range("A6:F11,A13:F18").Formula = "=int(rand()*59+1)"
End Sub

Tambem pode dar uma olhada nesta dica :
Gerar Numeros para aposta na Mega Sena
http://www.vbaexcelforum.com/showthread ... -Mega-Sena

[]s

 
Postado : 29/07/2011 8:03 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!!

:shock: Minha nossa !!!!.incrível ..Muito Obrigado!!!!!!

Att..

 
Postado : 30/07/2011 7:17 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Já resolvido, mas, apenas para constar:

Range("A6:F11,A13:F18").Formula = "=ALEATÓRIOENTRE(1,60)"

Só não sei, em ambos os casos, se pretende contornar a repetição...

 
Postado : 30/07/2011 9:12 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia!!

Olá, edson valeu pelo reforço....Obrigado a todos!!!

Att...

 
Postado : 31/07/2011 8:27 am
Forum Jump:
  Tópico Anterior
Próximo Tópico