✔ VBA Dashboards Specialist®: VBA Excel - Populando List Box no Formulário

11 de fevereiro de 2013

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

Receba 3 Calendários Customizáveis de 2013 em Excel

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Os 10 mandamentos do gerenciamento de projetos

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

13 Dicas para se Falar em Público

Mais um post rápido, que resolve.

Segue alguns códigos para que você possa popular List Box nos formulários que você desenvolve.

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