Exemplo da propriedade TextColumn

O exemplo a seguir usa a propriedade TextColumn para identificar a coluna de dados em uma ListBox que fornece dados para sua propriedade Text .

Este exemplo define a terceira coluna da ListBox como a coluna de texto. Ao selecionar uma entrada na ListBox, o valor do TextColumn será exibido no Rótulo.

Este exemplo também demonstra como carregar uma ListBox multicolumn usando o método AddItem e a propriedade List .

Para usar este exemplo, copie esta amostra de código para a parte Declarações de um formulário. Verifique se o formulário contém:

• A ListBox named ListBox1.
• Uma Caixa de Texto chamada TextBox1.

Private Sub UserForm_Initialize() 
ListBox1.ColumnCount = 3 
 
ListBox1.AddItem "Row 1, Col 1" 
ListBox1.List(0, 1) = "Row 1, Col 2" 
ListBox1.List(0, 2) = "Row 1, Col 3" 
 
ListBox1.AddItem "Row 2, Col 1" 
ListBox1.List(1, 1) = "Row 2, Col 2" 
ListBox1.List(1, 2) = "Row 2, Col 3" 
 
ListBox1.AddItem "Row 3, Col 1" 
ListBox1.List(2, 1) = "Row 3, Col 2" 
ListBox1.List(2, 2) = "Row 3, Col 3" 
 
ListBox1.TextColumn = 3 
End Sub 
 
Private Sub ListBox1_Change() 
TextBox1.Text = ListBox1.Text 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.