Como adicionar dados a um controlo de caixa de combinação ou de caixa de listagem no Excel ou no Word

Traduções de Artigos Traduções de Artigos
Artigo: 161598 - Ver produtos para os quais este artigo se aplica.
Para obter uma versão deste artigo referente ao Microsoft Excel para Mac, consulte 185388.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo descreve os métodos para preencher um controlo de caixa de combinação (ComboBox) ou de caixa de listagem (ListBox).

Mais Informação

A Microsoft fornece exemplos de programação apenas a título informativo, sem garantia expressa ou implícita, incluindo, mas não se limitando, a garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo parte do princípio que o utilizador conhece a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Os profissionais do suporte técnico da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionar funcionalidades adicionais nem criarão procedimentos para cumprir necessidades específicas do utilizador. Se tem pouca experiência em programação, pode optar por contactar um Microsoft Certified Partner ou a subsidiária local da Microsoft (21 440 92 00). Para obter mais informações sobre Microsoft Certified Partners, visite o seguinte Web site da Microsoft:
https://partner.microsoft.com/global/30000104
Para obter mais informações sobre as opções de suporte disponíveis e como contactar a Microsoft, visite o seguinte Web site da Microsoft:
http://support.microsoft.com/default.aspx?scid=fh;PT;CNTACTMS
Pode utilizar um controlo, como uma caixa de combinação ou uma caixa de listagem, num formulário de utilizador. No Microsoft Excel, pode utilizar estes controlos na folha de cálculo. Os métodos para o preenchimento dos controlos são semelhantes. Os exemplos deste artigo utilizam controlos num formulário de utilizador.

Método 1: Como ligar uma caixa de combinação ou caixa de listagem a células de uma folha de cálculo do Excel

  1. Crie um novo livro no Microsoft Excel. Na Folha1, escreva o seguinte:
          A1: Um      B1: Vermelho
          A2: Dois    B2: Verde
          A3: Três    B3: Amarelo
          A4: Quatro  B4: Azul
    					
  2. Prima ALT+F11 para iniciar o editor do Visual Basic do Microsoft Excel.
  3. No menu Insert, clique em UserForm.
  4. Crie um controlo ComboBox e um controlo ListBox no formulário de utilizador.
  5. Se a janela Properties não estiver visível, clique em Properties Window no menu View.
  6. Clique em ComboBox e percorra a lista até RowSource na janela Properties.

    A janela está dividida em duas secções. A secção da esquerda contém o nome da propriedade para o controlo. A secção da direita contém o valor da propriedade. Clique na secção direita de RowSource e escreva "folha1!a1:a4" (sem as aspas).
  7. Clique em ListBox e percorra a lista até RowSource na janela Properties. Clique na secção direita de RowSource e escreva "folha1!b1:b4" (sem as aspas).

    NOTA: se omitir a referência à folha, os controlos ComboBox e ListBox serão preenchidos com os dados das células da folha de cálculo que está activa, quando executar o formulário de utilizador. Para se certificar de que são utilizados sempre os dados da mesma folha de cálculo para preencher o formulário de utilizador, inclua a referência à folha, como se mostra nos exemplos. Para preencher o formulário de utilizador com dados da folha activa, não inclua a referência à folha em RowSource. Ao fazer isto, a macro utiliza dados da folha activa para preencher o formulário de utilizador.
  8. Execute o formulário de utilizador clicando em Run e, em seguida, clicando em Run Sub/UserForm.
É apresentado "Um", "Dois", "Três" e "Quatro" no controlo de caixa de combinação, e "Vermelho", "Verde", "Amarelo" e "Azul" no controlo de caixa de listagem.

Método 2: Como utilizar uma macro do Visual Basic para preencher uma caixa de combinação ou uma caixa de listagem

  1. Abra uma aplicação do Microsoft Office, como o Microsoft Excel ou o Microsoft Word.
  2. Prima ALT+F11 para iniciar o editor do Visual Basic.
  3. No menu Insert, clique em UserForm.
  4. Crie um controlo ComboBox e um controlo ListBox no formulário de utilizador.
  5. Clique com o botão direito do rato no formulário e clique em View Code. A janela de código para o formulário de utilizador é apresentada. Clique em Initialize na lista Procedure (no lado direito).

    As primeira e última linhas da sub-rotina são introduzidas automaticamente e o ponto de inserção é colocado automaticamente entre essas duas linhas.
  6. Escreva o seguinte código:
          ListBox1.List = Array("One", "Two", "Three", "Four")
          ComboBox1.List = Array("Red", "Green", "Yellow", "Blue")
    						
    Este código deve ser apresentado entre as linhas "Sub UserForm_Initialize ()" e "End Sub".
  7. No menu Run, clique em Run Sub/UserForm para executar o formulário de utilizador.
É apresentado "Um", "Dois", "Três" e "Quatro" no controlo de caixa de listagem, e "Vermelho", "Verde", "Amarelo" e "Azul" no controlo de caixa de combinação.

Referências

Para obter mais informações sobre formulários de utilizador, clique no separador Índice remissivo na Ajuda do Microsoft Visual Basic, e escreva o seguinte texto:
UserForm Object
e, em seguida, faça duplo clique no texto seleccionado para abrir o tópico "UserForm Object".

Propriedades

Artigo: 161598 - Última revisão: 11 de maio de 2011 - Revisão: 3.0
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Word 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Word 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Word 97 Standard Edition
  • Microsoft Word 2010
  • Microsoft Office Word 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2010
  • Microsoft Office Excel 2007
  • Microsoft Office Word 2003
Palavras-chave: 
kbcontrol kbdtacode kbhowto kbprogramming KB161598

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com