Vídeo recomendado
https://youtu.be/diWPPPhW-9E

ComboBox itens fixos

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
REINALDOINFO
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Seg Ago 16, 2010 2:09 am

ComboBox itens fixos

Mensagem por REINALDOINFO »

Olá...
Estou com uma dúvida sobre combobox, seguinte, criei um form no excel e inseri um combobox, só que quero que ele tenha apenas 5 itens, tipo TOMATE, CEBOLA, ALFACE, BATATA, CENOURA, quero saber como faço para inserir estes itens no combobox sem ter que criar um codigo para inserir, do tipo [ComboBox1.AddItem "TOMATE" ], tem como?

Obrigado.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: ComboBox itens fixos

Mensagem por webmaster »

Reinaldo,

Você pode usar o RowSource para definir os valores do ComboBox apontando para uma lista na planilha, por exemplo: Plan1!A1:A5

Fora isso, só adicionando na mão, como mencionou. Outro jeito é atribuindo um Array a propriedade List, mas ainda sim seria necessário montar o Array, o que dá no mesmo.

Abraços


Avatar do usuário
Alex Sandro
Colaborador
Colaborador
Mensagens: 88
Registrado em: Qua Jan 06, 2010 9:39 am
Localização: Inhumas-GO
Contato:

Re: ComboBox itens fixos

Mensagem por Alex Sandro »

Reinaldoinfo,

Suponhamos a sua planilha( plan1, plan2, plan3, etc.).
plan1=dados gravados pelo seu projejo
plan2= início do seu projeto
plan3= dados que você quer que aparece no ComboBox.

Bom vamos lá então através do código abaixo o ComboBox vai buscar os dados em plan3

Código: Selecionar todos

Private Sub ComboBox1_Change()
  
    Dim PlanTipo As Worksheet
    Dim i As Integer
    Set PlanTipo = Plan3
    i = 1

    With PlanTipo
        Do Until IsEmpty(.Cells(i, 1))
            Me.ComboBox1.AddItem .Cells(i, 1).Value
            i = i + 1
        Loop
    End With
End Sub

Private Sub UserForm_Initialize()
    Dim PlanTipo As Worksheet
    Dim i As Integer
    Set PlanTipo = Plan3
    i = 1

    With PlanTipo
        Do Until IsEmpty(.Cells(i, 1))
            Me.ComboBox1.AddItem .Cells(i, 1).Value
            i = i + 1
        Loop
    End With
End Sub


O código vai buscar os dados digitados em plan3 de A1 até onde couber:
Ex:
A1:TOMATE
A2:CEBOLA
A3:ALFACE


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder