Agregar elementos en un cuadro de lista con varias columnas

¿Cómo puedo agregar elementos en una lista con 2 columns? Agrega los artículos solo en la primera columna si uso ListBox.AddItem. También quiero agregar elementos en el 2nd column. Gracias!Agregar elementos en un cuadro de lista con varias columnas

Fuente

2011-08-07 Andrei Ion

Al usar la propiedad List.

ListBox1.AddItem "foo" 
ListBox1.List(ListBox1.ListCount - 1, 1) = "bar"

Fuente

2011-08-07 14:32:25 GSerg

Muchas gracias. Ahora si quiero obtener ese valor, ¿cómo puedo hacerlo? Me refiero a obtener el valor en la primera columna que hago ListBox1.Value ... bot para la segunda columna? –

@Andrei Ion De la misma manera. 'List' es una propiedad, funciona en ambos sentidos. – GSerg

Sí, supongo que tiene que ser de la misma manera pero no sabré la fila del artículo seleccionado ... Sé que la columna es 1 pero la fila? Supongo que ListBox1.ListCount-1 es la fila cuando agrega el valor ... ¿cómo sé cuál es la fila cuando se selecciona un valor? ¡Muchas gracias! –

-5

seleccione Propety

Origen de la fila de lista Tipo => Valor

Código:

ListbName.ColumnCount = 2

ListbName.AddItem "valor column1; valor column2 "

Fuente

2014-08-28 15:12:08 KONG

Esto no agrega ningún valor a la columna 2. El método 'AddItem' toma un valor e índice opcional (índice de fila) como argumento. –

@DavidZemens ya que rowSource type es "Value list" Las cadenas delimitadas se interpretan igual que las columnas. el código anterior de Kong funcionará. –

@krishKM ¿En qué versión de Excel? Con 2010, 'Debug.Print ListBox1.RowSourceType' provoca un error de" miembro no encontrado ". Puedo verlo en la ventana Locales, pero no en el panel de Propiedades. –

Hay otra manera de lograrlo: -

Private Sub UserForm_Initialize() 
Dim list As Object 
Set list = UserForm1.Controls.Add("Forms.ListBox.1", "hello", True) 
With list 
    .Top = 30 
    .Left = 30 
    .Width = 200 
    .Height = 340 
    .ColumnHeads = True 
    .ColumnCount = 2 
    .ColumnWidths = "100;100" 
    .MultiSelect = fmMultiSelectExtended 
    .RowSource = "Sheet1!C4:D25" 
End With End Sub

Aquí, estoy usando el rango C4: D25 como fuente de datos para las columnas. Conseguirá que ambas columnas se llenen con valores.

Las propiedades se explican por sí mismas. Puede explorar otras opciones dibujando ListBox en UserForm y usando "Properties Window (F4)" para jugar con los valores de las opciones.

Fuente

2016-12-29 14:42:13

No es exactamente la respuesta, pero es un método más eficiente para agregar una lista de columnas múltiples. – FCastro

Esto solo funciona cuando se usa VBA en combinación con Excel :) –

Agregar elementos en un cuadro de lista con varias columnas

Respuesta

Cuestiones relacionadas