Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Как добавлять строки макросом при добавлении строк выше диапазона вручную
 
#1
16.08.2017 10:09:07
Господа.

Есть таблица. Юзер должен только заполнять данные в таблице и добавлять строки (по необходимости) макросом. Заголовок таблицы и расчет итогов защищен

1) Написал простейший макрос добавления строк
2) Чтобы сохранить стиль оформления, формата выпадающего списка, ничего не смог придумать, как прописать копирования с аналогичной таблицы и вставку в целевую таблицу
3) Чтобы итоговая сумма считалась при добавлении строк, прописал сумму через ДВССЫЛ

Теперь столкнулся с проблемой. Выше этой таблицы есть области где юзер может добавить строки сам, вручную. Если он там добавляет, то у меня смещается диапазон вставки (так как он прописан конкретно в макросе), а также нарушается и итоговое суммирование (начальная ячейка прописана в ДВССЫЛ).

Как быть? Эту таблицу можете посмотреть в примере.

Буду благодарен за помощь
 
 
 
#2
16.08.2017 10:43:00
Пускай вставляет. Какие проблемы?
=СУММ(ДВССЫЛ("Y6:Y"&СТРОКА()-2))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#3
16.08.2017 11:08:47
Владимир,Спасибо за подсказку по сумме. Что будет если сверху добавить сверху таблицы строку?

1) Вставка будет осуществляться в 6 строку, которая уже сместиться на заголовок таблицы
2) Y6 который вы прописали в ДВССЫЛ будет уже ячейка заголовка таблицы...

Понимаете?
 
 
 
#4
16.08.2017 11:12:55
Тогда нужно через ПОИСКПОЗ привязаться к слову "рыночная".
=СУММ(ДВССЫЛ("Y" & ПОИСКПОЗ("рыночная";Y1:Y100;0)+1&":Y"&СТРОКА()-2))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#5
16.08.2017 11:19:15
Аналог вашего макроса!
Код
Sub Vstavka()
Rows("6:6").Insert Shift:=xlDown
Range("b7:an6").FillUp
Range("b6:an7").ClearContents
End Sub
Изменено: Nordheim - 16.08.2017 11:21:40
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#6
16.08.2017 11:20:48
Владимир,принято. Благодарю. Попробую. Только у меня строк надо ставить 5000 и главное чтобы никто больше не прописал слово рыночная в этом дипазоне :)

Скажите, а по вставке строк макросом нет идей? )
 
 
 
#7
16.08.2017 11:31:46
Цитата
brunokaz написал:
..макросом нет идей
Тут нужны Ваши пояснения, что хотите получить на выходе? Копировать нужно с листа 2 одну строку или то, что заполнено и т.д. в этом духе.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#8
16.08.2017 11:42:03
Nordheim,
Ваш код макроса:
1) Удаляет уже заполненные строки (если я заполнил и понял, что мне еще нужна строка)
2) Вставляет по несколько строк, при добавлении множества строк
3) в случае добавления строк выше таблицы, начнется чорти чо. Проблема не решается получается
Изменено: brunokaz - 16.08.2017 11:49:44
 
 
 
#9
16.08.2017 11:49:15
Владимир, тогда по примеру с адресами пройдусь:

1) Я заполнил таблицу, все данные в ней, и понял, что у меня есть еще 1 объект, данные по которому необходимо внести в эту таблицу. Я нажимаю кнопку - строка добавляется выше сроки заполненной мною ранее (становится первой в этой таблице). При этом, сохраняются форматирования, оформление и выпадающий список новой добавленной строки.я заполняю данные по второму объекту.
2) В процессе работы, я добавляю несколько строк выше таблицы. и вспоминаю, что мне нужно внести данные по третьему объекту. Тут то и возникает проблема с моим макросом: в нем прописаны конкретные диапазоны: вставок номера строк и пр...Но нумерация строк таблицы сместится же на количество добавленных выше таблицы строк. Вот этого и надо избежать, как бы привязать макрос строго к этой таблице, вне зависимости от добавленных/удаленных строк выше самой таблицы.

Как-то так. Эта таблица большого заключения, под которой и над которой будет вестись работа по заполнению данных...
Изменено: brunokaz - 16.08.2017 11:51:17
 
 
 
#10
16.08.2017 11:49:45
Файл без данных поэтому не отследил, ничего заполненного не должен удалять.
Код
Sub Vstavka()
Rows("6:6").Insert Shift:=xlDown
Range("b7:an6").FillUp
Range("b6:an6").ClearContents
End

Subbrunokaz написал: 2) Вставляет по несколько строк

всегда вставляет только 1 строку

brunokaz написал: 3) в случае добавления строк выше таблицы, начнется чорти чо. Проблема не решается получается

Как может макрос вставит строку выше таблицы? Вы планируете смещать таблицу?

Изменено: Nordheim - 16.08.2017 11:51:30
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#11
16.08.2017 11:52:35
А почему Вы не хотите просто защитить первые три строки от вставки строк, редактирования?
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#12
16.08.2017 11:54:56
Nordheim, Мы привязаны к строке 6. Если я добавлю строку выше таблицы, это же станет строкой заголовка и начнуться проблемы
Код
Rows("6:6").Insert Shift:=xlDown
Изменено: brunokaz - 16.08.2017 11:55:25
 
 
 
