Ошибка при заполнении листбокса - VBA
Формулировка задачи:
в примере две формы, на одной лист бокс, на другой текст боксы 14шт. при нажатии на кнопку содержимое текстбоксов записывается в листбокс формы1. при записи с 11 го текст бокса выходит ошибка: Run-tme error 380: Could not set the List property. Invalid property value. не могу понять в чем ошибка... Плиз оч нужно, помогите
Решение задачи: «Ошибка при заполнении листбокса»
textual
Листинг программы
Private Sub CommandButton4_Click() UserForm1.ListBox1.ColumnCount = 15 UserForm1.ListBox1.ColumnWidths = "20;20;20;20;20;20;20;20;20;20;20;20;20;20;20" Static List() As String Dim aa(), a& 'UserForm1.ListBox1.AddItem a = UserForm1.ListBox1.ListCount ReDim Preserve List(14, a) List(0, a) = a For i = 1 To 14 List(i, a) = UserForm2.Controls("TextBox" & i).Text Next i UserForm1.ListBox1.Column = List UserForm2.Hide UserForm1.Show 'aa = Array(UserForm2.TextBox1.Text, UserForm2.TextBox2.Text, UserForm2.TextBox3.Text, UserForm2.TextBox4.Text, UserForm2.TextBox5.Text, UserForm2.TextBox6.Text, UserForm2.TextBox7.Text, UserForm2.TextBox8.Text, UserForm2.TextBox9.Text, UserForm2.TextBox10.Text) ', UserForm2.TextBox11.Text, UserForm2.TextBox12.Text, UserForm2.TextBox13.Text, UserForm2.TextBox14.Text) 'Worksheets("Ëèñò1").Cells(a + 3, 2).Resize(, 14) = aa End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д