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

Вход

Регистрация

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

 

= Мир MS Excel/Добавить копию строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить копию строки (Макросы/Sub)
Добавить копию строки
priskons Дата: Среда, 03.05.2017, 09:23 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Помогите создать макрос добавления копии строки.
В ячейке "A4" и ниже по всему столбцу "А" должна быть кнопка "копировать строку" или просто знак "+"
Нажимая на ячейку "A4" ниже (в строке "5") должна появится копия строки "4", но с обнуленной ячейкой "I5".
Буду благодарен!
К сообщению приложен файл: 5615417.xlsx(26Kb)
 
Ответить
СообщениеПомогите создать макрос добавления копии строки.
В ячейке "A4" и ниже по всему столбцу "А" должна быть кнопка "копировать строку" или просто знак "+"
Нажимая на ячейку "A4" ниже (в строке "5") должна появится копия строки "4", но с обнуленной ячейкой "I5".
Буду благодарен!

Автор - priskons
Дата добавления - 03.05.2017 в 09:23
priskons Дата: Среда, 03.05.2017, 09:57 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Тема закрыта! Вопрос решен
 
Ответить
СообщениеТема закрыта! Вопрос решен

Автор - priskons
Дата добавления - 03.05.2017 в 09:57
sboy Дата: Среда, 03.05.2017, 10:05 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 601
Репутация: 156 ±
Замечаний: 0% ±

Excel 2010
Вопрос решен

Ну вот((
Раз написал, то выложу
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Range("I" & Target.Row).ClearContents
End Sub
[/vba]
К сообщению приложен файл: 5615417.xlsm(32Kb)
 
Ответить
Сообщение
Вопрос решен

Ну вот((
Раз написал, то выложу
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column > 1 Then Exit Sub
Rows(Target.Row).Copy
Rows(Target.Row).Insert Shift:=xlDown
Range("I" & Target.Row).ClearContents
End Sub
[/vba]

Автор - sboy
Дата добавления - 03.05.2017 в 10:05
priskons Дата: Четверг, 04.05.2017, 11:17 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 31
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Ну вот((
Раз написал, то выложу


Спасибо!
 
Ответить
Сообщение
Ну вот((
Раз написал, то выложу


Спасибо!

Автор - priskons
Дата добавления - 04.05.2017 в 11:17
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить копию строки (Макросы/Sub)
Страница 1 из 11
Поиск:

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