Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

VBA Excel - Populando Listbox - userform listbox

O objetivo deste post é ensinar o modo básico de incluirmos dados em um LISTBOX

Certamente espero que já tenha aprendido a criar um formulário (USERFORM).

Neste exemplo teremos um listbox com as opções sim e não:



Geralmente, mas não é regra, colocamos estes código para popular um listbox no evento Inicializar (Initialize) do nosso formulário.

O método AddItem é o responsável pelo inclusão, através de um pequeno código:



O método AddItem pode tornar-se pesado se a lista for muito grande. Por exemplo, a lista de estados que compõem os EUA e as respectivas abreviações dos distritos de Columbia requeririam 51 linhas separadas de código para populamos o listbox.

Aconselho que utilize algo mais versátil, como o método List
 e uma série de dados para simplificar o trabalho:

Sub UserForm_Initialize()
Dim myArray() As String
  'Use a função Split para retornar um array unidimensional baseado. 
  Let myArray = Split( _
                "AL|AK|AZ|AR|CA|CO|CT|DE|DC|FL|" _
             & "GA|HI|ID|IL|IN|IA|KS|KY|LA|ME|MD|" _
             & "MA|MI|MN|MS|MO|MT|NE|NV|NH|NJ|NM|" _
             & "NY|NC|ND|OH|OK|OR|PA|RI|SC|SD|TN|" _
             & "TX|UT|VT|VA|WA|WV|WI|WY", "|")
  'Use .List method to populate listbox.
  Let ListBox1.List = myArray
lbl_Exit:
  Exit Sub
End Sub


Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...


Tags: VBA, Excel, Listbox, userform, populate popular, 



eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine