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 Combo Box no Formulário - Populate form control combo box using VBA

Sub PrimeiroMetodo()
  ' Não se esqueça de mudar o combobox e o nome da planilha.
    With Sheet1.Shapes("drp_down1").ControlFormat
        .RemoveAllItems
        .AddItem "Jan"
        .AddItem "Feb"
        .AddItem "Mar"
    End With
End Sub

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


Sub TerceiroMetodo()

    Dim rng As Range, cl As Range

    'change fill range here
    Set rng = Sheet1.Range("a1:a5")

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

End Sub

Sub QuartaMetodo()

    Dim arr, i As Long

    'change fill range here
    arr = Sheet1.Range("a1:a5")

     ' Não se esqueça de mudar o combobox e o nome da planilha.
     With Sheet1.Shapes("drp_down1").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