Здравствуйте участники форума! Решил создать тему навеянную вопросом из другой темы. Не нашел по всем предлагаемым ссылкам полного варианта № страницы, по этому "сляпал" свой вариант, который меняет номера страниц в соответствии с настройкой параметра страниц на листе: вниз, затем вправо или вправо, затем вниз. Счёт страниц вроде работает правильно, конечно нужно еще потестить, но вот ВсегоСтраниц работает не всегда правильно. В приложенном файле заполнено 3 страницы на листе, в колонтитулах считает правильно 3 страницы всего, а вот мой "ляп" выдаёт 4 страницы. Может кто подскажет как проверить последнею страницу на заполненность и если она пустая минусонуть 1 от общего количества Страниц. А может у кого есть другой вариант решения. Пробовал вытащить из колонтитулов, у меня не получилось, там какое то своё преобразование происходит, а я не такой уж спец так глубоко копать. Не судите строго, это мои первые UDF не написанные, а именно "сляпанные". Не знаю как откроется у вас файл, но чтобы видеть и колонтитулы лучше открыть лист в режиме Разметки страниц. А может и по оптимизации UDF Страницы будут предложения, а то уж больно много строк я там "наляпал". Основной вопрос конечно устранить разницу в счёте "всего страниц". Остальное на любителя. Буду благодарен за любые предложения.
Здравствуйте участники форума! Решил создать тему навеянную вопросом из другой темы. Не нашел по всем предлагаемым ссылкам полного варианта № страницы, по этому "сляпал" свой вариант, который меняет номера страниц в соответствии с настройкой параметра страниц на листе: вниз, затем вправо или вправо, затем вниз. Счёт страниц вроде работает правильно, конечно нужно еще потестить, но вот ВсегоСтраниц работает не всегда правильно. В приложенном файле заполнено 3 страницы на листе, в колонтитулах считает правильно 3 страницы всего, а вот мой "ляп" выдаёт 4 страницы. Может кто подскажет как проверить последнею страницу на заполненность и если она пустая минусонуть 1 от общего количества Страниц. А может у кого есть другой вариант решения. Пробовал вытащить из колонтитулов, у меня не получилось, там какое то своё преобразование происходит, а я не такой уж спец так глубоко копать. Не судите строго, это мои первые UDF не написанные, а именно "сляпанные". Не знаю как откроется у вас файл, но чтобы видеть и колонтитулы лучше открыть лист в режиме Разметки страниц. А может и по оптимизации UDF Страницы будут предложения, а то уж больно много строк я там "наляпал". Основной вопрос конечно устранить разницу в счёте "всего страниц". Остальное на любителя. Буду благодарен за любые предложения.gling
Здравствуйте. Да я тоже к этому пришел, получилось так[vba]
Код
Public Function ВсегоСтраниц() ВсегоСтраниц = ActiveSheet.PageSetup.Pages.Count End Function
[/vba] Что лучше не знаю. Взял здесь. Разобрался как работает и удалил мне не нужное. Получилось что всё удалил и оставил одну строчку. Но про номера страниц там наврали, или я не понял их объяснение. Конкретный номер страницы они не находят, находят только количество страниц на листе.
krosav4ig, Спасибо за подсказку. Не по теме конечно вопрос, но обязательно ли писать Application.Caller. ведь и без этого работает?
Здравствуйте. Да я тоже к этому пришел, получилось так[vba]
Код
Public Function ВсегоСтраниц() ВсегоСтраниц = ActiveSheet.PageSetup.Pages.Count End Function
[/vba] Что лучше не знаю. Взял здесь. Разобрался как работает и удалил мне не нужное. Получилось что всё удалил и оставил одну строчку. Но про номера страниц там наврали, или я не понял их объяснение. Конкретный номер страницы они не находят, находят только количество страниц на листе.
krosav4ig, Спасибо за подсказку. Не по теме конечно вопрос, но обязательно ли писать Application.Caller. ведь и без этого работает?gling
ЯД-41001506838083
Сообщение отредактировал gling - Воскресенье, 14.06.2020, 02:52