Программно выделить элементы в ListBox

Игорь

Гость

08.05.2008 13:57:03

1) Допустим я знаю, что из всего списка, который есть в ListBox надо в данный момент выделить элементы 2-ой, 8-й и 10-й
2) Можно ли это сделать программно (а не мышкой)?
3) Т.е. с помощью каких-то операторов в VBA закрасить в ListBox - эти 2-ой, 8-й и 10-й элементы и они будут как бы выделены и Excel будет знать, что я выбрал эти 2-ой, 8-ой и 10-й элементы в данном ListBox, хотя я мышкой по ним и не щелкал?
Игорь

Pavel55 Гость	#2 08.05.2008 14:22:52 Наверное, как-то так Private Sub CommandButton1_Click() Dim i& Me.ListBox1.MultiSelect = fmMultiSelectMulti For i = 0 To Me.ListBox1.ListCount Me.ListBox1.Selected(i) = False Next If Me.ListBox1.ListCount >= 10 Then Me.ListBox1.Selected(1) = True '2-й Me.ListBox1.Selected(7) = True '8-й Me.ListBox1.Selected(9) = True '10-й End If End Sub

Игорь Гость	#3 10.05.2008 08:24:13 Спасибо громадное Pavel55! Ваша идея насчет выделения программным методом понятна. Игорь

Читают тему