Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавление и удаление последующих строк из таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление и удаление последующих строк из таблицы (Добавить и удалить строки из таблицы)
Добавление и удаление последующих строк из таблицы
Роберт Дата: Вторник, 22.01.2013, 20:35 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Доброго времени суток!
Ув. модераторы огромное Вам спасибо за сайт, реально очень многим помог.
Я столкнулся вот с какой задачей (не обследовав все, не стал бы обращаться за помощью). Есть таблица, как можно при помощи двух кнопок создать и удалить строки. Т.е. добавив внизу строки, можно было еще добавить такие же..тоже самое с функцией удалить. Я научился добавлять/удалять только две строки..Задача, добавить еще, если это необходимо..Буду очень благодарен Вашим советам..
К сообщению приложен файл: 7029446.xls (56.5 Kb)
 
Ответить
СообщениеДоброго времени суток!
Ув. модераторы огромное Вам спасибо за сайт, реально очень многим помог.
Я столкнулся вот с какой задачей (не обследовав все, не стал бы обращаться за помощью). Есть таблица, как можно при помощи двух кнопок создать и удалить строки. Т.е. добавив внизу строки, можно было еще добавить такие же..тоже самое с функцией удалить. Я научился добавлять/удалять только две строки..Задача, добавить еще, если это необходимо..Буду очень благодарен Вашим советам..
Автор - Роберт
Дата добавления - 22.01.2013 в 20:35
nilem Дата: Вторник, 22.01.2013, 20:46 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Привет, Роберт
велкам smile
можно попробовать так:
[vba]
Код
Sub AddTwoRows()
With Cells(Rows.Count, "B").End(xlUp)
       .Resize(2, 12).Copy .Offset(2)
End With
End Sub

Sub DelTwoRows()
Cells(Rows.Count, "B").End(xlUp).Resize(2, 12).Clear
End Sub
[/vba]

Яндекс.Деньги 4100159601573

Сообщение отредактировал nilem - Вторник, 22.01.2013, 20:47
 
Ответить
СообщениеПривет, Роберт
велкам smile
можно попробовать так:
[vba]
Код
Sub AddTwoRows()
With Cells(Rows.Count, "B").End(xlUp)
       .Resize(2, 12).Copy .Offset(2)
End With
End Sub

Sub DelTwoRows()
Cells(Rows.Count, "B").End(xlUp).Resize(2, 12).Clear
End Sub
[/vba]
Автор - nilem
Дата добавления - 22.01.2013 в 20:46
Роберт Дата: Вторник, 22.01.2013, 20:52 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Супер, все работает!!!!! Спасибо огромное, Nilem...
 
Ответить
СообщениеСупер, все работает!!!!! Спасибо огромное, Nilem...
Автор - Роберт
Дата добавления - 22.01.2013 в 20:52
nilem Дата: Вторник, 22.01.2013, 20:53 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
абалдеть smile

Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеабалдеть smile
Автор - nilem
Дата добавления - 22.01.2013 в 20:53
Роберт Дата: Вторник, 22.01.2013, 22:53 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Спасибо еще раз за помощь..для вас это пустяк, а для меня маленькая победа :-)!!! С одной таблицей все отлично работает, если расположить таблицу такого же формата ниже, то макрос считывает данные со второй таблицы, нужно только первую копировать. Был бы Вам благодарен, если подскажите как можно задать ограничение для этого копирования...Спасибо..
К сообщению приложен файл: 2028369.xls (62.0 Kb)
 
Ответить
СообщениеСпасибо еще раз за помощь..для вас это пустяк, а для меня маленькая победа :-)!!! С одной таблицей все отлично работает, если расположить таблицу такого же формата ниже, то макрос считывает данные со второй таблицы, нужно только первую копировать. Был бы Вам благодарен, если подскажите как можно задать ограничение для этого копирования...Спасибо..
Автор - Роберт
Дата добавления - 22.01.2013 в 22:53
RAN Дата: Вторник, 22.01.2013, 23:12 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Так попробуйте.

[vba]
Код
Sub AddTwoRows()
With Range("C4").End(xlDown).Offset(-1, -1)
     .Resize(2, 12).Copy
     .Offset(2).Insert
End With
End Sub

Sub DelTwoRows()
Range("C4").End(xlDown).Offset(-1, -1).Resize(2, 12).Delete
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеТак попробуйте.

[vba]
Код
Sub AddTwoRows()
With Range("C4").End(xlDown).Offset(-1, -1)
     .Resize(2, 12).Copy
     .Offset(2).Insert
End With
End Sub

Sub DelTwoRows()
Range("C4").End(xlDown).Offset(-1, -1).Resize(2, 12).Delete
End Sub
[/vba]
Автор - RAN
Дата добавления - 22.01.2013 в 23:12
Роберт Дата: Вторник, 22.01.2013, 23:21 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

RAN, спасибо большое за помощь....
 
Ответить
СообщениеRAN, спасибо большое за помощь....
Автор - Роберт
Дата добавления - 22.01.2013 в 23:21
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Добавление и удаление последующих строк из таблицы (Добавить и удалить строки из таблицы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!