DONUT PROJECT - VBA - Excel - Populando um ListBox no seu Formulário

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Então, digamos que precise criar um pequeno script que permita que os seus usuários selecionem um número de colunas (letras de A a Z) a partir de um ListBox. E em seguida extraiamos os itens selecionados na caixa de listagem.

1

Crie um formulário com uma ListBox chamado Listbox1 e um botão chamado CommandButton1.

2

Crie uma SUB UserForms no seu formulário.

3

Preencha (popule) a ListBox com letras de A a Z:

Private Sub UserForm_Initialize()

' Crie um array.

Dim AlfabetArray() As String

' Defina o conteúdo do array. Aqui podemos separá-las com "|", mas não poderemos usar ",".

Let AlfabetArray = Split("A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|X|Y|Z", "|")

' Populando o Listbox com o array de letras

Let ListBox1.List = AlfabetArray

End Sub

4

Certifique-se de que a caixa de listagem tenha o seu atributo MultiSelect definido como 1 - fmMultiSelectMulti, se você quiser que os usuários possam selecionar vários itens com um clique do mouse.

Selecione 2 - fmMultiSelectExtended, se quiser que os usuários possam usar um  "Ctrl-clique " para selecionar vários itens muito mais rápido.

5

Extraia os itens selecionados do ListBox e insira-os na matriz para uso posterior.

Private Sub CommandButton1_Click()

Dim lItem As Long

Dim BernardNavne() As String    'Array

Dim blDimensioned As Boolean    'Is the array dimensioned?

Dim lngPosition As Long         'Counting

     

Let blDimensioned = False

' Efetua o Loop através de todos os itens no Listbox

For lItem = 0 To Me.ListBox1.ListCount - 1

         

        If Me.ListBox1.Selected(lItem) Then

        ' Se estiver selecionado adicionna-o ao array

        

            'Checamos se o array está corretamente dimensionado

            If blDimensioned = True Then

            ReDim Preserve BernardNavne(0 To UBound(BernardNavne) + 1) As String

            Else

            ReDim BernardNavne(0 To 0) As String

            blDimensioned = True 'flag

            End If

            

            ' Adicionamos a letra ao array

            BernardNavne(UBound(BernardNavne)) = Me.ListBox1.List(lItem)

        End If

Next lItem

'Loop through array to see which items were selected from the Listbox:

For lngPosition = LBound(BernardNavne) To UBound(BernardNavne)

MsgBox BernardNavne(lngPosition)

Next lngPosition

End Sub

André Luiz Bernardes

Professional Profile