Como vincular uma caixa de texto a várias células no Excel?
Como todos sabemos, é fácil vincular uma caixa de texto a uma célula específica. Mas é possível vincular várias células à mesma caixa de texto, de modo que, ao clicar em diferentes células, a caixa de texto exiba textos diferentes? Este artigo irá ajudá-lo a resolver essa tarefa no Excel.
Vincular caixa de texto a várias células com código VBA
Vincular caixa de texto a várias células com código VBA
Para vincular uma caixa de texto a várias células, o seguinte código VBA pode ajudá-lo; por favor, faça o seguinte:
1. Primeiro, insira uma caixa de texto ActiveX na guia Desenvolvedor.
2. Em seguida, clique com o botão direito na aba da planilha que contém a caixa de texto que deseja usar e escolha Visualizar Código no menu de contexto. Na janela aberta do Microsoft Visual Basic for Applications, copie e cole o seguinte código no Módulo em branco:
Código VBA: vincular 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
Observação: No código acima, o número 3 indica o número da coluna onde suas células vinculadas estão localizadas, e Textbox1 é o nome da caixa de texto que você inseriu; altere-os conforme necessário.
3. Depois, salve e feche esta janela de código. Agora, quando você clicar em diferentes células, os valores diferentes serão exibidos automaticamente na caixa de texto, veja a captura de tela:
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