Como executar uma macro com base no valor de uma célula no Excel?
Imagine que tem várias macros na sua pasta de trabalho e pretende executá-las com base no valor de uma célula. Neste artigo, abordamos diversas situações que poderá encontrar no seu dia a dia com o Excel.
Executar ou acionar macro se a célula Valor Igual texto específico com código VBA
Executar ou acionar macro se o valor da célula for superior ou inferior a um valor específico com código VBA
Por exemplo, se o valor na célula A1 estiver entre 10 e 50, execute a Macro1; se for maior que 50, execute a Macro2. Para realizar esta tarefa no Excel, aplique o seguinte código VBA.
1. Clique com o botão direito do rato no separador da folha onde pretende executar a macro com base num valor de célula e, em seguida, escolha Ver Código no menu de contexto. Na janela do Microsoft Visual Basic para Aplicações aberta, copie e cole o seguinte código no módulo em branco:
Código VBA: Executar macro se o valor da célula for superior ou inferior:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Nota: No código acima:
A1é a célula que contém o valor específico com base no qual pretende executar a macro;
Case 10 To 50: Macro1: significa que, se o valor estiver entre 10 e 50, a Macro1 será executada;
Case Is > 50: Macro2: significa que, se o valor for maior do que 50, a Macro2 será executada.
Altere os nomes destas macros e os critérios de acordo com as suas necessidades e pode ainda adicionar mais critérios seguindo o script Case.
2. Depois, guarde e feche esta janela de código. Agora, ao introduzir um valor entre 10 e 50 na célula A1, a Macro1 será acionada; se o valor introduzido for maior que 50, a Macro2 será executada.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Executar ou acionar macro se a célula Valor Igual texto específico com código VBA
Se pretender executar uma macro com base num texto específico introduzido numa célula — por exemplo, executar a macro1 ao digitar «Delete» e a macro2 ao digitar «Insert» — o código seguinte poderá ajudá-lo.
1. Clique com o botão direito do rato na folha onde pretende executar a macro com base no valor da célula e, em seguida, escolha Ver Código no menu de contexto. Na janela do Microsoft Visual Basic para Aplicações aberta, copie e cole o seguinte código no módulo em branco:
Código VBA: Executar macro se o valor da célula for um texto específico
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Nota: No código acima, «Delete» e «Insert» são os textos das células com base nos quais pretende executar macros, e Macro1 e Macro2 são as macros que pretende executar com base nesses textos. Altere-os conforme as suas necessidades.
2. Depois, guarde este código e feche esta janela. Ao introduzir o texto «Delete» na célula A1, a macro1 será acionada; se introduzir «Insert», a macro2 será executada.
Artigos relacionados:
Como executar uma macro quando o valor da célula muda no Excel?
Como executar automaticamente uma macro antes de imprimir no Excel?
Como executar uma macro com base no valor selecionado numa lista pendente no Excel?
Como executar uma macro ao clicar numa hiperligação no Excel?
Como executar uma macro ao selecionar uma folha de uma pasta de trabalho?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos