Views

Histats

Vitrine

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

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...