Exemplo da propriedade TextColumn

O exemplo seguinte utiliza a propriedade TextColumn para identificar a coluna de dados numa Caixa de Listagem que fornece dados para a respetiva propriedade Text .

Este exemplo define a terceira coluna da ListBox como a coluna de texto. À medida que seleciona uma entrada da Caixa de Listagem, o valor da TextColumn será apresentado na Etiqueta.

Este exemplo também demonstra como carregar uma Caixa de Listagem multicoluna com o método AddItem e a propriedade Lista .

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 com o nome 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.