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.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
ComboBox itens fixos
-
- Acabou de chegar
- Mensagens: 4
- Registrado em: Seg Ago 16, 2010 2:09 am
Re: ComboBox itens fixos
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
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
- Alex Sandro
- Colaborador
- Mensagens: 88
- Registrado em: Qua Jan 06, 2010 9:39 am
- Localização: Inhumas-GO
- Contato:
Re: ComboBox itens fixos
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
O código vai buscar os dados digitados em plan3 de A1 até onde couber:
Ex:
A1:TOMATE
A2:CEBOLA
A3:ALFACE
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