XL97: Como preencher uma caixa de listagem com base em outra caixa delistagemID do artigo: 161518 - Exibir os produtos aos quais esse artigo se aplica.

Exibir Aviso de Isenção de Tradução Automática

Clique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.

Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado

Este artigo contém um exemplo de uso do item selecionado em um controle de caixa de listagem em um UserForm para determinar a lista que preencherá um segundocontrole ListBox.

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não se limitando a, garantias implícitas decomercialização e/ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação demonstrada e asferramentas usadas para criar e depurar procedimentos. Profissionais de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinadoprocedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidadesespecíficas.Se você tem muita experiência de programação, você poderá entrar em contato com um Microsoft Certified Partner ou o Microsoft Advisory Services. Para obter maisinformações, visite esses sites da Microsoft:

Microsoft certificada parceiros - https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104)

Serviços Microsoft comunicado - http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Para obter mais informações sobre as opções de suporte estão disponíveis e sobre como entrar em contato com a Microsoft, visite o seguinte site daMicrosoft:http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

Fechar e salvar quaisquer pastas de trabalho abertas e, em seguida, abra uma nova pasta de trabalho.1.Em Sheet1, digite os seguintes valores:2.

Inicie o Editor do Visual Basic (pressione ALT + F11).3.Se a janela de propriedades não estiver visível, clique em Propriedades no menu Exibir (ou pressione F4).4.

Sumário

Mais Informações

A1: North Carolina B1: Charlotte C1: Charleston D1: Charlottesville A2: South Carolina B2: Greensboro C2: Columbia D2: NorfolkA3: Virginia B3: Raleigh C3: Greenville D3: Richmond

XL97: Como preencher uma ListBox com base em outra ListBox http://support.microsoft.com/kb/161518/pt-br

1 de 3 21/3/2013 16:03

Inicie o Editor do Visual Basic (pressione ALT + F11).3.Se a janela de propriedades não estiver visível, clique em Propriedades no menu Exibir (ou pressione F4).4.No menu Inserir, clique em UserForm.5.Desenhe um controle ListBox no UserForm.6.Ative a janela de propriedades (pressione F4).7.Selecione a propriedade OrigemDaLinha e digite Sheet1!A1: a3.8.Desenhe outro controle ListBox no UserForm9.Clique duas vezes o controle ListBox1 (da etapa 6) para abrir a janela de código para o UserForm.10.No módulo, digite o seguinte código para o evento Click ListBox1:11.

Execute o UserForm.

Quando você escolher um dos itens em ListBox1, a lista de atualizações ListBox2, refletindo a escolha feita no ListBox1.

12.

Feche o formulário de usuário.13.

Para obter mais informações sobre caixas de listagem, clique na guia índice no Visual Basic for Applications ajuda, digite o seguinte textocaixa de listagem

e, em seguida, clique duas vezes no texto selecionado para ir para o tópico "Controle ListBox".

ID do artigo: 161518 - Última revisão: quinta-feira, 23 de novembro de 2006 - Revisão: 2.4

A informação contida neste artigo aplica-se a:Microsoft Excel 97 Standard Edition

Palavras-chave: kbmt kbdtacode kbprogramming KB161518 KbMtpt

Tradução automáticaIMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas.A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na basede dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências,erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT).

A3: Virginia B3: Raleigh C3: Greenville D3: Richmond

Private Sub ListBox1_Click() 'Get the currently selected item Select Case ListBox1.Value 'If North Carolina, set RowSourceproperty of ListBox2 'to Column B. Case "North Carolina" ListBox2.RowSource = "Sheet1!B1:B3" 'If South Carolina, set RowSourceproperty of ListBox2 'to Column C. Case "South Carolina" ListBox2.RowSource = "Sheet1!C1:C3" 'If Virginia, set RowSourceproperty of ListBox2 to 'Column D. Case "Virginia" ListBox2.RowSource = "Sheet1!D1:D3" End Select End Sub

Referências

Propriedades

XL97: Como preencher uma ListBox com base em outra ListBox http://support.microsoft.com/kb/161518/pt-br

2 de 3 21/3/2013 16:03

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas.A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na basede dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências,erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT).Obrigado.Clique aqui para ver a versão em Inglês deste artigo: 161518 (http://support.microsoft.com/kb/161518/en-us/ )

Aviso de Isenção de Responsabilidade sobre Conteúdo do KB AposentadoEste artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.

XL97: Como preencher uma ListBox com base em outra ListBox http://support.microsoft.com/kb/161518/pt-br

3 de 3 21/3/2013 16:03