Приветствую вас, уважаемые эксперты!
Помогите пожалуйста решить вопрос с выделением строк в таблице.
Имеется условная таблица, на основе которой создается форма с listbox. По событию change могу выделять по одной строке в основной таблице, но очень бы хотелось иметь возможность выделить множество строк, причем непоследовательно.
Как добавить к уже выделенному диапазону новое выделение, не снимая старого?
Помогите пожалуйста решить вопрос с выделением строк в таблице.
Имеется условная таблица, на основе которой создается форма с listbox. По событию change могу выделять по одной строке в основной таблице, но очень бы хотелось иметь возможность выделить множество строк, причем непоследовательно.
Как добавить к уже выделенному диапазону новое выделение, не снимая старого?
| Код |
|---|
Option Explicit
Public Таблица1 As ListObject
Private Sub ListBox1_Change()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Таблица1.ListRows(i + 1).Range.Select
End If
Next
End Sub
Private Sub UserForm_Initialize()
Set Таблица1 = ThisWorkbook.Worksheets("Лист1").ListObjects("Таблица1")
With ListBox1
ListBox1.Clear
Dim i As Integer
For i = 1 To Таблица1.ListRows.Count
.AddItem
.Column(0, .ListCount - 1) = Таблица1.DataBodyRange(i, 2)
.Column(1, .ListCount - 1) = Таблица1.DataBodyRange(i, 4)
Next
End With
End Sub |
Наша суть отражается в наших повторяющихся действиях. Отсюда следует, что совершенство есть не действие, а привычка. Аристотель.
