Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como preencher a caixa de texto com base na seleção de combobox em UserForm no Excel?

Supondo que você tenha uma tabela contém um nome e uma coluna do número da equipe, conforme mostrado abaixo. Agora você precisa criar um Userform embutido com uma caixa de combinação que colete todos os nomes dentro e uma caixa de texto que preencha o número de equipe correspondente ao selecionar o nome da caixa de combinação. O método neste artigo pode ajudá-lo a diminuí-lo.

Preencha a caixa de texto com base na seleção de combobox no Userform com VBA


Inserir ou excluir facilmente várias caixas de seleção em massa no Excel:

O Caixas de seleção de inserção em lote utilidades de Kutools for Excel pode ajudá-lo a inserir rapidamente várias caixas de seleção no intervalo selecionado de uma só vez. E você pode excluir todas as caixas de seleção no intervalo selecionado com o Caixas de verificação de exclusão em lote. Veja sccreenshot:

Kutools for Excel: com mais de 200 complementos úteis do Excel, grátis para tentar sem limitação nos dias 60. Baixe e teste grátis agora!

Guia do Office Habilitar Edição e Navegação por Guias no Office e Facilitar seu Trabalho ...
Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e outras coisas mais usadas ou complexas aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais do que recursos de texto 20: Extrair número da string de texto; Extrair ou remover parte de textos; Converta números e moedas em palavras em inglês.
  • Mesclar Ferramentas: Várias pastas de trabalho e folhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma.
  • Ferramentas de divisão: Dividir dados em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos Excel, PDF ou CSV; Uma coluna para várias colunas.
  • Colar pulando Linhas ocultas / filtradas; Contagem e Soma pela cor de fundo; Envie emails personalizados para vários destinatários em massa.
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer folha; tipo por semana, dia, frequência e mais; filtros por negrito, fórmulas, comentário ...
  • Mais de recursos poderosos do 300; Funciona com o Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

Preencha a caixa de texto com base na seleção de combobox no Userform com VBA


Faça o seguinte para preencher a caixa de texto com o valor correspondente com base na seleção de combobox no Userform.

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 > Userform. Ver captura de tela:

3. Em seguida, insira um controle de caixa combinada e um controle de caixa de texto no Formulário de usuário criado como abaixo da captura de tela mostrada.

4. Clique com o botão direito do mouse em qualquer espaço em branco do Userform e clique em Ver código no menu de contexto. Ver captura de tela:

5. Na janela Aberta do Userform (Código), copie e cole o código VBA abaixo para substituir o original.

Código VBA: preencha a caixa de texto com base na seleção de combobox no Userform

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

notas: No código, A2: B2 é o intervalo que contém os valores que você irá preencher separadamente, tanto na caixa de combinação do formulário do usuário como na caixa de texto. E Sheet5 é o nome da planilha contém o intervalo de dados. Por favor altere-os conforme você precisa.

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 do mouse na guia da folha e selecione Ver código no menu do botão direito do mouse. Em seguida, copie e cole o código VBA na janela de código.

Código VBA: Mostrar formulário de usuário

Private Sub CommandButton1_Click()
'Updated by Extendoffice 2018/1/30
    UserForm1.Show
End Sub

9. Desligue o modo de design no caderno de exercícios.

Clique no botão de comando para abrir o formulário de usuário especificado. Então você pode ver todos os nomes são coletados na caixa de combinação. Ao selecionar um nome da caixa de combinação, o número de equipe correspondente será preenchido na caixa de texto automaticamente conforme mostrado abaixo na tela.


Artigos relacionados:


Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

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

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Everton · 1 months ago
    alguem poderia me ajudar estou tentando carregar a combobox e puxar informações para text box so que esta dando erro 381

    Private Sub ComboNome_Emissor_Change()
    TextArea.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 1)
    TextTreinamento_PT.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 3)
    TextTreinamento_EC.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 5)
    TexStatus_Bloqueio.Text = ComboNome_Emissor.List(ComboNome_Emissor.ListIndex, 6)


    End Sub
  • To post as a guest, your comment is unpublished.
    Carey Ogola · 1 years ago
    The method is very simple and populates the combo box quite efficiently. However, when I try populating the text box, I get a run-time error '1004': Unable to get the VLookup property of the WorksheetFunction class. Kindly assist with resolving this error.
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi,
      May I have your Office version? I need the feedback to check for the error.
      Thanks for your comment.
      • To post as a guest, your comment is unpublished.
        hoa tran · 1 years ago
        office 2010 32 bit
        • To post as a guest, your comment is unpublished.
          crystal · 1 years ago
          Good day,
          I have tried the code in Office 2010 32 bit, but no errors occured.
          Please make sure the sheet name and cell range in the first VBA code are the same with your actual sheet name and range.
          Thanks for your comment.
          • To post as a guest, your comment is unpublished.
            Dimal · 9 months ago
            Hi,
            i have same issue with office 2013. Any solution please
            • To post as a guest, your comment is unpublished.
              Olban Noe Izaguirre · 7 months ago
              i have the same problem....
              • To post as a guest, your comment is unpublished.
                Chaylon · 5 months ago
                I too have the same problem
                • To post as a guest, your comment is unpublished.
                  crystal · 5 months ago
                  Hi Chaylon,
                  Have you replaced the sheet name in the below code line with your actual used worksheet name?
                  Set xRg = Worksheets("Sheet5").Range("A2:B8")