Макрос добавления определенной строки

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Макрос добавления определенной строки (Формулы/Formulas)

GaLaXoN

Дата: Четверг, 20.08.2015, 11:08 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 103

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Всем доброго времени суток!

Научился копировать и удалять строку макросом!.... счастью нет предела!
Но никак не могу понять как организовать вставку пустых ячеек, а именно:
в примере есть данные, есть 3 кнопки: 1) "Копирование столбцов"; 2) "Добавить пустую строку (серая)"; 3) "Добавить пустой итог (оранжевая)".

а теперь вкратце о каждой кнопке:

1) "Копирование столбцов"
есть столбцы A:C - им соответствует "1 группа".
как организовать добавление (копирование рядом) этих столбцов, чтобы обозвать ее "2 группа"?

2) "Добавить пустую строку (серая)"
как организовать добавление пустой строки A2:K2 в строку после выделенной ячейки?

3) "Добавить пустой итог (оранжевая)"
вопрос аналогичен 2, только вставить нужно строку A4:K4?

Буду признателен за любую помощь!

Спасибо!

К сообщению приложен файл: 9123480.xlsm (33.9 Kb)

Ответить

miver

Дата: Четверг, 20.08.2015, 11:19 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

GaLaXoN, Как я понял то так

К сообщению приложен файл: 1378041.xlsm (33.9 Kb)

Ответить

GaLaXoN

Дата: Четверг, 20.08.2015, 11:32 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 103

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата miver, 20.08.2015 в 11:19, в сообщении № 2

Как я понял то так

немного не верно!
основная таблица начинается с 26 ячейки, добавлять нужно так: наводим на ячейку (допустим С29)
нажимаем на кнопку "Добавить пустую строку (серая)" и получаем что на ячейке ниже выделенной появляется строка 2 (с серым цветом).
аналогично для кнопки "Добавить пустой итог (оранжевая) - копируются данные из строку 4 (с оранжевым цветом).

при добавлении столбцов, сбивается остальная часть.....я так думаю дело в том, что диапазон подкреплен по столбцам........вставлять нужно будет строку целиком....(наверное).

и еще вопрос по названию столбца (2 группа) можно сделать запрос на имя? т.е. при добавлении вылезет окно с вводом имени?

Ответить

KSV

Дата: Четверг, 20.08.2015, 13:24 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Добрый день!
Проверьте. (немного упростил ваш код)

К сообщению приложен файл: 6979059.xlsm (35.5 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

GaLaXoN

Дата: Четверг, 20.08.2015, 13:43 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 103

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата KSV, 20.08.2015 в 13:24, в сообщении № 4

Проверьте

может я чего-то не понимаю.....
но мне нужно чтобы вставлялась строка 2:2 (когда нажимаем на "Добавить пустую строку (серая)")и строка 4:4 (когда нажимаем на "Добавить пустой итог (оранжевая)").

с добавлением столбцов все вроде отлично! =)

Ответить

miver

Дата: Четверг, 20.08.2015, 13:48 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 37 ±

Замечаний: 0% ±

Excel 2010

Цитата GaLaXoN, 20.08.2015 в 11:32, в сообщении № 3

нажимаем на кнопку "Добавить пустую строку (серая)"

Добавил проверку на цвет и нахождение в основной таблице

Цитата GaLaXoN, 20.08.2015 в 11:32, в сообщении № 3

для кнопки "Добавить пустой итог (оранжевая) - копируются данные из строку 4

Непонял, так добавить строку или скопировать ?

Цитата GaLaXoN, 20.08.2015 в 11:32, в сообщении № 3

можно сделать запрос на имя?

Смотрите реализацию

К сообщению приложен файл: 6646193.xlsm (35.1 Kb)

Ответить

KSV

Дата: Четверг, 20.08.2015, 13:58 | Сообщение № 7

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Цитата GaLaXoN, 20.08.2015 в 11:32, в сообщении № 3

можно сделать запрос на имя?

замените код кнопки [vba]

Код

Private Sub cmdCopyColumns_Click()
     With Range("LastGroup").Resize(, 3)
         .EntireColumn.Insert
         With .Offset(, -3)
             .Merge
             .Cells(1) = InputBox("Введите имя группы:", "Новая группа")
         End With
     End With
End Sub

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

KSV

Дата: Четверг, 20.08.2015, 14:09 | Сообщение № 8

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

Цитата GaLaXoN, 20.08.2015 в 13:43, в сообщении № 5

мне нужно чтобы вставлялась строка 2:2

добавьте одну строчку [vba]

Код

Private Sub cmdAddRow_Click()
     If ActiveCell.Row < 27 Then ' т.к. добавляются строки, а не ячейки, то нет смысла проверять принадлежность акт. ячейки к используемому диапазону
         MsgBox "Выделите ячейку в таблице"
     Else
         ActiveCell.EntireRow.Insert
         Rows(2).Copy ActiveCell.EntireRow
     End If
End Sub

[/vba]

Цитата GaLaXoN, 20.08.2015 в 13:43, в сообщении № 5

и строка 4:4

она и так копируется, только в ней еще и формулы правятся под новый диапазон

К сообщению приложен файл: 1739802.xlsm (36.0 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

Ell

Дата: Среда, 30.08.2017, 14:35 | Сообщение № 9

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата KSV, 20.08.2015 в 14:09, в сообщении № 8 ()

добавьте

Добрый день!
А что значит строка "With Range("LastGroup")" в последнем макросе?
При использования этого кода в своем файле, ругается на Debag и выделяет эту строку.

Ответить

Макрос добавления определенной строки (Формулы/Formulas)

Страница 1 из 1
1