Форум по VBA, Excel и Word

Word => Макросы в Word => Тема начата: Sergi92 от 18 Сентябрь 2017, 17:10

Название: VBA Макросы: как на форме исключить позицию из listbox?
Отправлено: Sergi92 от 18 Сентябрь 2017, 17:10
Подскажите пожалуйста, как по нажатию кнопочки УДАЛИТЬ на форме исключить позицию из listbox?
Название: Re: VBA Макросы: как на форме исключить позицию из listbox?
Отправлено: Администратор от 18 Сентябрь 2017, 18:23
Удалить выделенные пункты в листбоксе можно так:
Макрос
Private Sub CommandButton2_Click()
    Dim i As Long
    For i = Me.ListBox1.ListCount - 1 To 0 Step -1
        If Me.ListBox1.Selected(i) = True Then
            Me.ListBox1.RemoveItem i
        End If
    Next i
End Sub

Кнопки для запуска макроса нет, я запускал из VBA.

[вложение удалено администратором]
Название: Re: VBA Макросы: как на форме исключить позицию из listbox?
Отправлено: Sergi92 от 18 Сентябрь 2017, 19:02
Спасибо!