- Inicie o editor do Visual Basic – VBA (Alt+F11), ou clique na aba Desenvolvedor e no botão Visual Basic.
- Abra um novo modulo (Alt, I, M), ou clique na pasta módulos do projeto existente e abra o módulo.
- Insira o texto VBA copiando e colando o código abaixo:
Public qvezes As Integer
Sub contaTempo()
'altera o tempo'
Application.OnTime Now + TimeValue("00:04:00"), "teste_Tempo"
End Sub
Sub teste_Tempo()
qvezes = qvezes + 1
Dim browser As Variant
Set browser = CreateObject("InternetExplorer.Application")
'altera o endereço'
browser.Navigate ("https://www.google.com.br/search?q=pra+crente")
browser.StatusBar = True
browser.Toolbar = True
browser.Visible = True
browser.Resizable = True
browser.AddressBar = True
'limita ou altera os ciclos'
If qvezes < 30000 Then
Call contaTempo
Else
qvezes = 0
End If
End Sub
Public Sub Auto_Open()
Call teste_Tempo
End Sub
- Feche o Visual Basic (VBA).
- No Excel clique na guia Desenvolvedor. Caso não esteja disponível segue Como Ativar a Guia Desenvolvedor.
- Clique no botão macros e selecione o Nome_Da_MAcro.
- Clique em executar.
EmoticonEmoticon