Excel VBA Ошибка 424 с lstDisplay.ColumnCount - PullRequest
Новая
       17

Excel VBA Ошибка 424 с lstDisplay.ColumnCount

0 голосов
/ 20 сентября 2019

Я получаю ошибку времени выполнения 424 в своем коде VBA при попытке отобразить записи.Кажется, он не подтверждает lst.Display.ColumnCount и lst.Display.RowSource.Был бы очень признателен за помощь, чтобы смягчить проблему.Каждый раз, когда я запускаю код, он показывает мне сообщение об ошибке времени выполнения 424, указывающее на строки lstDisplay.ColumnCount и lstDisplay.RowSource.

Private Sub CommandButton1_Click()
    Dim wks As Worksheet
    Dim AddNew As Range
    Set wks = Sheet1

    Set AddNew = wks.Range("A65356").End(xlUp).Offset(1, 0)

    AddNew.Offset(0, 0).Value = TextBox1.Text
    AddNew.Offset(0, 1).Value = TextBox2.Text
    AddNew.Offset(0, 2).Value = TextBox3.Text
    AddNew.Offset(0, 3).Value = TextBox4.Text
    AddNew.Offset(0, 4).Value = TextBox5.Text
    AddNew.Offset(0, 5).Value = TextBox6.Text
    AddNew.Offset(0, 6).Value = TextBox7.Text
    AddNew.Offset(0, 7).Value = TextBox8.Text
    AddNew.Offset(0, 8).Value = TextBox9.Text
    AddNew.Offset(0, 9).Value = TextBox10.Text

    lstDisplay.ColumnCount = 10
    lstDisplay.RowSource = "B1: J65356"**
End Sub

Private Sub CommandButton2_Click()
    TextBox1.Text = ""
    TextBox2.Text = ""
End Sub

Private Sub CommandButton3_Click()
    Dim i As Integer

    For i = 0 To Range("A65356").End(xlUp).Row - 1
        If lstDisplay.Selected(i) Then
            Rows(i + 1).Select
            Selection.Delete
        End If
    Next i
End Sub

Я ожидаю, что список будет отображаться в моей форме, но он продолжает показывать ошибку.

...