таблица Excel

[VadEr]

Доброго времени суток!

1) Подскажите пожалуйста, как мне определить количество строк в таблице? что бы иметь возможность в нее дописыват новые строки внизу
2) как определить номер выделенной строки в ListBox?
3) как удалить строку в таблице, номер в которой соответствует номеру выделенной строки в ListBox?
Заранее спасибо!

[КаМММ]

Строка = Range("B65536").End(xlUp).Row
Последняя строка с данными в столбце "В"
For u = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(u) Then Rows(u).Delete Shift:=xlUp
Next u
Ну вобщем как-то так.

[VadEr]

Боьшое спасибо!
Разреши еще спросить. После каждой операции с изменением или удалением строки как эти изменения внести в ListBox?

[SAS888]

как определить номер выделенной строки в ListBox?

Например, так:

r = ListBox1.ListIndex

Обратите внимание, что счет строк в ListBox начинается с 0. Если же в ListBox-е не выбрано значение, то r = -1.

как удалить строку в таблице, номер в которой соответствует номеру выделенной строки в ListBox?

Например, так:

Rows(ListBox1.ListIndex + 1).Delete

Такой код удалит строку рабочего листа с номером, соответствующим номеру выбранной строки в ListBox. А что у Вас означает номер строки в таблице? Перед удалением нужно проверить, выбрано ли значение в ListBox-е (ListBox1.ListIndex > -1).

После каждой операции с изменением или удалением строки как эти изменения внести в ListBox?

Для полного ответа, необходимы уточнения. ListBox где? В форме, или на рабочем листе? Как заполняется ListBox? С помощью RowSource? Или с использованием AddItem? Какие изменения нужно внести в ListBox? Удалить значение? Изменить количество элементов? и т.п.

[VadEr]

Сообщение от SAS888

Как заполняется ListBox? С помощью RowSource?

это как? я использовал AddItem
в listbox отображабтся список столбца в таблице. я в форме изменяю, добавляю или редактирую запись в таблице (для чего открываются другие формы), а начальный список как вывелся при открытии первой формы так и остается, его и нужно заново переписать (т.к. данные в таблице изменяются)

[SAS888]

это как? я использовал AddItem

Пусть требуется поместить в ListBox1 на форме значения из непрерывного диапазона, например, от ячейки "A1" до последней заполненной ячейки в столбце "A". В таком случае проще использовать

ListBox1.RowSource = Range([A1], Cells(Rows.Count, "A").End(xlUp)).Address