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

Вход

Регистрация

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

 

= Мир MS Excel/Вставка строки макросом - Мир MS Excel

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

Excel 2007
Здравствуйте.
Помогите доработать код.
Нужно доработать макрос вставки нижней строки (кнопкой Строки+) в защищенный лист без пароля с форматом предыдущей. Формат предыдущей строки это границы и формулы ячеек столбцов 36, 37, 38, 39, 41.
За ориентир можно взять ячейку с точкой "." столбца 1, которая на данной момент находится в ячейки А35.
Удаление строк идет корректно.
Файл прилагается.
К сообщению приложен файл: tem.xlsm (25.7 Kb)
 
Ответить
СообщениеЗдравствуйте.
Помогите доработать код.
Нужно доработать макрос вставки нижней строки (кнопкой Строки+) в защищенный лист без пароля с форматом предыдущей. Формат предыдущей строки это границы и формулы ячеек столбцов 36, 37, 38, 39, 41.
За ориентир можно взять ячейку с точкой "." столбца 1, которая на данной момент находится в ячейки А35.
Удаление строк идет корректно.
Файл прилагается.
Автор - segail
Дата добавления - 14.10.2013 в 00:01
KuklP Дата: Понедельник, 14.10.2013, 00:17 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Кросс:
http://www.programmersforum.ru/showthread.php?t=245522&page=2

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеКросс:
http://www.programmersforum.ru/showthread.php?t=245522&page=2
Автор - KuklP
Дата добавления - 14.10.2013 в 00:17
doober Дата: Понедельник, 14.10.2013, 01:22 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub AddRowAbove()
     Const psw As String = ""
     With ActiveSheet
         .Unprotect psw
         With .Columns(1).Find(".")
             .EntireRow.FillDown
             .Offset(1, 0) = "."
         End With
         .Protect psw
     End With
End Sub
[/vba]

[offtop] Да.Идут год а принцип тот же.

 
Ответить
Сообщение[vba]
Код
Sub AddRowAbove()
     Const psw As String = ""
     With ActiveSheet
         .Unprotect psw
         With .Columns(1).Find(".")
             .EntireRow.FillDown
             .Offset(1, 0) = "."
         End With
         .Protect psw
     End With
End Sub
[/vba]

[offtop] Да.Идут год а принцип тот же.
Автор - doober
Дата добавления - 14.10.2013 в 01:22
segail Дата: Понедельник, 14.10.2013, 01:46 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
doober
Я так понял строка копируются и вставляются на последующую с низу.
Дело в том, что снизу будет контент в диапазоне ячеек F37:AL42 и при добавлении новой строки он должен сдвигаться в низ.


Сообщение отредактировал segail - Понедельник, 14.10.2013, 03:05
 
Ответить
Сообщениеdoober
Я так понял строка копируются и вставляются на последующую с низу.
Дело в том, что снизу будет контент в диапазоне ячеек F37:AL42 и при добавлении новой строки он должен сдвигаться в низ.
Автор - segail
Дата добавления - 14.10.2013 в 01:46
Wasilich Дата: Понедельник, 14.10.2013, 04:37 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата segail, 14.10.2013 в 01:46, в сообщении № 4
при добавлении новой строки он должен сдвигаться в низ.

После строки
[vba]
Код
.Offset(1, 0) = "."
[/vba]
Добавьте строку
[vba]
Код
Rows(.Row + 2).Insert Shift:=xlDown
[/vba]
 
Ответить
Сообщение
Цитата segail, 14.10.2013 в 01:46, в сообщении № 4
при добавлении новой строки он должен сдвигаться в низ.

После строки
[vba]
Код
.Offset(1, 0) = "."
[/vba]
Добавьте строку
[vba]
Код
Rows(.Row + 2).Insert Shift:=xlDown
[/vba]
Автор - Wasilich
Дата добавления - 14.10.2013 в 04:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставка строки макросом (Доработать макрос вставки нижней строки)
  • Страница 1 из 1
  • 1
Поиск:

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