Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.11.2012, 19:33   #1
AlWin
Пользователь
 
Регистрация: 31.10.2010
Сообщений: 10
По умолчанию Добавление строк с формулами в однотипные листы книги

Не получается вставить строки шаблона с формулами одновременно в несколько листов. Причем формулы для одного листа одни, для всех других - однотипные. Очень прошу помощи. Файл с подробностями во вложении.
Вложения
Тип файла: zip Шабл.zip (49.5 Кб, 8 просмотров)
AlWin вне форума Ответить с цитированием
Старый 06.11.2012, 19:27   #2
AlWin
Пользователь
 
Регистрация: 31.10.2010
Сообщений: 10
По умолчанию

В книге 4 листа. Лист «Сводка» собирает данные в диапазоне T10:AI16 с трех листов (П1, п2, п3 – их количество непостоянно и может периодически добавляться) простым суммированием: напр. Т10=П1!Т10+п2!Т10+п3!Т10 и т.д.
Единственное отличие листов П1-п3 от Сводка – Разные формулы в диапазоне T10:AI16.
На листах имеется три динамических диапазона:
1. Диапазон L:L-N:N - этапы работ (с ним ничего делать не надо)
2. Диапазон T:AI– отчетный период, должен периодически расширяться вставкой 4-х столбцов во все листы (как это сделать, чтобы потом вручную не править даты – тоже не знаю).
Требуется помощь №1.
3. Диапазон строк 10-16 - перечень работ (без заливки и с нумерацией) и сопутствующих расходных материалов (серые строки), зависящих от объема работ. Этот диапазон набора работ расширяется за счет вставки 2-х шаблонных строк 10 и 11 (работа + ресурс).
Так как листы взаимосвязаны, желательно эти 2 строки шаблона вставлять сразу во все листы (предварительно выделив их все). Простое копирование строк 10 и 11 с последующим «вставить скопированные строки» приводит к 2-м неприятным моментам:
1. Листы П!-п3:
Напр. в ячейке Т11 листа П1 содержится формула =ОКРУГЛ(T$10*$I11;3). Аналогичная формула в ячейке U11. После копирования-вставки строк в новое место в ячейке серой строки остается ссылка на T$10, а должна измениться, например в ячейке Т13, на =ОКРУГЛ(T$12*$I13;3). Абсолютная ссылка нужна для того, чтобы потом можно было добавлять относящиеся именно к этой добавленной работе иные ресурсы простым копи-паст. Эту задачу (замены в формулах вставленных ячеек строки №10 на актуальную) вобщем-то решает строка кода:
ac.Offset(-1, stolbÌ - 1).Range(Cells(1, 1), Cells(1, cnt2 - 1)).Replace What:=10, Replacement:=utr
Но работает мой модуль с помощью имен диапазонов, определенных на листе «Сводка» только для одного листа (напр. П1), а замену номеров строк надо произвести на всех листах типа П1-п3 одновременно.
Требуется помощь №2.
2. Лист «Сводка»:
Выделям все листы, на листе Сводка выделяем строку 12, запускаем макрос «Вставить блок». После копирования-вставки строк 10 и 11 в новое место на листе «Сводка» формула Т10=П1!Т10+п2!Т10+п3!Т10 по идее должна превратиться, напр. для строки 12 в Т12=П1!Т12+п2!Т12+п3!Т12. Вместо этого в ячейке: Т14=П1!Т14+п2!Т14+п3!Т14, а ссылок на 12 строку нет вообще. Короче, кранты. Требуется помощь №3.
AlWin вне форума Ответить с цитированием
Старый 19.11.2012, 15:35   #3
AlWin
Пользователь
 
Регистрация: 31.10.2010
Сообщений: 10
По умолчанию

Огромное спасибо всем неоткликнувшимся! Чесслово. Потратил туеву хучу времени, зато сам решил все проблемы и не только эти. При этом узнал хрен знает сколько интересного. Всем удачи!
AlWin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос импорта Ексель файлов из папки в листы одной книги с последующим выполнения макросов.СПБ. as-is Microsoft Office Excel 17 17.12.2018 22:37
Как скопировать определенные листы из одной книги в другую? Toffifee Microsoft Office Excel 32 20.05.2011 12:25
Книги и листы bobinb Microsoft Office Excel 1 02.12.2010 16:59
Измение гиперссылок на листы книги при переименовании файла Aswerd Microsoft Office Excel 0 18.02.2010 01:26
При закрытии книги, удаляются листы Romuald Microsoft Office Excel 3 20.01.2009 21:34