Notifications
Clear all

Escolher aleatoriamente

3 Posts
2 Usuários
0 Reactions
686 Visualizações
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Boa tarde
Como escolher alguns números aleatoriamente dentro do intervalo.
Grato

 
Postado : 13/08/2013 9:57 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se atende.

Sub seleciona()
'Declara um Array
Dim Nums(99) As Long
'Declara a range
Dim myRng As Range
Set myRng = Sheets("Plan1").Range("K3:T12")
'Atribuímos valores para o Array
x = 0
For Each cel In myRng
Nums(x) = cel.Value
x = x + 1
Next
Randomize
'Adiciona os valores nas celulas M15:Q15
For i = 13 To 17
Cells(15, i).Value = Nums(CInt(Rnd() * 99))
Next
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 13/08/2013 11:01 am
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Boa tarde
Reinaldo, grato por ter respondido e funcionado 100% dentro dos parâmetros dados. Alterando os valores nas linhas para outros valores, o resultado ficou estranho.

Dim Nums(99) As Long "35"

Set myRng = Sheets("Plan1").Range("K3:T12") "K3:O6"

Cells(15, i).Value = Nums(CInt(Rnd() * 99)) "35"

Ou será que alterei errado? :D

 
Postado : 13/08/2013 1:30 pm