Detalhes de vba jogos mega sena faz seis jogos aleatorios confere palpite

Saberexcel o site das Macros
Essas macros do Aplicativo Microsoft Excel VBA, conferem jogos da mega-sena, com auxílio de algumas fórmulas, fazem 6 jogos aleatórios.

Sub NN()
Application.SendKeys ("{DEL}") 'quit
End Sub

Sub contador()
x
i = 0
For i = 1 To Range("J1").Value
NN
Next
End Sub

Sub xx()
Application.Calculation = xlCalculationManual
End Sub

Sub x()
'Insira aqui o seu código
Application.Calculation = xlCalculationAutomatic
End Sub

Sub x1x()
Range("J1").FormulaR1C1 = "=INT(RAND()*10)"
Sheets("Mega-sena").Shapes("Botao").TextFrame.Characters.Text = "Computador Jogue com !! - " & Range("J1") & " interações"
End Sub

Sub x1xx()
Range("J1").FormulaR1C1 = "=INT(RAND()*100)"
Sheets("Mega-sena").Shapes("Botao").TextFrame.Characters.Text = "Computador Jogue com !! - " & Range("J1") & " interações"
End Sub

Sub x1xxx()
Range("J1").FormulaR1C1 = "=INT(RAND()*1000)"
Sheets("Mega-sena").Shapes("Botao").TextFrame.Characters.Text = "Computador Jogue com !! - " & Range("J1") & " interações"
End Sub

Sub x1xxxx()
Range("J1").FormulaR1C1 = "=INT(RAND()*10000)"
Sheets("Mega-sena").Shapes("Botao").TextFrame.Characters.Text = "Computador Jogue com !! - " & Range("J1") & " interações"
End Sub

Sub Jogue()
contador
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA






Compre com segurança, garantia e ótimos preços