Como tornar o nome do Botão de Comando dinâmico no Excel?
Este artigo discute como fazer com que o nome de um Botão de Comando seja alterado dinamicamente com as mudanças de valor de uma célula específica. Por exemplo, quando o valor na célula A1 for alterado para “teste”, o nome de um determinado Botão de Comando será automaticamente alterado para “teste”.
Tornar o nome do Botão de Comando dinâmico com o valor da célula usando código VBA
Tornar o nome do Botão de Comando dinâmico com o valor da célula usando código VBA
O seguinte código VBA pode ajudá-lo a tornar o nome de um botão de comando dinâmico com um valor específico de uma célula em uma planilha. Por favor, siga os passos abaixo.
1. Clique em Desenvolvedor > Inserir > Botão de Comando (Controle ActiveX) para inserir um botão de comando na planilha. Veja a captura de tela:
2. Após inserir o botão de comando, clique com o botão direito na aba da planilha e clique em Visualizar Código no menu de contexto, conforme mostrado na captura de tela abaixo:
3. Na janela Microsoft Visual Basic for Applications que se abre, copie e cole o seguinte código VBA na janela.
Código VBA: Tornar o nome do Botão de Comando dinâmico com o valor da célula
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End SubObservação: no código, CommandButton1 é o nome do botão que você deseja tornar dinâmico, e A1 é a célula que você usará como referência para alterar automaticamente o nome do botão.
4. Pressione as teclas Alt + Q para sair da janela Microsoft Visual Basic for Applications.
5. Desative o Modo de Design clicando em Desenvolvedor > Modo de Design.
A partir de agora, o nome do Botão de Comando será alterado dinamicamente com o valor da célula especificada em sua planilha.
Como mostrado na captura de tela abaixo, quando o valor da célula A1 for alterado, o nome do botão de comando será automaticamente alterado para o mesmo valor.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos Relacionados:
- Como usar o Botão de Comando para salvar a planilha ativa como arquivo PDF no Excel?
- Como inserir automaticamente uma nova linha em branco com o Botão de Comando no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins