Como repetir ou fazer um loop de uma macro a cada X minutos no Excel?
Ao trabalhar com o Microsoft Excel, pode ser necessário criar macros para realizar algumas operações. Por exemplo, você deseja criar uma Macro para copiar automaticamente um intervalo de dados para um novo local. Como os dados são alterados com frequência, você precisa que esta Macro seja executada automaticamente a cada 5 minutos, sem acioná-la manualmente, para sincronizar esses dois intervalos de dados. Como conseguir isso? O método neste artigo pode ajudá-lo.
Repita ou loop uma macro a cada X minutos no Excel
Repita ou loop uma macro a cada X minutos no Excel
O seguinte código VBA pode ajudá-lo a repetir uma macro a cada X minutos no Excel. Faça o seguinte.
1. Pressione outro + F11 chaves ao mesmo tempo para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie e cole o código VBA abaixo no Code janela. Veja a imagem:
Código VBA: repita ou loop uma macro a cada X minutos no Excel
Sub ReRunMacro()
Dim xMin As String
'Insert your code here
xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
If xMin = "Exit" Then
SaveSetting "Kutools", "Macro", "min", "False"
Exit Sub
End If
If (xMin = "") Or (xMin = "False") Then
xMin = Application.InputBox(prompt:="Please input the interval time you need to repeat the Macro", Title:="Kutools for Excel", Type:=2)
SaveSetting "Kutools", "Macro", "min", xMin
End If
If (xMin <> "") And (xMin <> "False") Then
Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
Else
Exit Sub
End If
End Sub
Note: No código, substitua esta linha 'Insira seu código aqui com o código que você executará a cada X minutos.
3. aperte o F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, insira o intervalo de tempo em que você repetirá a macro com base e clique no botão OK botão. Veja a imagem:
De agora em diante, determinada Macro será executada repetidamente a cada 5 minutos em sua pasta de trabalho.
Note: Se você precisar interromper a execução da macro e alterar o intervalo do ciclo, copie o código VBA abaixo para o mesmo Módulo janela e pressione o F5 chave para executar o código. Em seguida, a macro será interrompida, execute novamente o código acima para especificar um novo intervalo.
Código VBA: interromper a execução da macro
Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub
Office Tab - Navegação com guias, edição e gerenciamento de pastas de trabalho no Excel:
O Office Tab traz a interface com guias como vista em navegadores da Web, como Google Chrome, novas versões do Internet Explorer e Firefox, para o Microsoft Excel. Será uma ferramenta que economiza tempo e é insubstituível no seu trabalho. Veja a demonstração abaixo:
Artigos relacionados:
- Como repetir linhas ao rolar a planilha no Excel?
- Como repetir a última ação ou a anterior no Excel?
- Como imprimir linhas repetidamente na parte inferior de cada página impressa no Excel?
- Como repetir um valor de célula até que um novo valor seja visto ou alcançado no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!