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 planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Baixe o exemplo de planilha contendo macros e fórmulas acima
Excel planilha vba jogos mega sena faz seis jogos aleatorios confere palpite (16.1 kB)
Compre com segurança, garantia e ótimos preços