Como tornar o nome de um Botão de Comando dinâmico no Excel?
Este artigo explica como alterar dinamicamente o nome de um botão de comando sempre que o valor de uma célula específica for modificado. Por exemplo, quando o valor da célula A1 mudar para «test», o nome do botão de comando em questão será automaticamente atualizado para «test».
Tornar o nome do Botão de Comando dinâmico com base no valor de uma célula através de código VBA
Tornar o nome do Botão de Comando dinâmico com base no valor de uma célula através de código VBA
O código VBA seguinte permite-lhe tornar o nome de um botão de comando dinâmico, associando-o ao valor de uma célula específica na folha de cálculo. Siga os passos indicados em seguida.
1. Clique em Programador > Inserir > Botão de Comando (Controlo ActiveX) para inserir um botão de comando na folha de cálculo. Veja a imagem:
2. Após inserir o botão de comando, clique com o botão direito no separador da folha e selecione Ver Código no menu de contexto, conforme ilustrado na imagem seguinte:
3. Na janela Microsoft Visual Basic para Aplicações que se abre, copie e cole o seguinte código VBA.
Código VBA: Tornar o nome do Botão de Comando dinâmico com base no valor de uma 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 SubNota: no código, CommandButton1 é o nome do botão cujo rótulo pretende tornar dinâmico e A1 é a célula cujo valor será automaticamente atribuído ao nome do botão.
4. Prima as teclas Alt+Q para fechar a janela do Microsoft Visual Basic para Aplicações.
5. Desative o Modo de Estrutura clicando em Programador > Modo de Estrutura.
A partir de agora, o nome do Botão de Comando será atualizado dinamicamente sempre que o valor da célula especificada na sua folha de cálculo for alterado.
Conforme ilustrado na imagem seguinte, sempre que o valor da célula A1 for alterado, o nome do botão de comando será automaticamente atualizado para esse mesmo valor.
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.
Artigos Relacionados:
- Como utilizar um Botão de Comando para guardar a folha ativa como Arquivos PDF no Excel?
- Como inserir automaticamente uma nova linha em branco com um Botão de Comando no Excel?
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