Ir para o conteúdo principal

Como copiar o valor da caixa de combinação para uma célula ativa no Excel?

Autor: Siluvia Última modificação: 2024-10-30

Em alguns casos, pode ser necessário copiar o valor selecionado de uma caixa de combinação para a célula ativa. Normalmente, você precisa entrar na caixa de combinação, copiar e colar manualmente na célula ativa. Este artigo apresenta um método conveniente para atualizar automaticamente a célula ativa ao selecionar valores em uma caixa de combinação.

Copie o valor da caixa de combinação para a célula ativa com o código VBA

VBA 1: Copiar o valor da caixa de combinação para a célula ativa por meio do comando
VBA 2: copiar automaticamente o valor da caixa de combinação para a célula ativa


Copie o valor da caixa de combinação para a célula ativa com o código VBA

Os códigos VBA abaixo podem ajudá-lo a copiar o valor da caixa de combinação para a célula ativa automaticamente. Faça o seguinte.

VBA 1: Copiar o valor da caixa de combinação para a célula ativa através do botão de comando

1. Em primeiro lugar, você precisa inserir um Botão de Comando na planilha conforme a imagem mostrada abaixo.

Uma captura de tela mostrando um botão de comando no Excel para copiar valores da caixa de combinação

2. Clique com o botão direito do mouse no botão de comando e clique em Ver código no menu do botão direito. Veja a imagem:

Uma captura de tela do menu do botão direito do mouse para um botão de comando no Excel para acessar a opção Exibir código

3. No popping up Microsoft Visual Basic para Aplicações janela, substitua o código original na janela Código com o código VBA abaixo.

Código VBA: Copiar o valor da caixa de combinação para a célula ativa

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Note: No código, CommandButton1 é o nome do botão de comando inserido e ComboBox1 é o nome da caixa de combinação da qual você copiará o valor. Altere-os conforme necessário.

4. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.

De agora em diante, quando você precisar copiar o valor da caixa de combinação para a célula ativa, basta selecionar a célula e clicar no Botão de Comando para fazer isso.

Uma captura de tela mostrando o resultado da cópia do valor da caixa de combinação para a célula ativa no Excel

VBA 2: copiar automaticamente o valor da caixa de combinação para a célula ativa

O código VBA abaixo pode ajudá-lo a atualizar automaticamente a célula ativa enquanto seleciona valores em uma caixa de combinação. Você pode fazer o seguinte.

1. Certifique-se de que Modo de design está ligado sob o Developer aba.

2. Clique com o botão direito na caixa de combinação da qual deseja copiar o valor e clique em Ver código no menu do botão direito. Veja a imagem:

Uma captura de tela do menu do botão direito em uma caixa de combinação no Excel para acessar a opção Exibir código

3. No popping up Microsoft Visual Basic para Aplicações janela, substitua o código original no Code janela com o código VBA abaixo.

Código VBA: Copiar o valor da caixa de combinação para a célula ativa

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Note: No código, ComboBox1 é o nome da caixa de combinação da qual você copiará o valor.

4. aperte o outro + Q para fechar a janela do Microsoft Visual Basic for Applications e desativar o Modo de design na guia Desenvolvedor.

A partir de agora, ao selecionar o valor do Combo Box, este registro selecionado será exibido na célula ativa automaticamente.


Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!