Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Удаление выделенной строки

Автор Эльвира Гимадеева, 01.06.2014, 01:07

« назад - далее »

Эльвира Гимадеева

Подскажите пожалуйста, как сделать так, чтобы в кнопке очистить при выделении одной строки удалялась только она, при выделении нескольких- они, а если ничего не выделять,  то полностью очистится ListBox. Замучилась вся, первый пункт вышел,а а вторые два никак.  :)

Private Sub ToggleButton1_Click()
For j = ListBox1.ListCount - 1 To 0 Step -1
    If ListBox1.Selected(j) Then
        ListBox1.RemoveItem j
    End If
Next j

End Sub

kuklp

Private Sub ToggleButton1_Click()
    Dim i&
    For j = ListBox1.ListCount - 1 To 0 Step -1
        If ListBox1.Selected(j) Then
            i = i + 1
            ListBox1.RemoveItem j
        End If
    Next j
    If i = 0 Then ListBox1.Clear
End Sub
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771