Выбор из 10 списков. Ошибка выполнения "390" - PullRequest
Новая
       12

Выбор из 10 списков. Ошибка выполнения "390"

0 голосов
/ 04 августа 2020

Ниже кода используется для 10 элементов управления списком 10 элементов. Пользователи выбирают элементы списков и сохраняют их в строку и столбец, связанные с активной таблицей, работают отлично. Также в пользовательской форме есть кнопки Spindown_up и _down.

Когда пользователь вниз или вверх по коду кнопок spindown получает соответствующие значения из заданной строки и столбцов. При первом или втором использовании увеличивайте или уменьшайте скорость вращения без каких-либо проблем. Но после 2 или более случаев использования кнопки вращения возникает ошибка:

Ошибка выполнения «390». Не удалось установить выбранное свойство. Недопустимое значение свойства. Проблема с выбранным свойством в окне списка пользовательской формы. 


Sub get_decad(rnum As Integer)

Dim first_row, last_row As Integer
first_row = 57
last_row = 65

If rnum >=first_line  And rnum <= last_row Then
UserForm1.TextBox1 = ActiveSheet.Range("ca" & rnum)
UserForm1.TextBox2 = ActiveSheet.Range("cc" & rnum)
UserForm1.TextBox3 = ActiveSheet.Range("ce" & rnum)
UserForm1.TextBox4 = ActiveSheet.Range("cg" & rnum)
UserForm1.TextBox5 = ActiveSheet.Range("ci" & rnum)
UserForm1.TextBox6 = ActiveSheet.Range("ck" & rnum)
UserForm1.TextBox7 = ActiveSheet.Range("cm" & rnum)
UserForm1.TextBox8 = ActiveSheet.Range("co" & rnum)
UserForm1.TextBox9 = ActiveSheet.Range("cq" & rnum)
UserForm1.TextBox10 = ActiveSheet.Range("cs" & rnum)

   For iCount = 1 To 10
       
        Me.ListBox1.Selected(iCount) = False
        Me.ListBox2.Selected(iCount) = False
        Me.ListBox3.Selected(iCount) = False
        Me.ListBox4.Selected(iCount) = False
        Me.ListBox5.Selected(iCount) = False
        Me.ListBox6.Selected(iCount) = False
        Me.ListBox7.Selected(iCount) = False
        Me.ListBox8.Selected(iCount) = False
        Me.ListBox9.Selected(iCount) = False
        Me.ListBox10.Selected(iCount) = False
    Next iCount

UserForm1.ListBox10.Selected(ActiveSheet.Range("cs" & rnum)) = True
UserForm1.ListBox9.Selected(ActiveSheet.Range("cq" & rnum)) = True
UserForm1.ListBox8.Selected(ActiveSheet.Range("co" & rnum)) = True
UserForm1.ListBox7.Selected(ActiveSheet.Range("cm" & rnum)) = True
UserForm1.ListBox6.Selected(ActiveSheet.Range("ck" & rnum)) = True
UserForm1.ListBox5.Selected(ActiveSheet.Range("ci" & rnum)) = True
UserForm1.ListBox4.Selected(ActiveSheet.Range("cg" & rnum)) = True
UserForm1.ListBox3.Selected(ActiveSheet.Range("ce" & rnum)) = True
UserForm1.ListBox2.Selected(ActiveSheet.Range("cc" & rnum)) = True
UserForm1.ListBox1.Selected(ActiveSheet.Range("ca" & rnum)) = True

Else
' do nothing
End If

End Sub

1 Ответ

0 голосов
/ 06 августа 2020

Я понял.

Моя ошибка заключалась в попытке .selected ("значение"). Должен быть выбран .selected («Номер индекса позиции»).

...