Como usar o ListView com um CheckBox no VBA

Escrito por jaime avelar | Traduzido por aline fernandes martins
  • Compartilhar
  • Tweetar
  • Compartilhar
  • Pin
  • E-mail
Como usar o ListView com um CheckBox no VBA
Preencha o controle ListView no Excel usando o VBA (Hemera Technologies/Photos.com/Getty Images)

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.

Outras pessoas estão lendo

O que você precisa?

  • Microsoft Excel

Lista completaMinimizar

Instruções

  1. 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. 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. 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. 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. 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.

Não perca

Filtro:
  • Geral
  • Artigos
  • Slides
  • Vídeos
Mostrar:
  • Mais relevantes
  • Mais lidos
  • Mais recentes

Nenhum artigo disponível

Nenhum slide disponível

Nenhum vídeo disponível