Como preencher a caixa de texto com base na seleção de combobox no UserForm no Excel?
Supondo que você tenha uma tabela que contém um nome e uma coluna de número da equipe, conforme a imagem mostrada abaixo. Agora você precisa criar um formulário de usuário embutido com uma caixa de combinação que colete todos os nomes dentro e uma caixa de texto que preencherá o número da equipe correspondente ao selecionar o nome da caixa de combinação. O método neste artigo pode ajudá-lo a baixá-lo.
Preencher a caixa de texto com base na seleção da caixa de combinação no formulário do usuário com VBA
Faça o seguinte para preencher a caixa de texto com o valor correspondente com base na seleção da caixa de combinação no formulário do usuário.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Formulário de usuário. Veja a imagem:
3. Em seguida, insira um controle de caixa de combinação e um controle de caixa de texto no formulário de usuário criado como mostrado abaixo.
4. Clique com o botão direito em qualquer espaço em branco do formulário do usuário e clique em Ver código no menu de contexto. Veja a imagem:
5. Na janela de abertura Userform (Code), copie e cole o código VBA abaixo para substituir o original.
Código VBA: preencher a caixa de texto com base na seleção da caixa de combinação no formulário do usuário
Dim xRg As Range
'Updated by Extendoffice 2018/1/30
Private Sub UserForm_Initialize()
Set xRg = Worksheets("Sheet5").Range("A2:B8")
Me.ComboBox1.List = xRg.Columns(1).Value
End Sub
Private Sub ComboBox1_Change()
Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)
End Sub
Note: No código, A2: B2 é o intervalo que contém os valores que você preencherá separadamente na caixa de combinação do formulário do usuário e na caixa de texto. E Planilha 5 é o nome da planilha que contém o intervalo de dados. Altere-os conforme necessário.
6. aperte o outro + Q chaves para sair do Microsoft Visual Basic para Aplicações janela.
7. Clique Developer > inserção > Botão de comando (controle ActiveX) para inserir um botão de comando na planilha.
8. Clique com o botão direito na guia da folha e selecione Ver código no menu do botão direito. Em seguida, copie e cole o código VBA na janela de código.
Código VBA: Mostrar formulário do usuário
Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
UserForm1.Show
End Sub
9. Desative o modo de design na pasta de trabalho.
Clique no botão de comando para abrir o formulário de usuário especificado. Então você pode ver que todos os nomes são coletados na caixa de combinação. Ao selecionar um nome na caixa de combinação, o número da pauta correspondente será preenchido na caixa de texto automaticamente, conforme mostrado a imagem abaixo.
Artigos relacionados:
- Como preencher uma caixa de combinação com dados especificados na pasta de trabalho aberta?
- Como preencher automaticamente outras células ao selecionar valores na lista suspensa do Excel?
- Como preencher automaticamente outras células ao selecionar valores na lista suspensa do Excel?
- Como preencher os resultados da pesquisa do Google em planilhas 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!