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


brazilsalesforceeffectiveness@gmail.com

✔ Brazil SFE®Author´s Profile  Google+   Author´s Professional Profile   Pinterest   Author´s Tweets

Nenhum comentário:

Postar um comentário

diHITT - Notícias