Удаление из listbox и одновременно и из листа
|
|
miro5 |
Дата: Понедельник, 27.11.2017, 22:48 |
Сообщение № 1 |
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
 Excel 2007 | |
Добрый вечер. Сделал код, удаляет все прекрасно из строки, но что дописать чтобы и из таблицы он удалял тоже? [vba]Код Private Sub CommandButton4_Click() For i = 0 To Me.ListBox2.ListCount If ListBox2.Selected(i) = True Then iRow = ListBox2.List(ListBox2.ListIndex, 0) ListBox2.RemoveItem i Exit For End If Next
End Sub [/vba]
Добрый вечер. Сделал код, удаляет все прекрасно из строки, но что дописать чтобы и из таблицы он удалял тоже? [vba]Код Private Sub CommandButton4_Click() For i = 0 To Me.ListBox2.ListCount If ListBox2.Selected(i) = True Then iRow = ListBox2.List(ListBox2.ListIndex, 0) ListBox2.RemoveItem i Exit For End If Next
End Sub [/vba]miro5
|
|
| Ответить
|
parovoznik |
Дата: Вторник, 28.11.2017, 07:18 |
Сообщение № 2 |
|
Группа: Проверенные
Ранг: Обитатель
Сообщений: 449
Репутация:
26
±
Замечаний:
0% ±
 Excel 2013 | |
miro5, чтобы из таблицы он удалял тоже надо приложить файл пример. 
miro5, чтобы из таблицы он удалял тоже надо приложить файл пример. parovoznik
|
|
| Ответить
|
alex77755 |
Дата: Вторник, 28.11.2017, 12:52 |
Сообщение № 3 |
|
Группа: Проверенные
Ранг: Обитатель
Сообщений: 362
Репутация:
64
±
Замечаний:
0% ±
 | |
Цитата ListBox2.RemoveItem i Вот этого не надо делать если из таблицы тоже надо удалять! Надо сразу удалять из таблицы, а потом просто обновить заполнение списка
Цитата ListBox2.RemoveItem i Вот этого не надо делать если из таблицы тоже надо удалять! Надо сразу удалять из таблицы, а потом просто обновить заполнение спискаalex77755
Могу помочь в VB6, VBA Alex77755@mail.ru
|
|
| Ответить
|
miro5 |
Дата: Вторник, 28.11.2017, 18:00 |
Сообщение № 4 |
|
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация:
0
±
Замечаний:
0% ±
 Excel 2007 | |
alex77755, А не подскажешь примерный код как это делается?
alex77755, А не подскажешь примерный код как это делается?miro5
|
|
| Ответить
|
Pelena |
Дата: Вторник, 28.11.2017, 18:18 |
Сообщение № 5 |
|
Группа: Админы
Ранг: Местный житель
Сообщений: 19517
Репутация:
4632
±
Замечаний:
±
 Excel 365 & Mac Excel | |
надо приложить файл пример
надо приложить файл пример Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
|
|
| Ответить
|