Views

Important:

Quaisquer necessidades de soluções e/ou desenvolvimento de aplicações pessoais/profissionais, que não constem neste Blog podem ser tratados como consultoria freelance à parte.

...

11 de fevereiro de 2013

VBA Excel - Populando List Box no Formulário - Populate form control list box using VBA

Sub PrimeiroMetodo()
    ' Não se esqueça de mudar o nome do listbox e o nome da planilha.

    With Sheet1.Shapes("lst_box1").ControlFormat
        .RemoveAllItems
        .AddItem "Jan"
        .AddItem "Feb"
        .AddItem "Mar"
    End With
End Sub

Sub SegundoMetodo()
    ' Não se esqueça de mudar o nome do listbox e o nome da planilha.
    
    With Sheet1.Shapes("lst_box1").ControlFormat
            'change fill range here
            .ListFillRange = "Sheet1!$a$1:$a$5"
    End With
End Sub


Sub TerceiroMetodo()

    Dim rng As Range, cl As Range

    ' Não se esqueça de mudar o Range.
    Set rng = Sheet1.Range("a1:a5")

    ' Não se esqueça de mudar o nome do listbox e o nome da planilha.
     With Sheet1.Shapes("lst_box1").ControlFormat
        .RemoveAllItems
            For Each cl In rng
                .AddItem cl.Value
            Next
     End With

End Sub

Sub QuartaMetodo()

    Dim arr, i As Long
    
    'Atente em mudar a referência do range.
    Let arr = Sheet1.Range("a1:a5")
    
    
     ' Não se esqueça de mudar o nome do listbox e o nome da planilha.
     With Sheet1.Shapes("lst_box1").ControlFormat
        .RemoveAllItems
            For i = LBound(arr) To UBound(arr)
                .AddItem arr(i, 1)
            Next
     End With

End Sub

Tags: VBA, populando, list box, formulário, form, control, controle

Nenhum comentário:

Postar um comentário

eBooks VBA na AMAZOM.com.br

Vitrine