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

Lista única VBA [RESOLVIDO]

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Avatar do usuário
costaribeiro
Colaborador
Colaborador
Mensagens: 96
Registrado em: Ter Mar 04, 2014 10:10 am
Localização: Pouso Alegre - MG

Lista única VBA [RESOLVIDO]

Mensagem por costaribeiro »

Olá, Pessoal. ;)

É possível criar uma lista única no VBA para ComboBox com nomes diferentes? A que consigo é somente para ComboBox determinada. Por exemplo:

Código: Selecionar todos

Sub Estados()
    With MeuFormulario.ComboBox_Estado ' Gostaria não precisar criar vários códigos para ComboBox com nomes diferentes, p. ex.: ComboBox_UF em outro campo no mesmo formulário.
        .AddItem "Acre"
        .AddItem "Alagoas"
        .AddItem "Amapá"
        .AddItem "Amazonas"
        .AddItem "Bahia"
        .AddItem "Ceará"
        .AddItem "Distrito Federal"
        .AddItem "Espírito Santo"
        .AddItem "Goiás"
        .AddItem "Maranhão"
        .AddItem "Mato Grosso"
        .AddItem "Mato Grosso do Sul"
        .AddItem "Minas Gerais"
        .AddItem "Pará"
        .AddItem "Paraíba"
        .AddItem "Paraná"
        .AddItem "Pernambuco"
        .AddItem "Piauí"
        .AddItem "Rio de Janeiro"
        .AddItem "Rio Grande do Norte"
        .AddItem "Rio Grande do Sul"
        .AddItem "Rondônia"
        .AddItem "Rorâima"
        .AddItem "Santa Catarina"
        .AddItem "São Paulo"
        .AddItem "Sergipe"
        .AddItem "Tocantins"
    End With
End Sub
E isso aí pessoal... Se alguém puder ter uma :idea: Valeu!

Obrigado.
Editado pela última vez por costaribeiro em Qua Fev 23, 2022 10:01 am, em um total de 1 vez.


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
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Lista única VBA

Mensagem por Mikel Silveira Fraga »

Costa, boa noite.

Existem várias formas de se fazer isso. Aqui, vou te passar a que acho mais tanquila, utilizando conceitos padrões da sintâxe do VBA.

Código: Selecionar todos

Sub PreencherCombos()
    Estados(ComboBox1)
    Estados(ComboBox2)
    Estados(ComboBox3)
End Sub

Sub Estados(ByRef pCBControl as ComboBox) 
' pCBControl é um parâmetro da sub Estados, que vai representar o ComboBox que deseja.
' Por ser um parâmetro do tipo objeto, a sintaxe já captura o endereço de memória e, todas as modificações realizadas, afetam diretamente o controle informado.
    With pCBControl 
        .AddItem "Acre"
        .AddItem "Alagoas"
        .AddItem "Amapá"
        .AddItem "Amazonas"
        .AddItem "Bahia"
        .AddItem "Ceará"
        .AddItem "Distrito Federal"
        .AddItem "Espírito Santo"
        .AddItem "Goiás"
        .AddItem "Maranhão"
        .AddItem "Mato Grosso"
        .AddItem "Mato Grosso do Sul"
        .AddItem "Minas Gerais"
        .AddItem "Pará"
        .AddItem "Paraíba"
        .AddItem "Paraná"
        .AddItem "Pernambuco"
        .AddItem "Piauí"
        .AddItem "Rio de Janeiro"
        .AddItem "Rio Grande do Norte"
        .AddItem "Rio Grande do Sul"
        .AddItem "Rondônia"
        .AddItem "Rorâima"
        .AddItem "Santa Catarina"
        .AddItem "São Paulo"
        .AddItem "Sergipe"
        .AddItem "Tocantins"
    End With
End Sub
Teste por ai e nos dê um retorno.

Abraços e bons estudos.


Avatar do usuário
costaribeiro
Colaborador
Colaborador
Mensagens: 96
Registrado em: Ter Mar 04, 2014 10:10 am
Localização: Pouso Alegre - MG

Re: Lista única VBA [RESOLVIDO]

Mensagem por costaribeiro »

Valeu Jedi Mikel, :)

Perfeito!


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.


Responder