Numero de columnas para un listbox
En un botón de comando tengo el siguiente código para llenar un listbox.
El problema es que solo me permite 10 columnas y yo necesito 14 columnas,¿qué alternativa o solución me sugieren? De nuevo gracias.
Me. ListBox1. AddItem Me. TextBox14.Text 'corresponde siempre a la columna 0
Me.ListBox1.List(i, 1) = Me.ComboBox1.Text ' i es la variable que identifica la fila y el nùmero es la columna ej:(i,2)
Me.ListBox1.List(i, 2) = Me.ComboBox2.Text
Me.ListBox1.List(i, 3) = Me.ComboBox3.Text
Me.ListBox1.List(i, 4) = Me.ComboBox4.Text
Me.ListBox1.List(i, 5) = Me.ComboBox5.Text
Me.ListBox1.List(i, 6) = Me.ComboBox6.Text
Me.ListBox1.List(i, 7) = Me.ComboBox7.Text
Me.ListBox1.List(i, 8) = Me.ComboBox8.Text
Me.ListBox1.List(i, 9) = Me.ComboBox11.Text
i = i + 1
1 Respuesta
H o l a:
Te anexo una alternativa, supongo que estás capturando datos en los combos y luego pasas la información a la última fila del listbox, vuelves a capturar datos y los pasas a la última fila del listbox.
Private Sub CommandButton1_Click() 'Por.Dante Amor Dim datos() As String i = ListBox1.ListCount ReDim datos(i, 14) As String For i = 0 To ListBox1.ListCount - 1 For j = 0 To 13 datos(i, j) = ListBox1.List(i, j) Next Next datos(i, 0) = TextBox14 datos(i, 1) = ComboBox1 datos(i, 2) = ComboBox2 datos(i, 3) = ComboBox3 datos(i, 4) = ComboBox4 datos(i, 5) = ComboBox5 datos(i, 6) = ComboBox6 datos(i, 7) = ComboBox7 datos(i, 8) = ComboBox8 datos(i, 9) = ComboBox11 datos(i, 10) = ComboBox12 datos(i, 11) = ComboBox13 datos(i, 12) = ComboBox14 datos(i, 13) = ComboBox15 ListBox1.List = datos End Sub
