Ошибка при заполнении листбокса - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.7 из 5
Похожие ответы