#13
16.08.2017 12:02:54
Я не пойму как вы добавите строку выше таблицы, в коде зашита вставка в 6 строку, и дальнейшее форматирование конкретно 6 сроки.
Код
Sub Vstavka()
' втавляем пустую строку в строку №6
Rows("6:6").Insert Shift:=xlDown
' Копируем данные и формат с 7 строки
Range("b7:an6").FillUp
' очищаем 6 строку
Range("b6:an6").ClearContents
End
Вроде код примитивный до невозможности и все понятно.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#14
16.08.2017 12:03:54
Цитата
brunokaz написал:
Если я добавлю строку выше таблицы
Каким образом?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#15
16.08.2017 12:18:20
Nordheim, в моем примере выделите строку два и вручную добавьте строку, а потом добавьте строку в таблицу при помощи написанного Вами макроса.

Получится так, что строка 6 (Rows("6:6").Insert Shift:=xlDown) это уже строка заголовка таблицы .....

Код простой, может я не верно объясняю, за что и извиняюсь, если это так.
Изменено: brunokaz - 16.08.2017 12:18:40
 
 
 
#16
16.08.2017 12:27:19
Цитата
Nordheim написал:
brunokaz написал: 3) в случае добавления строк выше таблицы, начнется чорти чо. Проблема не решается получаетсяКак может макрос вставит строку выше таблицы? Вы планируете смещать таблицу?
Я и спросил разве таблица будет смещаться?
Мой макрос повторяет с точностью ваш, разница в том , что не нужно ничего ниоткуда копировать вот собственно и все.
Цитата
brunokaz написал:
Nordheim , в моем примере выделите строку два и вручную добавьте строку, а потом добавьте строку в таблицу при помощи написанного Вами макроса.
проделайте манипуляции с вашим макросом результат идентичный будет.
Я одного не пойму зачем пользователь вставит строки вручную если на листе кнопка вставки строк присутствует?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#17
16.08.2017 12:39:57
Цитата
Nordheim написал:
Я и спросил разве таблица будет смещаться?
Не понял фразу сначала по смещению....
Цитата
Nordheim написал:
Мой макрос повторяет с точностью ваш, разница в том , что не нужно ничего ниоткуда копировать вот собственно и все.
Согласен
Цитата
Nordheim написал:
Я одного не пойму зачем пользователь вставит строки вручную если на листе кнопка вставки строк присутствует?
Этот лист состоит из десятков таблиц. Таблицы и их форму изменять нельзя - это утвержденная форма заключения, но в некоторых местах строки добавлять можно (например под таблицами), с целью отражения комментариев к изложенным в таблицах данным и изложением доп инфы по данным из таблицы.
Изменено: brunokaz - 16.08.2017 12:40:19
 
 
 
#18
16.08.2017 13:44:47
Попробуйте добавить строки выше табличной формы..
Изменено: Владимир - 16.08.2017 13:54:52
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#19
16.08.2017 15:09:04
Цитата
Владимир написал:
Попробуйте добавить строки выше табличной формы..
Лист защищен....
 
 
 
#20
17.08.2017 08:12:33
Если эту проблему не решить или трудно решаема, прошу подтвердить кто может. Тогда я буду думать что делать...
 
 
 
#21
17.08.2017 08:39:47
Код
Sub Vstavka()
ActiveSheet.Unprotect "12345"
Rows(6).Insert
Rows("7:6").FillUp
Rows(6).ClearContents
ActiveSheet.Protect "12345", DrawingObjects:=False, Contents:=True, Scenarios:= _
        False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
        AllowFormattingRows:=True, AllowInsertingColumns:=True, _
        AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
        AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
        AllowUsingPivotTables:=True
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#22
17.08.2017 09:16:04
Nordheim, к сожалению это не решает вопрос с возможным смещением таблицы. Если только весь лист не защищать по вставке строк, что я не могу сделать
Изменено: brunokaz - 17.08.2017 09:16:32
 
 
 
#23
17.08.2017 09:22:28
Цитата
brunokaz написал:
к сожалению это не решает вопрос с возможным смещением таблицы
Почему же?, Строки вставляются благополучно макросом. Пользователь вставить строки не может. как в таком случае сместится таблица?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#24
17.08.2017 09:44:13
Nordheim, ладно...придется запрещать пользователям вставлять строки. Спасибо Вам за помощь
 
 
 
#25
17.08.2017 09:47:26
Попробуйте сделать обходной вариант. Вставление строк в любое место кроме шапки таблицы, с использованием InputBox.
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#26
17.08.2017 10:10:27
Так и пробую уже
 
 
 
#27
07.01.2019 22:26:31
Подскажите, а что нужно поменять в макросе, что бы он добавлял новую строку не в начало таблицы, а в конец?
Изменено: Kcuxa_xa - 07.01.2019 22:26:50
 
 
 
#28
07.01.2019 23:08:12
Kcuxa_xa, А в чем смысл? Вам нужно вставить пустую строку перед последней заполненной в таблице?
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#29
07.01.2019 23:16:38
Цитата
Nordheim написал:
А в чем смысл?
да Вы правы это в принципе не критично. А не подскажите как в таком случае сделать, что бы новая строка автоматом нумеровалась по порядку?
 
 
 
#30
07.01.2019 23:29:58
Файл пример покажите.
Можно так
Код
Sub test()
    Dim lrow&
    lrow = Range("a" & Rows.Count).End(xlUp).Row
    If lrow = 1 Then Exit Sub
    Range("a" & lrow + 1).Value = Range("a" & lrow).Value + 1
End Sub
Изменено: Nordheim - 07.01.2019 23:34:39
"Все гениальное просто, а все простое гениально!!!"
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх