Como ligar uma caixa de texto a várias células no Excel?
Como todos sabemos, é fácil ligar uma caixa de texto a uma célula específica. Mas será possível ligar várias células à mesma caixa de texto, de modo que, ao clicar em diferentes células, a caixa mostre conteúdos distintos? Este artigo mostra-lhe como resolver esta tarefa no Excel.
Ligar caixa de texto a várias células com código VBA
Ligar caixa de texto a várias células com código VBA
Para ligar uma caixa de texto a várias células, o código VBA seguinte pode ajudá-lo. Siga estes passos:
1. Em primeiro lugar, insira uma caixa de texto ActiveX no separador Programador.
2. Em seguida, clique com o botão direito do rato no separador da folha que contém a caixa de texto que pretende utilizar e 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: ligar caixa de texto a várias células:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 Then ActiveSheet.TextBox1.Text = Target
End Sub
Nota: No código acima, o número 3 indica a coluna onde se encontram as células ligadas, e CaixaDeTexto1 é o nome da caixa de texto que inseriu. Ajuste-os conforme necessário.
3. Depois, guarde e feche esta janela de código. Agora, ao clicar em Células Diferentes, o valor diferente será automaticamente apresentado na caixa de texto. Veja a imagem:
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