Contente

• Instruções
• O que você precisa

Usar um controle ListView com caixas de seleção em um formulário do VBA pode fazer um aplicativo ficar mais dinâmico ao fornecer opções ao usuário. Um ListView mostra itens usando uma de quatro visualizações diferentes e os organiza em colunas com ou sem cabeçalhos do Microsoft Excel. Use a propriedade “ListItems.Add” para adicionar itens e a “Checked” (verificados) para determinar quais deles foram selecionados pelo usuário.

Instruções

Preencha o controle ListView no Excel usando o VBA (Hemera Technologies/Photos.com/Getty Images)

1. Abra o Microsoft Excel, clique na aba "Desenvolvedor" e depois em 'Visual Basic" para abrir a janela do editor do VBA. Clique no menu "Inserir" e depois em "UserForm" (formulário do usuário) para criar um novo formulário. Clique em "Ferramentas", "Controles adicionais", e selecione a caixa próxima a “Microsoft ListView Control” (controle ListView da Microsoft) para adicionar um novo controle "ListView" ao formulário.

2. Clique com o botão direito sobre o controle “ListView” e depois em "Propriedades". Desça a janela e escolha "True" (verdadeiros) próximo a opção “Checkboxes”. Clique em "CommandButton" no painel "Caixa de ferramentas" e depois no formulário para adicionar um novo botão. Adicione um segundo botão usando os mesmos passos.

   
   

3. Dê um clique duplo sobre o “CommandButton1” para criar um novo evento para esse botão. Adicione o seguinte código para popular o "ListBox" com três itens:

   Me.ListView1.ListItems.Add(1) = "Check Item 1" Me.ListView1.ListItems.Add(2) = "Check Item 2" Me.ListView1.ListItems.Add(3) = "Check Item 3"

4. Volte para o formulário e dê um clique duplo sobre o “CommandButton2” para criar um novo evento de clique para esse botão. Adicione o seguinte código para passar pelos itens do "ListBox" e mostrar os itens selecionados na janela “Immediate”:

   For counter = 1 To Me.ListView1.ListItems.Count If Me.ListView1.ListItems.Item(counter).Checked Then Debug.Print Me.ListView1.ListItems.Item(counter).Text End If Next

5. Volte para o formulário e clique em "F5" para executar o programa. Depois clique em “CommandButton1” para popular o controle “ListView” e, em seguida, em “CommandButton2” para mostrar os itens selecionados.

   
   

O que você precisa

• Microsoft Excel