Como preencher ou carregar ComboBox com tabela de vetor no Excel sem repetir dados

Como preencher ou carregar ComboBox com tabela de vetor no Excel sem repetir dados

outubro 8, 2022 0 Por Como Posso?
ícone e equações do excel

Isso pode parecer bastante complicado para quem não maneja a metodologia correta , e essa planilha tem tantas funções que é difícil conhecer todas.

Configure o ComboBox

Para começar, você deve ter as informações que deseja adicionar ao ComboBox bem ordenadas, uma lista dentro de uma tabela seria o melhor caminho.

Agora, o próximo passo é abrir ou acessar o Editor do Visual Basic , seja através da aba ” Desenvolvedor ” ou com os comandos ” Alt + F11 “.

A seguir, dentro do editor, procure o botão ” Inserir ” localizado na faixa superior e, entre as opções apresentadas, escolha aquela chamada ” UserForm “.

Desta forma, surgirá uma janela pop-up, onde será adicionado o item “ Combo Box ” do menu inferior de “ Controles ”.

Em seguida, na parte inferior esquerda da tela, o nome da caixa pode ser alterado para o que o usuário desejar. O próximo passo é clicar duas vezes na janela do formulário.

gráficos do excel

Assim, abrir-se-ão as configurações do UserForm onde, do lado direito, estará uma seta com a opção “ Eventos ”, a partir da qual se escolhe “ Inicializar ”. Esta ação adicionará os dados pertinentes à janela, onde começará a criar o código pertinente para o que estamos procurando.

O código

Neste caso, começaremos escrevendo uma série de variáveis ​​que fornecerão e permitirão que o formulário funcione corretamente . Para isso, deve ser preenchido da seguinte forma:

Sub UserForm_Initialize privado ()

Dim UniqueValue As Collection

Dim eng As Range

Dim cell como range

Dim sh como planilha

Dim vNum como variante

Defina sh = ThisWorkbook.Worksheets (“Sheet1”)

Defina Rng = sh.Range (“D4”, sh.Range (D4) .End (x1Down))

Definir UniqueValue = Nova coleção

On Error Resume Next

Para cada célula em Rng.Cells

UniqueValue.Add cell.Value, CStr (cell.Value)

Próxima célula

No erro GoTo 0

Para cada vNum em UniqueValue

Me.UserForm.AddItem vNum

Próximo vNum

Para finalizar, selecione o ícone “ Play ”, a seta verde, “ Continue ” ou “ F5 ” para executar o ComboBox, e desta forma nos levará diretamente para a planilha.

Saiba +  Como usar e fazer referências relativas no Excel ao gravar macros

Como funciona esse código?

A importância de escrever o código apresentado acima é que existem certos elementos nele que permitem que os dados do ComboBox do Excel não se repitam.

Nesse sentido, os comandos devem ser totalmente respeitados. Na verdade, uma das variáveis ​​que continuam a omitir registros repetidos é ” On Error Resume Next “.

Além disso, o ” On Error GoTo 0 “, da mesma forma influencia como o formulário irá proceder para tirar os dados que não são únicos. Agora, algo que deve ser levado em consideração é o nome da folha que está sendo trabalhada.

Por quê? Bem, porque seu título deve ser escrito como está na linha “ Set sh = ThisWorkbook.Worksheets (« Sheet1 ») ” do código. Sendo ” Folha1 ” simplesmente um exemplo.

ícone do excel

Além disso, quanto ao nome que demos ao ComboBox, também será imprescindível lembrá-lo e utilizá-lo corretamente.

Desde então, deve ser escrito na parte do código que diz ” Me.UserForm.AddItem vNum “, substituindo o ” UseForm ” pelo título que foi escolhido.

E desta forma, será adicionada uma ComboBox Excel onde os valores ou dados carregados não se repetem.

Porém, como se viu, esse procedimento costuma ser colocado em prática por usuários que já possuem algum manuseio das funções que esta ferramenta de cálculo inclui.

Portanto, se você deseja continuar trabalhando com este tipo de processo, pode precisar fazer algum tipo de curso de Excel ou se dedicar a investigar todas as possibilidades por tentativa e erro.

Assim como as ComboBoxes funcionam com vetores, também podem funcionar com dados de intervalo. Os dados do intervalo também podem ser transmitidos sem repetição .