Excel VBA Macros Planilhas Funcoes e ´Formulas
Loto - extrai seis números aleatórios10 de Julho, 2008
‘Esta macro extrai 6 números aleatórios somente ate 49

Sub Loto()
Dim i, choice, bolas(49)
For i = 1 To 49
bolas(i) = i
Next
Randomize Timer
For i = 1 To 6
choice = 1 + Int((Rnd * (49 - i)))
ActiveCell.Offset(0, i - 1).Value = bolas(choice)
bolas(choice) = bolas(50 - i)
Next
End Sub
‘—‘
Site das Macros Excel VBA
( 15.000 Macros, Funções, Fórmulas, Blog, Apostilas, Dicas, Boletins, 5.000 Planilhas Modelos)
http://www.saberexcel.com/