Como copiar o valor da caixa de combinação para uma célula ativa no Excel?
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.
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:
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 SubNote: 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.
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:
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 SubNote: 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:
- Como exibir o formato de data na saída da caixa de combinação no Excel?
- Como ocultar ou reexibir um botão de comando com base no valor da célula especificada no Excel?
- Como abrir uma planilha específica pelo valor selecionado de um Combo Box no Excel?
- Como prevenir ou desabilitar a digitação em uma combo box no Excel?
- Como sair da caixa de combinação para selecionar uma célula específica no Excel?
Melhores ferramentas de produtividade de escritório
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!
