{"id":1532,"date":"2012-12-04T14:36:05","date_gmt":"2012-12-04T17:36:05","guid":{"rendered":"http:\/\/blogimpacta.com.br\/?p=1532"},"modified":"2012-12-04T14:36:05","modified_gmt":"2012-12-04T17:36:05","slug":"ranges-variaveis-para-combobox-e-listbox","status":"publish","type":"post","link":"https:\/\/www.impacta.com.br\/blog\/ranges-variaveis-para-combobox-e-listbox\/","title":{"rendered":"Ranges vari\u00e1veis para ComboBox e ListBox"},"content":{"rendered":"

Caixa de Combina\u00e7\u00e3o e Caixa de Listagem s\u00e3o objetos muito utilizados em formul\u00e1rios VBA<\/a>. Ambos apresentam listas de op\u00e7\u00f5es de uma determinada tabela para que o usu\u00e1rio possa selecionar uma ou mais op\u00e7\u00f5es e utilizar o resultado em uma infinidade de solu\u00e7\u00f5es.<\/span><\/p>\n

Criando um ComboBox e um ListBox<\/strong><\/span><\/h2>\n

A inser\u00e7\u00e3o de dados nestes objetos \u00e9 efetuada da mesma forma. Primeiro deve-se criar uma \u00e1rea de dados na planilha. Em seguida, deve-se nomear esta \u00e1rea<\/strong>.\u00a0<\/span>
\nAp\u00f3s criar e nomear o range<\/em>, vamos agora criar os objetos ComboBox<\/em> e ListBox<\/em> para receber os dados da tabela criada. Ative o VBA e insira um Userform. Dentro deste formul\u00e1rio, insira um ComboBox<\/em>, um ListBox<\/em> e um CommandButton<\/em>.\u00a0<\/span>
\nDepois de criar\u00a0os objetos combo e listagem, \u00e9 hora de acrescentar o range de dados em cada um. O primeiro que iremos alimentar \u00e9 o objeto combo. Para realizar esta tarefa, basta clicar sobre o objeto e digitar o nome do range de planilha no campo RowSource<\/em> da janela de Propriedades.<\/span>
\nVamos verificar se o combo est\u00e1 funcionando adequadamente. Para efetuar este teste, pressione a tecla F5<\/strong> do seu teclado para ativar o formul\u00e1rio. Quando ele estiver ativo na tela, clique sobre o combo e ver\u00e1 os nomes dos estados.<\/span>
\nPara que os nomes dos estados apare\u00e7am no listbox<\/em>, repita a mesma sequ\u00eancia utilizada para alimentar o combo. <\/span>
\nOu seja, selecione o objeto ListBox<\/em> no formul\u00e1rio VBA<\/strong> e digite o nome do range de planilha no campo RowSource<\/em> na janela de propriedades. Ao ativar o formul\u00e1rio (pressionando a tecla F5<\/strong>) ver\u00e1 os nomes dos estados listados no objeto.<\/span>
\nComo vimos, os nomes dos estados s\u00e3o listados tanto no combo como na caixa de listagem. Por\u00e9m, imagine se na tabela da planilha<\/a> s\u00e3o inseridos os nomes dos estados da regi\u00e3o Sul? Obviamente n\u00e3o seria nada produtivo repetir todo o procedimento para alimentar os objetos. Para evitar este problema, vamos tornar o range<\/em> vari\u00e1vel.<\/span>
\nVamos aproveitar e treinar a utiliza\u00e7\u00e3o de vari\u00e1veis p\u00fablicas. Insira dois novos m\u00f3dulos. Por quest\u00e3o de organiza\u00e7\u00e3o (lembre-se que voc\u00ea \u00e9 um programador organizado), nomeie estes m\u00f3dulos. O primeiro dever\u00e1 se chamar mdl_Vars<\/strong> para receber as vari\u00e1veis p\u00fablicas. O segundo dever\u00e1 se chamar mdl_Rotinas<\/strong>, para receber a rotina que tornar\u00e1 o range<\/em> vari\u00e1vel.<\/span>
\nNo m\u00f3dulo de vari\u00e1veis p\u00fablicas, crie a vari\u00e1vel Limite. Esta vari\u00e1vel dever\u00e1 ser declarada como Byte<\/em>.<\/span>
\nPara tornar a nossa rotina funcional, fa\u00e7a com que ela seja ativada na abertura do formul\u00e1rio. Insira o nome da rotina no evento Initialize<\/em> do formul\u00e1rio.<\/span>
\nAo disparar um duplo clique no corpo do formul\u00e1rio, imediatamente ser\u00e1 aberta a rotina no evento padr\u00e3o deste objeto. Ou seja, o evento click<\/em><\/strong>. Ative o menu de eventos e selecione o evento Initialize.<\/em><\/span>
\nNo evento que se abrir\u00e1 no m\u00f3dulo, basta apenas digitar o nome da rotina para que esta seja ativada na inicializa\u00e7\u00e3o do formul\u00e1rio.<\/span>
\nConclu\u00eddo este processo, ao inserir ou eliminar nomes de estados na tabela, tanto o combo como a caixa de listagem reproduzir\u00e3o fielmente os dados da tabela.<\/span>
\nCurtiu o post? Deixe seu coment\u00e1rios nos contando se o conte\u00fado foi relevante para voc\u00ea ou caos tenha ficado alguma d\u00favida!<\/span><\/p>\n

<\/i>Love<\/span>0<\/span><\/span><\/a> <\/i> <\/i>