Не удалось установить свойство List.Недопустимое значение свойства

Question

Я получаю эту ошибку, и я не знаю причину. У меня есть следующий кусок кода:

Private Sub repereche_Change()
Dim ws As Worksheet
Set ws = Worksheets("BD_IR")
Dim Rand As Long, Rand2 As Long
Dim prestrangere As Long
Dim prestrangere2 As Long
Dim bila As Long
Dim ws2 As Worksheet
Set ws2 = Worksheets("BD_AR")
prestrangere = 0
prestrangere2 = 0
bila = 10
Rand = 3
Rand2 = 3

Do While ws.Cells(Rand, 3).Value <> "" And Rand < 65000
    If Me.repereche.Value = Mid(ws.Cells(Rand, 3), 4, 10) Then
        Do While ws2.Cells(Rand2, 3).Value <> "" And Rand2 < 65000
            If Me.repereche.Value = Mid(ws2.Cells(Rand2, 3), 4, 10) Then
                If ws.Cells(Rand, 7) <> "" Then
                prestrangere = (((ws2.Cells(Rand2, 7) - 400) * 10) - ((ws.Cells(Rand, 6) - 400) * 10) - (bila * 1.414 * 2)) - 10
                prestrangere2 = (((ws2.Cells(Rand2, 6) - 400) * 10) - ((ws.Cells(Rand, 7) - 400) * 10) - (bila * 1.414 * 2)) - 10
                Else
                prestrangere = (((ws2.Cells(Rand2, 6) - 400) * 10) - ((ws.Cells(Rand, 6) - 400) * 10) - (bila * 1.414 * 2)) - 10
                End If
                gksluri.AddItem ws.Cells(Rand, 4).Value 'comanda IR
                gksluri.List(gksluri.ListCount - 1, 1) = ws.Cells(Rand, 5) 'inel IR
                gksluri.List(gksluri.ListCount - 1, 2) = ws.Cells(Rand, 6) 'GKSL IR
                gksluri.List(gksluri.ListCount - 1, 3) = ws.Cells(Rand, 7) 'GKSL 2 IR
                gksluri.List(gksluri.ListCount - 1, 4) = ws2.Cells(Rand2, 4) 'comanda AR
                gksluri.List(gksluri.ListCount - 1, 5) = ws2.Cells(Rand2, 5) 'inel AR
                gksluri.List(gksluri.ListCount - 1, 6) = ws2.Cells(Rand2, 6) 'GKSL AR
                gksluri.List(gksluri.ListCount - 1, 7) = ws2.Cells(Rand2, 7) 'GKSL 2 AR
                gksluri.List(gksluri.ListCount - 1, 8) = bila
                gksluri.List(gksluri.ListCount - 1, 9) = prestrangere
                gksluri.List(gksluri.ListCount - 1, 10) = "test" 'HERE IS THE ERROR
            End If
        Rand2 = Rand2 + 1
        Loop
    End If
Rand2 = 3
Rand = Rand + 1
Loop
End Sub

gksluri - это список. В списке есть 11 столбцов, установленных в свойстве ColumnCount. Если я уберу строку

gksluri.List(gksluri.ListCount - 1, 10) = "test" 

все работает нормально. Что я делаю неправильно? Где может быть проблема? Я не мог ничего найти. Большое спасибо!

Answer 1

Для несвязанного источника данных существует ограничение в 10 столбцов (от 0 до 9).

От: http://office.microsoft.com/en-us/excel-help/HV080556371.aspx