0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|
1 | |
Макрос - имя листа по имени ячейки18.06.2013, 20:23. Показов 53529. Ответов 23
Метки нет (Все метки)
Господа, помогите нубу
Вот в чем вопрос: 1. Нужно что бы имя листа менялось по имени ячейки. я находил подобный макрос, но...имя листа почему то менялось только один раз и потом на изменение значение зависимой ячейки больше не реагировало. 2. Нужно сохранить активный лист в формате *pdf. Подчеркиваю, не всю книгу, а только активный лист. Желательно, что бы макрос можно было повесить на кнопку расположенную на другой странице. Например: Кнопка находится на Листе 1, а при нажатии на нее, в *pdf сохраняется Лист 2. Скажу сразу, моих знаний хватает только на то что бы вставить макрос, редактировать его...увы...извилин не хватает
0
|
18.06.2013, 20:23 | |
Ответы с готовыми решениями:
23
Макрос, которых обходит все непустые ячейки текущего листа, добавляет в массив залитые ячейки и на новый лист Задание имени листа формулой (макрос) Открытие листа по имени ячейки Исправить макрос копирования значения ячейки с листа на лист |
997 / 356 / 135
Регистрация: 27.10.2006
Сообщений: 764
|
|||||||||||
18.06.2013, 22:28 | 2 | ||||||||||
Перенименование листа.
Набросал на быструю руку, допилите сами 1) откройте любой файл Excel 2) активируйте нужный лист, который вы хотите, чтобы переименовывался по изменению ячейки на этом листе 3) подведите мышку к ярлычку этого листа (слева внизу, где название листа) 4) щёлкните правой клавишей мыши и выберите в контекстном меню "исходный текст" 5) вставьте в открывшееся окно этот код
P.S. Сюда необходимо добавить функцию, которая будет проверять наличие запрещённых символов (*, / и других) Экспорт листа в PDF. Например, нам нужно экспортировать Лист1 в PDF в туже папку, где у нас сейчас находится наш открытый и обязательно сохранённый ранее файл (на несохранённом файле не пробуйте)
1
|
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|
19.06.2013, 10:38 [ТС] | 3 |
Павел, спасибо большое. Но в макросе для сохранения в *pdf ругается на предпоследнюю строку - ActiveSheet.ExportAsFixedFormat xlTypePDF, iFileName
а по первому коду вопрос - если сделать как вы сказали - все работает отлично. Но мне бы хотелось, что бы имя ячейки из который берется имя листа было привязано к выпадающему списку. т.е. выбираешь в выпадающем списке название и оно вставляется в имя страницы. Выпадающий список сделан с помощью Данные - проверка данных.Сейчас, если я вместо ячейки "A1" ставлю номер ячейки с выпадающим списком, то макрос срабатывает только один раз. Потом на изменение в списке он не реагирует. И еще. Можно ли сделать что вы в макросе для сохранения в *pdf имя страницы было динамическим? Дело в том, что имя будет браться каждый раз из выпадающего списка.
0
|
997 / 356 / 135
Регистрация: 27.10.2006
Сообщений: 764
|
|
19.06.2013, 11:15 | 4 |
По поводу сохранения в PDF - мой код будет работать, если у вас установлен Excel 2007 и выше. Вроде, только с 2007 офиса есть сохранение в PDF.
По поводу остального ничего не скажу, нужно тестировать на файле
1
|
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|||||||
19.06.2013, 11:23 [ТС] | 5 | ||||||
у меня стоит Excel 2010.
Файл выложил на яндекс-диск, Ссылка удалена
0
|
997 / 356 / 135
Регистрация: 27.10.2006
Сообщений: 764
|
|
19.06.2013, 11:57 | 6 |
1) зачем выкладывать такой большой файл?
2) По поводу экспорта в PDF. Вы ТОЧНО заменили ИМЯ ЛИСТА с ЛИСТ1 на СВОЙ в вашем коде? В вашем файле в коде написано "ЛИСТ1" - а такого листа в вашем файле НЕЕЕЕТ. Либо переименуйте любой ваш лист, например, лист "Форма" на "Лист1". У меня нормально эспорт срабатывает и в офисе 2010 и в 2013 3) у вас там куча листов. Где что должно выбираться, какой лист должен менять название? 4) По поводу изменения листа по изменению значения в ячейке Вы ТОЧНО вставли мой код для изменения листа в ваш файл? Где он? В модуле какого листа? Скачал ваш огромный файл. Предположил (раз вы не сказали какой лист нужен), что вам нужен лист "ФОРМА", вставил свой код в модуль этого листа, долго искал в какой ячейке у вас стоит ПРОВЕРКА, т.к. вы адрес этой ячейки не написали в теме, когда выкладывали файл, заменил в коде адрес ячейки с А1 на I8, попробовал менять значения из выподающего списка в яч. I8 - лист меняет своё имя постоянно, т.е. всё срабатывает хорошо. Может вам самому вставить нужный код в нужный лист и потестировать? )
1
|
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|
19.06.2013, 12:08 [ТС] | 7 |
Извините что не пояснил..
на листе - "форма" есть выпадающий список. Мне нужно, что бы имя листа "Шаблон", кажется я его переименовал в "1".(не сохранил копия которую выложил) менялось по значению выпадающего листа. Так же на листе "форма" нужно создать кнопку которая выводила бы лист "Шаблон" на сохранение в формате *pdf с названием листа, которое будет в выпадающем списке. По поводу макроса.: да, вы правы я не поменял имя листа. Сейчас попробовал - в пдф сохраняется, но с именем книги, а не листа.
0
|
997 / 356 / 135
Регистрация: 27.10.2006
Сообщений: 764
|
|||||||||||
19.06.2013, 12:43 | 8 | ||||||||||
для экспорта попробуйте так
Для переименования (ТОЛЬКО СПЕРВА НАЗАВИТЕ НУЖНЫЙ ЛИСТ ТЕМ НАЗВАНИЕМ, КОТОРОЕ У ВАС В ДАННЫЙ МОМЕНТ УКАЗАНО В ЯЧЕЙКЕ I8 НА ЛИСТЕ "ФОРМА")
подкорректировал код
1
|
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|
19.06.2013, 13:25 [ТС] | 9 |
Павел, наверное я что то не так делаю.
Имя листа не реагирует на изменение I8. Предварительно я изменил имя листа как в списке. а со вторым макросом....у меня не получается сохранить макрос. Создаю макрос - добавляю ваш макрос-и сохраняю. А когда пытаюсь повесить макрос на кнопку то его нет в списке макросов. Добавлено через 12 минут С макросом Экспорта разобрался немного. Но все равно ругается на эту строку Sheets(Sheets("Форма").Range("I8").Value).Select. а с переименованием так ничего и не получается Добавлено через 12 минут Ураа, заработало)) трудно быть деревянным Павел, я нашел что делал не так. Переименовать страницы по списку заработало. Осталась проблема только с экспортом. Но без вашей помощи я не найду почему ругается на эту строку.
0
|
997 / 356 / 135
Регистрация: 27.10.2006
Сообщений: 764
|
|
19.06.2013, 19:00 | 10 |
См. файл. Я чуть изменил код. Потестируйте.
У меня и на работе (Excel 2010) и дома (Excel 2013) работает.
1
|
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|
20.06.2013, 12:56 [ТС] | 11 |
Павел, спасибо огромнейшее. Все работает. Вы меня здорово выручили.
0
|
997 / 356 / 135
Регистрация: 27.10.2006
Сообщений: 764
|
||||||
25.06.2013, 17:00 | 12 | |||||
@Edvin, для выбора папки для сохранения файла можно использовать такой код
2
|
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|
16.08.2013, 09:52 [ТС] | 13 |
Уважаемые, подскажите, почему когда вставляешь макрос все работает. Но стоит закрыть документ и открыть его снова - макрос перестает работать. Заметил что слетает вот эта настройка (во вложении - картинка 1 - работающий макрос, картинка 2 - макрос не работает). как сделать что бы она не изменялась?
0
|
6082 / 1326 / 195
Регистрация: 12.12.2012
Сообщений: 1,023
|
||||||||||||||||
16.08.2013, 17:48 | 14 | |||||||||||||||
Edvin, проблема не в этом.Сделал чуть более надежное решение. Благодарности - Pavel55, ведь за основу был взят его код. В модуль нужного листа
С уважением, Aksima
1
|
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 13
|
|
16.08.2013, 22:36 [ТС] | 15 |
Aksima, спасибо большое за помощь....но я полный нуб в скриптах. Не могли бы с учетом моих практически нулевых знаний более подробно написать, куда вставлять ваши скрипты?
0
|
0 / 0 / 0
Регистрация: 08.12.2015
Сообщений: 4
|
|
09.12.2015, 02:44 | 17 |
Sub ExportToPDF()
Dim sh As Worksheet, iFileName As String Set sh = ActiveSheet Application.ScreenUpdating = False iFileName = ActiveWorkbook.Path & Application.PathSeparator & Sheets("Форма").Range("I8").Value & ".pdf" Sheets(Sheets("Форма").Range("I8").Value).Select ActiveSheet.ExportAsFixedFormat xlTypePDF, iFileName sh.Select Application.ScreenUpdating = True End Sub Почему останавливается макрос на выделенном коде. Использую Ofice 2007. Важно именно такое решение, сохранять активный лист "Форма" в файле PDF с присвоением ему имени из данных в ячейке "I8". Кто подскажет решение ?
0
|
85 / 82 / 31
Регистрация: 13.10.2014
Сообщений: 167
|
||||||
09.12.2015, 04:09 | 18 | |||||
Очевидно нет в книге листа с именем указанным в ячейке "I8" листа "Форма".
Так попробуйте:
1
|
0 / 0 / 0
Регистрация: 08.12.2015
Сообщений: 4
|
|
09.12.2015, 13:42 | 19 |
Да, действительно нет, и не надо переименовывать лист по названию ячейки. Лист "Форма", он не переименовывается, но в нем есть ячейка "I8", в которой изменяются данные. Вот эти данные и должны быть в названии файла PDF при сохранении листа "Форма"
Добавлено через 56 минут Sub ExportToPDF() Dim sh As Worksheet, iFileName As String Set sh = ActiveSheet iFileName = Replace(ActiveWorkbook.FullName, CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveWorkbook.Name) , "pdf") Sheets("Лист1").Select ActiveSheet.ExportAsFixedFormat xlTypePDF, iFileName sh.Select End Sub Этот код работает корректно, но сохраняет в PDF всегда одно и тоже название книги, без изменений.
0
|
4135 / 2239 / 940
Регистрация: 01.12.2010
Сообщений: 4,624
|
|||||||||||
09.12.2015, 14:00 | 20 | ||||||||||
Без необходимых проверок :
0
|
09.12.2015, 14:00 | |
09.12.2015, 14:00 | |
Помогаю со студенческими работами здесь
20
Как зделать чтобы имя листа =значению ячейки Имя книги excel по имени ячейки Макрос, присваивающий имя диапазону ячейки Как узнать имя книги, листа ячейки при запуске процедуры Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |