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

Вход

Регистрация

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

 

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

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

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

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

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

Автор - priskons
Дата добавления - 03.05.2017 в 09:57
sboy Дата: Среда, 03.05.2017, 10:05 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 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 (31.7 Kb)


Яндекс: 410016850021169
 
Ответить
Сообщение
Вопрос решен

Ну вот((
Раз написал, то выложу
[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
Группа: Пользователи
Ранг: Новичок
Сообщений: 34
Репутация: 0 ±
Замечаний: 0% ±

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


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


Спасибо!

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

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