Dan-K
Решил разобраться в Вашем вопросе, и вот что получилось...
У меня не работает даже вот это:
UserForm1.ListBox1.RowSource = ""
Видимо, при заполнении списка через RowSource данные заполняются как-то
отличительно от метода AddItem и требуют
особого метода работы... Времени разбираться в чем этом метод заключается пока нет, но позже попробую разобратся. А пока, как вариант, можете использовать альтернативу:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Private Sub ListBox1_Click()
Dim i As Byte
If UserForm1.ListBox1.ListIndex = 4 Then
For i = 1 To ListBox1.ListCount
ListBox1.RemoveItem ListBox1.ListCount - 1
Next i
'здесь вместо i*10 Вы можете брать элемент из массива, в который предварительно занесены значения с нужного диапазона
For i = 1 To 5
ListBox1.AddItem i * 10
Next i
Else
End If
End Sub
Private Sub UserForm_Initialize()
Dim i As Byte
'здесь вместо i Вы можете брать элемент из массива, в который предварительно занесены значения с нужного диапазона
For i = 1 To 5
ListBox1.AddItem i
Next i
End Sub
Хочу заметить, что у меня при заполнении списка через rowsource у меня даже не срабатывает метод removeitem, пишет "неопределенная ошибка"... Интересно...
