Como executar macro automaticamente quando o resultado da fórmula da célula muda?
Supondo que eu tenha uma lista de fórmulas com base nos dados da coluna A e da coluna B, conforme a captura de tela mostrada a seguir, agora, quero executar um código de macro específico automaticamente quando o resultado da fórmula muda com a mudança de células relativas. Existe alguma boa ideia para resolver esse trabalho no Excel?
Executar macro automaticamente quando o resultado da fórmula da célula mudar com o código VBA
Executar macro automaticamente quando o resultado da fórmula da célula mudar com o código VBA
O seguinte código VBA pode ajudá-lo a executar um código específico automaticamente quando a célula do resultado da fórmula mudar, faça o seguinte:
1. Clique com o botão direito na guia da planilha que deseja usar e escolha Ver código a partir do menu de contexto, no aberto Microsoft Visual Basic para aplicativos janela, copie e cole o seguinte código no módulo em branco:
Código VBA: executa macro automaticamente quando o resultado da fórmula da célula muda:
Private Sub Worksheet_Calculate()
'Updateby Extendoffice
Dim Xrg As Range
Set Xrg = Range("C2:C8")
If Not Intersect(Xrg, Range("C2:C8")) Is Nothing Then
Macro1
End If
End Sub
Note: No código acima, C2: C8 é o intervalo de células da fórmula que você deseja usar,maco1 é o nome da macro que você deseja executar automaticamente. Por favor, mude de acordo com sua necessidade.
2. Em seguida, salve e feche esta janela de código, agora, quando os dados no intervalo A2: B8 forem alterados para causar alterações no resultado da fórmula, seu código de macro específico será acionado imediatamente.
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!