ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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.


Marcelo Ribeiro
▀▄▀▄▀▄▀▄▀▄▀
Vamos compartilhar
o conhecimento!
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: 1165
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.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In
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.


Marcelo Ribeiro
▀▄▀▄▀▄▀▄▀▄▀
Vamos compartilhar
o conhecimento!
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