|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.08.2009, 08:05 | #1 |
Регистрация: 07.08.2009
Сообщений: 5
|
Добавление (удаление) строк в таблице
Добрый день! У меня возникла вот такая проблема: я создал на листе две кнопки добавление строки к таблице (копированием)и удаление строки, записал макрос:
Sub ДобавлениеСтроки() Rows("50:50").Select Selection.Copy Rows("51:51").Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False End Sub Sub УдалениеСтроки() Rows("51:51").Select Selection.Delete Shift:=xlUp Range("C51").Select End Sub Но как сделать, чтобы макрос добавлял строки к последней строке таблицы и удалял последнюю строку таблицы (а не 50 и 51 соответственно как в приведённом коде макроса)!? С уважением, Роман! |
11.08.2009, 08:21 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
А что значит последняя строка таблицы? Это можно понимать по разному. Если, например, последней строкой считать последнюю заполненную ячейку в столбце "A", то можно так:
Код:
Чем шире угол зрения, тем он тупее.
|
11.08.2009, 09:02 | #3 |
Регистрация: 07.08.2009
Сообщений: 5
|
Под таблицей нету данных больше. А вот последняя строка может быть незаполненной
|
11.08.2009, 09:08 | #4 |
Регистрация: 07.08.2009
Сообщений: 5
|
Как программно определить последнюю строку таблицы (даже если она не заполненная)
|
11.08.2009, 09:53 | #5 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Код:
Код:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
11.08.2009, 12:00 | #6 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Во-первых, способ, предложенный The_Prist, не будет работать корректно, если, например, есть заливка ячеек, или прорисованы границы ячеек ниже, чем строка, содержащая данные. Т.к. метод .UsedRange такие строки учитывает.
Во-вторых, если,все-таки, нужно определить последнюю заполненную строку таблицы, не зависимо от номера столбца, то можно поступить, например, так: Код:
Цитата:
Чем шире угол зрения, тем он тупее.
|
|
11.08.2009, 12:40 | #7 | |||
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Цитата:
Цитата:
Цитата:
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
|||
11.08.2009, 13:05 | #8 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
The_Prist.
Не в обиду. Я просто пояснил эти Ваши две строчки. Но, похоже на то, что вопрос, что такое конец таблицы (даже не заполненной), нас с Вами интересует больше, чем автора темы.
Чем шире угол зрения, тем он тупее.
|
11.08.2009, 14:00 | #9 |
Участник клуба
Регистрация: 17.07.2009
Сообщений: 1,088
|
Да какие там обиды, было бы из-за чего. Я тоже просто пояснил причину указания именно этих двух способов.
Полностью согласен.
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru |
13.11.2010, 12:35 | #10 |
Пользователь
Регистрация: 07.06.2010
Сообщений: 21
|
Подскажите пожалуйста, как реализовать следующую функцию:
Имеем в файле MS Excel 2007 таблицу, названную "Таблица1" Нижняя строка - строка итогов. В данной таблице заполнены все строки. Необходимо добавить еще одну строку, перед итоговой строкой, для того чтобы продолжить заполнять таблицу. Нажимаешь кнопочку на экране - появляется пустая строка. Какой макрос для этого необходим? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Добавление данных из Delphi в таблице Excel | Neket21 | БД в Delphi | 1 | 23.07.2009 08:06 |
добавление в таблице | CJartem | Помощь студентам | 0 | 25.04.2009 12:20 |
добавление строки в таблице | nikleb | JavaScript, Ajax | 14 | 09.03.2009 13:27 |
Удаление/добавление полей runtime | /Denis/ | БД в Delphi | 1 | 06.08.2008 22:35 |
Добавление и удаление записей в Listview | Scorpeon | Компоненты Delphi | 0 | 08.06.2007 23:09 |