|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.08.2009, 11:14 | #1 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
добавление и переименование листов книги
есть книга с определенной структурой листов:
сводный анализ годовой сводный анализ месячный анализ_1 1 анализ_2 2 и т.д. лист анализ_1 и лист 1 и далее это месяц и анализ месяца соответсвенно и с каждым новым месяцем надо добавлять два новых листа: "анализ_ХХ" и "ХХ" подскажите решение для реализации следующей логики: поскольку листы анализ_1 и 1 будут всегда, то это будут базовые листы. при добавлении нового листа надо просмотеть все имена с числами или скорее имена состоящие только из чисел и если максимальное значение+1 меньше или равно 12, то скопировать два базовых листа и заменить в их названии цифру на цифру максимальное значение плюс один. файл-тренажер вложен |
04.08.2009, 11:33 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Если листы никто не будет перемещать, то проще всего так (см. вложение).
Чем шире угол зрения, тем он тупее.
|
04.08.2009, 11:44 | #3 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
Sheets.Add.Name однозначно не подойдет.
листы "анализ_ХХ" и "ХХ" связанны кучей формул и для их нормального переноса выделяется два соответсвующих листа и одновременно копируются - тогда связи перепрописываются автоматом. но в любом случае спасибо - есть на что опереться а тоя вообще не мог понять как подойти к вопросу работы с листами |
04.08.2009, 11:54 | #4 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
а я таки переместил! из принципа .. почему ошибка возникает?? ага .. понял .. Nm = Sheets(Sheets.Count).Name выдает имя последнего листа а по структуре он с цифрой. надо что-то более надежное т.к. файл вполне может содержать и дополнительные листы к делу не относящиеся - например уже сейчас просматривается последний лист с инструкциями + возможны еще дополнительные листы. Последний раз редактировалось kievlyanin; 04.08.2009 в 12:07. |
04.08.2009, 12:05 | #5 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Вот Вы же сами видите, что неправильный ответ - есть неправильно поставленный вопрос. Вам нужно не добавлять листы, а копировать. Посмотрите вложение (пока не допускающее перемещения листов).
Чем шире угол зрения, тем он тупее.
|
04.08.2009, 12:15 | #6 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
|
04.08.2009, 12:15 | #7 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Чем шире угол зрения, тем он тупее.
|
|
04.08.2009, 12:31 | #8 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
спасибо!
работатет .. .. тока как- я еще не понял .. и притом че-то совсем не понял - вот эта строка: Sheets(Array(Sheets(Sheets.Count - 1).Name, Sheets(Sheets.Count).Name)).Copy after:=Sheets(Sheets.Count) вроде как должна копировать последний и предпоследний лист а она копирует анализ и месяц максимальные .. КАК?? Последний раз редактировалось kievlyanin; 04.08.2009 в 12:42. |
04.08.2009, 12:53 | #9 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
вот:
Sheets(Array(Sheets(Sheets.Count - 1).Name, Sheets(Sheets.Count).Name)).Copy after:=Sheets(Sheets.Count) здесь надо копировать не Sheets(Sheets.Count - 1).Name а лист с именем "анализ_" & Nm и Nm |
04.08.2009, 13:03 | #10 |
Форумчанин
Регистрация: 21.04.2008
Сообщений: 110
|
вот так:
Sheets(Array(("анализ_" & Nm), (Nm))).Copy after:=Sheets(Sheets.Count) одно но как Nm перевести из числа в имя? а то ("анализ_" & Nm) воспринимает нормально находит и копирует а соответсвующий файл месяца воспринимает не как имя а как номер листа. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копировние листов из одной книги в другую | Jenik | Microsoft Office Excel | 4 | 04.03.2009 12:22 |
вставить в CheckBox на форме название только тех листов книги, которые помечены определенным символом? | Bezdar | Microsoft Office Excel | 4 | 23.07.2008 15:30 |
Перенос данных из одной книги со многих листов в другую | gavrylyuk | Microsoft Office Excel | 34 | 20.07.2008 21:39 |
Сортировка листов книги | RUBEY | Microsoft Office Excel | 1 | 17.07.2008 10:57 |
Добавление строки в книги | Леон | Microsoft Office Excel | 3 | 10.07.2008 08:17 |