Количество страниц в ячейку excel - Word и Excel - помощь в работе с программами

Всем известно что при предварительном просмотре можно определить на скольких страницах будет при печати располагаться лист EXCEL. А как можно не заходя в предварительный просмотр определить количество страниц, а самое главное как вставить этот указатель в лист EXCEL?

	А чем не устраивает >Вид>Разметка страниц?

	А если 100 странциц, то я буду считать количество полосок на листе?

Rom@n_t Пользователь Сообщений: 6 Регистрация: 01.01.1970	На заднем фоне серым цветом номер страницы!))))))

	Мне некогда опускаться на самую последнюю страницу и смотреть какой у неё номер. Я хочу чтобы в ячейке А1 стояло количество страниц на листе

genyaa

Пользователь

Сообщений: 296
Регистрация: 01.01.1970

Вот так можно… преобразовать в функцию — проще простого.

Sub HowManyPages()
Dim x As Range, h As Long, v As Long
Set x = ActiveSheet.UsedRange
h = x.Parent.HPageBreaks.Count
v = x.Parent.VPageBreaks.Count
If x.Rows(x.Rows.Count).PageBreak <> xlNone Then h = h + 1
If x.Columns(x.Columns.Count).PageBreak <> xlNone Then v = v + 1
MsgBox (v) * (h)
End Sub

	Спасибо! Но что-то типа такого у меня есть, и к сожелению работает медленно. Мне нужно что-то по-быстрее.

genyaa Пользователь Сообщений: 296 Регистрация: 01.01.1970	Мда… Жаль, что этот форум не поддерживает возможность занесения пользователя в список блокируемых… Считайте себя занесенным в мой виртуальный список таковых.

Sh_Alex

Пользователь

Сообщений: 732
Регистрация: 01.01.1970

Миша (Ваня, Вася, Петя, дядя Федор?), Вы провокатор!
Я, в силу своих прожитых лет, встречал «людей», которым хорошо от того, что другим плохо. Сидят, после сделанной пакости в уголочке, и хихикают. А Ваши претензии иначе как пакостью не назовешь.
На воинствующего «Гаити» Вы не похожи, но может быть волк сменил шкуру на шкуру ягненка?
Заранее извиняюсь перед добросовестными форумчанами, чей логин «Миша», рассматривать посты не буду, присоединяюсь к мораторию «Genyaa».
Без уважения, Александр.

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012

слэн

Пользователь

Сообщений: 5192
Регистрация: 16.01.2013

{quote}{login=Миша}{date=28.11.2008 03:16}{thema=}{post}Мне некогда опускаться на самую последнюю страницу и смотреть какой у неё номер. Я хочу чтобы в ячейке А1 стояло количество страниц на листе{/post}{/quote}

название темы уже вызвало опасения — теперь готов согласиться с Genyaa..

куда спешим?

	Ё моё! Приколисты! Вы ответьте на вопрос, а не нравоучения читайте! Я так понимаю если нет ответа на вопрос, то вы начинаете нравоучения

ytk5kyky

Пользователь

Сообщений: 2410
Регистрация: 01.01.1970

{quote}{login=Миша}{date=28.11.2008 06:51}{thema=}{post}Спасибо! Но что-то типа такого у меня есть, и к сожелению работает медленно. Мне нужно что-то по-быстрее.{/post}{/quote}Я мимо пройти не мог. Тем более автор жалуется, что ему не помогают, а читают нравоучения.
Итак, уважаемый Миша!
Что именно у Вас такого типа имеется?
Вам кажется, что 0.125 сек это медленно? (по крайней мере у меня столько времени работал этот код)
Возможно это не эксель тормозит, а комп.
Возможно это не комп и не эксель, а Вы слишком быстрый?
Во всяком случае для этой задачи.
Если последнее утверждение верно, то не поделитесь, где такую дурь берете. Я тоже так хочу.
Если нужно еще быстрее, сколько это будет стоить? За дозу?

{quote}{login=Genyaa}{date=28.11.2008 06:26}{thema=}{post}Вот так можно… преобразовать в функцию — проще простого.{/post}{/quote}
а у меня почему то не получается… вставляю макрос в модуль, в ячейки, где нужен результат пишу: =HowManyPages()
может кто подскажет, все ли я правильно делаю?

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	Это не функция, чтобы писать в ячейке =HowManyPages… Просто выполните этот макрос и увидите сообщение.

	Спасибо! а как можно ли сделать так что бы это макрос был формулой? что бы в заданной ячейки отображалось число, а лучше число прописью!

Юрий М

Модератор

Сообщений: 60585
Регистрация: 14.09.2012

Контакты см. в профиле

Для этого нужно из него сделать функцию. Почитать можно здесь:

http://www.excel-vba.ru/chto-umeet-excel/chto-takoe-funkciya-polzovatelyaudf/

<BR>Сумма прописью обсуждалась 152 раза — воспользуйтесь поиском. Есть также в разделе «Приемы», есть и в «Копилке».

	Спасибо за подсказку. почитал ничего не понял( число прописью я знаю как сделать макросом, подумал, может это можно проще воплотить в едином макросе с числом листов…

	может кто поможет все же с мокросом?

Hugo

Пользователь

Сообщений: 23253
Регистрация: 22.12.2012

Врёт HowManyPages.
А вот это не врёт:

iPagesCount = ExecuteExcel4Macro(«GET.DOCUMENT(50)»)

Можно через имена и как формулу на лист вывести:

имя=GET.DOCUMENT(50)
или в русской версии =ПОЛУЧИТЬ.ДОКУМЕНТ(50)
В ячейке =имя

Хотя у меня в загашнике записано почему-то
=ПОЛУЧИТЬ.ДОКУМЕНТ(50+ТДАТА()*0)
Зачем это +ТДАТА()*0 — не понял, вроде и так работает?

Ну а на это можно навесить и «сумму прописью» — вариантов море, разных…

Serge Пользователь Сообщений: 11308 Регистрация: 01.01.1970	{quote}{login=Hugo}{date=05.12.2012 12:49}{thema=}{post}Зачем это +ТДАТА()*0 ?{/post}{/quote} Игорь, это для Application.Volatile

Юрий М Модератор Сообщений: 60585 Регистрация: 14.09.2012 Контакты см. в профиле	#23 05.12.2012 12:59:03 http://www.planetaexcel.ru/forum.php/?thread_id=15113 — здесь было такое

Источник

Определение количества страниц выводимых на печать Excel2007

Тарас

Дата: Вторник, 12.02.2013, 11:29 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация:
0
±

Замечаний:
0% ±

Добрый день! Подскажите как в ОПРЕДЕЛЕННОЙ ячейке отобразить количество страниц выводимых на печать Excel2007? Запись такого вида: «Страница n из m». Либо как перенести колонтитул в определенную область листа?

СПАСИБО.

Ответить

RAN

Дата: Вторник, 12.02.2013, 11:39 |
Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Прямо так и написать — 2. Или 3.
Печать-то запускать придется макросом.

Быть или не быть, вот в чем загвоздка!

Ответить

Тарас

Дата: Вторник, 12.02.2013, 15:12 |
Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация:
0
±

Замечаний:
0% ±

AlexM,

Цитата (AlexM)

Посмотрите пару тем
без помощи колонтитула

Большое спасибо, помогло!)

Ответить

Источник

Технические характеристики и ограничения листа и книги

Параметр	Максимальное значение
Количество открытых книг	Ограничено объемом доступной оперативной памяти и ресурсами системы
Общее количество строк и столбцов на листе	1 048 576 строк и 16 384 столбца
Ширина столбца	255 знаков
Высота строки	409 пунктов
Разрывы страниц	1 026 горизонтальных и вертикальных
Общее количество знаков в ячейке	32 767 знаков
Число знаков в верхнем и нижнем колонтитуле	255
Максимальное число переводов строки в ячейке	253
Количество листов в книге	Ограничено объемом доступной оперативной памяти (по умолчанию 1 лист)
Количество цветов в книге	16 миллионов цветов (32-битовый спектр с полным доступом к 24-битовому спектру)
Именованные представления в книге	Ограничено объемом доступной оперативной памяти
Количество уникальных форматов/стилей ячеек	65 490
Количество стилей заливки	256
Количество стилей и толщин линий	256
Количество уникальных шрифтов	1 024 доступных глобальных шрифта; 512 шрифтов в каждой книге
Количество численных форматов в книге	От 200 до 250, в зависимости от установленной языковой версии Excel
Количество имен в книге	Ограничено объемом доступной оперативной памяти
Количество окон в книге	Ограничено объемом доступной оперативной памяти
Гиперссылки на листе	65 530
Количество областей в окне	4
Количество связанных листов	Ограничено объемом доступной оперативной памяти
Сценарии	Ограничено объемом доступной оперативной памяти; в итоговый отчет включается 251 сценарий, начиная с первого
Количество изменяемых ячеек в сценарии	32
Количество вычисляемых ячеек в надстройке «Поиск решения»	200
Количество пользовательских функций	Ограничено объемом доступной оперативной памяти
Пределы масштабирования	от 10 до 400 процентов
Количество отчетов	Ограничено объемом доступной оперативной памяти
Количество ссылок для сортировки	64 для однократной сортировки; не ограничено для последовательных сортировок
Количество уровней отмены	100
Количество полей в форме данных	32
Количество параметров в книге	255 параметров в одной книге
Количество элементов, которые отображаются в раскрывающихся списках фильтров	10 000
Количество независимых ячеек, которые можно выделить	2 147 483 648 ячеек
Максимальные пределы объема памяти и размера файла для книг с моделями данных	В 32-разрядной среде выделяется 2 гигабайта (ГБ) виртуального адресного пространства, которое совместно используется приложением Excel, книгой и надстройками, работающими в рамках одного процесса. Доля адресного пространства, выделяемого для модели данных, может достигать 500–700 мегабайт (МБ), но может быть и меньше, если загружаются другие модели данных и надстройки. 64-разрядная среда не накладывает жестких ограничений на размер файлов. Размер книги ограничен только объемом доступной памяти и ресурсами системы. Начиная с Excel 2016 функция обработки больших адресов позволяет 32-разрядной версии Excel использовать в два раза больше памяти при работе в 64-разрядной операционной системе Windows. Дополнительные сведения см. в статье Изменение функции обработки больших адресов для Excel. Примечание: Добавление таблиц в модели данных увеличивает размер файла. Если вы не планируете создавать для модели данных сложные связи с использованием большого количества источников и типов данных в книге, во время импорта или создания таблиц, сводных таблиц или подключений к данным снимите флажок Добавить эти данные в модель данных. Подробнее см. в статье Спецификации и ограничения модели данных.
Количество ядер процессора	64
Длина имени файла	218 символов, включая путь к файлу. Например, C:UsernameDocumentsFileName.xlsx.

Технические характеристики и ограничения вычислений

Параметр	Максимальное значение
Точность представления чисел, разрядов, не более	15
Допустимое отрицательное число, не менее	-2,2251E+308
Допустимое положительное число, не менее	2,2251E-308
Допустимое положительное число, не более	9,99999999999999E+307
Допустимое отрицательное число, не более	-9,99999999999999E+307
Наибольшее положительное число, получаемое в формуле	1,7976931348623158E+308
Наибольшее отрицательное число, получаемое в формуле	-1,7976931348623158E+308
Длина записи формулы, знаков, не более	8 192
Внутренняя длина формулы, байт, не более	16 384 байт
Количество итераций, не более	32 767
Количество массивов в книге	Ограничено объемом доступной оперативной памяти
Количество выделенных диапазонов, не более	2 048
Количество аргументов функции, не более	255
Количество уровней вложенности функций, не более	64
Количество категорий пользовательских функций, не более	255
Количество доступных функций листа Microsoft Excel, не более	341
Размер стека операндов, не более	1 024
Перекрестная зависимость листов, не более	64 000 листов, которые могут ссылаться на другие листы
Перекрестная зависимость формул массива на разных листах	Ограничена объемом доступной оперативной памяти
Зависимость областей	Ограничена объемом доступной оперативной памяти
Зависимость областей на каждом листе	Ограничена объемом доступной оперативной памяти
Зависимости одной ячейки, не более	4 миллиарда формул, зависящих от одной ячейки
Длина содержимого связанной ячейки из закрытых книг, не более	32 767
Допустимая в расчетах дата, не ранее	1 января 1900 г. (1 января 1904 г. для системы дат 1904)
Допустимая в расчетах дата, не позднее	31 декабря 9999 г.
Интервал времени, который можно ввести, не более	9999:59:59

Технические характеристики и ограничения диаграмм

Параметр	Максимальное значение
Количество диаграмм, связанных с листом	Ограничено объемом доступной оперативной памяти
Количество листов, на которые ссылается диаграмма	255
Ряды данных в диаграмме	255
Количество точек данных в одном ряду данных для плоских диаграмм	Ограничено объемом доступной оперативной памяти
Количество элементов данных в одном ряду данных для объемных диаграмм	Ограничено объемом доступной оперативной памяти
Количество элементов данных во всех рядах данных одной диаграммы	Ограничено объемом доступной оперативной памяти

Технические характеристики и ограничения отчетов сводных таблиц и сводных диаграмм

Параметр	Максимальное значение
Отчеты сводных таблиц на листе	Ограничено объемом доступной оперативной памяти
Количество уникальных элементов в поле	1 048 576
Количество полей строк или столбцов в отчете сводной таблицы	Ограничено объемом доступной оперативной памяти
Количество фильтров отчета в отчете сводной таблицы	256 (может быть ограничено объемом доступной оперативной памяти)
Количество полей значений в отчете сводной таблицы	256
Количество формул вычисляемых элементов в отчете сводной таблицы	Ограничено объемом доступной оперативной памяти
Количество фильтров отчета в отчет сводной диаграммы	256 (может быть ограничено объемом доступной оперативной памяти)
Количество полей значений в отчете сводной диаграммы	256
Количество формул вычисляемых элементов в отчете сводной диаграммы	Ограничено объемом доступной оперативной памяти
Длина имени MDX элемента сводной таблицы	32 767
Длина строки реляционной сводной таблицы	32 767
Количество элементов, которые отображаются в раскрывающихся списках фильтров	10 000

Книги с включенным параметром «Разрешить изменять файл нескольким пользователям одновременно…»

Если для книги включен параметр Разрешить изменять файл нескольким пользователям одновременно…, тогда необходимо применять следующие сведения. Чтобы получить доступ к этому параметру, на вкладке Рецензирование нажмите кнопку Доступ к книге. Примечание. В последних версиях Excel кнопка Доступ к книге скрыта. Чтобы отобразить ее, откройте вкладку Файл и выберите пункт Параметры, а затем — категорию Панель быстрого доступа. Откройте список Выбрать команды из и выберите пункт Все команды. Прокрутите список до пункта Общий доступ к книге (старые версии). Выберите этот пункт и нажмите кнопку Добавить. Нажмите кнопку ОК. Кнопка Доступ к книге появится в верхней части окна Excel.

Параметр	Максимальное значение
Количество пользователей, которые могут одновременно открывать файл	256
Количество личных представлений в книге	Ограничено объемом доступной оперативной памяти
Количество дней, поддерживаемое журнал изменений	32 767 (по умолчанию 30 дней)
Наибольшее количество одновременно объединяемых книг	Ограничено объемом доступной оперативной памяти
Количество ячеек, которые можно выделить	32 767
Наибольшее количество цветов для обозначения изменений, вносимых разными пользователями, при включенном режиме цветового выделения изменений	32 (каждому пользователю соответствует свой цвет; изменения текущего пользователя выделяются темно-синим цветом)
Количество таблиц Excel в книге	0 (ноль) Примечание: Для книги, содержащей одну или несколько таблиц Excel, невозможно включить параметр Разрешить изменять файл нескольким пользователям одновременно…

Технические характеристики и ограничения листа и книги

Параметр	Максимальное значение
Количество открытых книг	Ограничено объемом доступной оперативной памяти и ресурсами системы
Общее количество строк и столбцов на листе	1 048 576 строк и 16 384 столбца
Ширина столбца	255 знаков
Высота строки	409 пунктов
Разрывы страниц	1 026 горизонтальных и вертикальных
Общее количество знаков в ячейке	32 767 знаков
Число знаков в верхнем и нижнем колонтитуле	255
Максимальное число переводов строки в ячейке	253
Количество листов в книге	Ограничено объемом доступной оперативной памяти (по умолчанию 3 листа)
Количество цветов в книге	16 миллионов цветов (32-битовый спектр с полным доступом к 24-битовому спектру)
Именованные представления в книге	Ограничено объемом доступной оперативной памяти
Количество уникальных форматов/стилей ячеек	65 490
Количество стилей заливки	256
Количество стилей и толщин линий	256
Количество уникальных шрифтов	1 024 доступных глобальных шрифта; 512 шрифтов в каждой книге
Количество численных форматов в книге	От 200 до 250, в зависимости от установленной языковой версии Excel
Количество имен в книге	Ограничено объемом доступной оперативной памяти
Количество окон в книге	Ограничено объемом доступной оперативной памяти
Гиперссылки на листе	65 530 гиперссылок
Количество областей в окне	4
Количество связанных листов	Ограничено объемом доступной оперативной памяти
Сценарии	Ограничено объемом доступной оперативной памяти; в итоговый отчет включается 251 сценарий, начиная с первого
Количество изменяемых ячеек в сценарии	32
Количество вычисляемых ячеек в надстройке «Поиск решения»	200
Количество пользовательских функций	Ограничено объемом доступной оперативной памяти
Пределы масштабирования	от 10 до 400 процентов
Количество отчетов	Ограничено объемом доступной оперативной памяти
Количество ссылок для сортировки	64 для однократной сортировки; не ограничено для последовательных сортировок
Количество уровней отмены	100
Количество полей в форме данных	32
Количество параметров в книге	255 параметров в одной книге
Количество элементов, которые отображаются в раскрывающихся списках фильтров	10 000
Количество независимых ячеек, которые можно выделить	2 147 483 648 ячеек
Количество ядер процессора	64

Технические характеристики и ограничения вычислений

Параметр	Максимальное значение
Точность представления чисел, разрядов, не более	15
Допустимое отрицательное число, не менее	-2,2251E+308
Допустимое положительное число, не менее	2,2251E-308
Допустимое положительное число, не более	9,99999999999999E+307
Допустимое отрицательное число, не более	-9,99999999999999E+307
Наибольшее положительное число, получаемое в формуле	1,7976931348623158E+308
Наибольшее отрицательное число, получаемое в формуле	-1,7976931348623158E+308
Длина записи формулы, знаков, не более	8 192
Внутренняя длина формулы, байт, не более	16 384 байт
Количество итераций, не более	32 767
Количество массивов в книге	Ограничено объемом доступной оперативной памяти
Количество выделенных диапазонов, не более	2 048
Количество аргументов функции, не более	255
Количество уровней вложенности функций, не более	64
Количество категорий пользовательских функций, не более	255
Количество доступных функций листа Microsoft Excel, не более	341
Размер стека операндов, не более	1 024
Перекрестная зависимость листов, не более	64 000 листов, которые могут ссылаться на другие листы
Перекрестная зависимость формул массива на разных листах	Ограничена объемом доступной оперативной памяти
Зависимость областей	Ограничена объемом доступной оперативной памяти
Зависимость областей на каждом листе	Ограничена объемом доступной оперативной памяти
Зависимости одной ячейки, не более	4 миллиарда формул, зависящих от одной ячейки
Длина содержимого связанной ячейки из закрытых книг, не более	32 767
Допустимая в расчетах дата, не ранее	1 января 1900 г. (1 января 1904 г. для системы дат 1904)
Допустимая в расчетах дата, не позднее	31 декабря 9999 г.
Интервал времени, который можно ввести, не более	9999:59:59

Технические характеристики и ограничения диаграмм

Параметр	Максимальное значение
Количество диаграмм, связанных с листом	Ограничено объемом доступной оперативной памяти
Количество листов, на которые ссылается диаграмма	255
Ряды данных в диаграмме	255
Количество точек данных в одном ряду данных для плоских диаграмм	Ограничено объемом доступной оперативной памяти
Количество элементов данных в одном ряду данных для объемных диаграмм	Ограничено объемом доступной оперативной памяти
Количество элементов данных во всех рядах данных одной диаграммы	Ограничено объемом доступной оперативной памяти

Технические характеристики и ограничения отчетов сводных таблиц и сводных диаграмм

Параметр	Максимальное значение
Отчеты сводных таблиц на листе	Ограничено объемом доступной оперативной памяти
Количество уникальных элементов в поле	1 048 576
Количество полей строк или столбцов в отчете сводной таблицы	Ограничено объемом доступной оперативной памяти
Количество фильтров отчета в отчете сводной таблицы	256 (может быть ограничено объемом доступной оперативной памяти)
Количество полей значений в отчете сводной таблицы	256
Количество формул вычисляемых элементов в отчете сводной таблицы	Ограничено объемом доступной оперативной памяти
Количество фильтров отчета в отчет сводной диаграммы	256 (может быть ограничено объемом доступной оперативной памяти)
Количество полей значений в отчете сводной диаграммы	256
Количество формул вычисляемых элементов в отчете сводной диаграммы	Ограничено объемом доступной оперативной памяти
Длина имени MDX элемента сводной таблицы	32 767
Длина строки реляционной сводной таблицы	32 767
Количество элементов, которые отображаются в раскрывающихся списках фильтров	10 000

Книги с включенным параметром «Разрешить изменять файл нескольким пользователям одновременно…»

Параметр	Максимальное значение
Количество пользователей, которые могут одновременно открывать файл	256
Количество личных представлений в книге	Ограничено объемом доступной оперативной памяти
Количество дней, поддерживаемое журнал изменений	32 767 (по умолчанию 30 дней)
Наибольшее количество одновременно объединяемых книг	Ограничено объемом доступной оперативной памяти
Количество ячеек, которые можно выделить в общей книге	32 767
Наибольшее количество цветов для обозначения изменений, вносимых разными пользователями, при включенном режиме цветового выделения изменений	32 (каждому пользователю соответствует свой цвет; изменения текущего пользователя выделяются темно-синим цветом)
Количество таблиц Excel в книге	0 (ноль) Примечание: Для книги, содержащей одну или несколько таблиц Excel, невозможно включить параметр Разрешить изменять файл нескольким пользователям одновременно…

Технические характеристики и ограничения листа и книги

Параметр	Максимальное значение
Количество открытых книг	Ограничено объемом доступной оперативной памяти и ресурсами системы
Общее количество строк и столбцов на листе	1 048 576 строк и 16 384 столбца
Ширина столбца	255 знаков
Высота строки	409 пунктов
Разрывы страниц	1 026 горизонтальных и вертикальных
Общее количество знаков в ячейке	32 767 знаков
Число знаков в верхнем и нижнем колонтитуле	255
Максимальное число переводов строки в ячейке	253
Количество листов в книге	Ограничено объемом доступной оперативной памяти (по умолчанию 3 листа)
Количество цветов в книге	16 миллионов цветов (32-битовый спектр с полным доступом к 24-битовому спектру)
Именованные представления в книге	Ограничено объемом доступной оперативной памяти
Количество уникальных форматов/стилей ячеек	65 490
Количество стилей заливки	256
Количество стилей и толщин линий	256
Количество уникальных шрифтов	1 024 доступных глобальных шрифта; 512 шрифтов в каждой книге
Количество численных форматов в книге	От 200 до 250, в зависимости от установленной языковой версии Excel
Количество имен в книге	Ограничено объемом доступной оперативной памяти
Количество окон в книге	Ограничено объемом доступной оперативной памяти
Гиперссылки на листе	65 530 гиперссылок
Количество областей в окне	4
Количество связанных листов	Ограничено объемом доступной оперативной памяти
Сценарии	Ограничено объемом доступной оперативной памяти; в итоговый отчет включается 251 сценарий, начиная с первого
Количество изменяемых ячеек в сценарии	32
Количество вычисляемых ячеек в надстройке «Поиск решения»	200
Количество пользовательских функций	Ограничено объемом доступной оперативной памяти
Пределы масштабирования	от 10 до 400 процентов
Количество отчетов	Ограничено объемом доступной оперативной памяти
Количество ссылок для сортировки	64 для однократной сортировки; не ограничено для последовательных сортировок
Количество уровней отмены	100
Количество полей в форме данных	32
Количество параметров в книге	255 параметров в одной книге
Количество раскрывающихся списков в фильтре	10 000

Технические характеристики и ограничения вычислений

Параметр	Максимальное значение
Точность представления чисел, разрядов, не более	15
Допустимое отрицательное число, не менее	-2,2251E+308
Допустимое положительное число, не менее	2,2251E-308
Допустимое положительное число, не более	9,99999999999999E+307
Допустимое отрицательное число, не более	-9,99999999999999E+307
Наибольшее положительное число, получаемое в формуле	1,7976931348623158E+308
Наибольшее отрицательное число, получаемое в формуле	-1,7976931348623158E+308
Длина записи формулы, знаков, не более	8 192
Внутренняя длина формулы, байт, не более	16 384 байт
Количество итераций, не более	32 767
Количество массивов в книге	Ограничено объемом доступной оперативной памяти
Количество выделенных диапазонов, не более	2 048
Количество аргументов функции, не более	255
Количество уровней вложенности функций, не более	64
Количество категорий пользовательских функций, не более	255
Количество доступных функций листа Microsoft Excel, не более	341
Размер стека операндов, не более	1 024
Перекрестная зависимость листов, не более	64 000 листов, которые могут ссылаться на другие листы
Перекрестная зависимость формул массива на разных листах	Ограничена объемом доступной оперативной памяти
Зависимость областей	Ограничена объемом доступной оперативной памяти
Зависимость областей на каждом листе	Ограничена объемом доступной оперативной памяти
Зависимости одной ячейки, не более	4 миллиарда формул, зависящих от одной ячейки
Длина содержимого связанной ячейки из закрытых книг, не более	32 767
Допустимая в расчетах дата, не ранее	1 января 1900 г. (1 января 1904 г. для системы дат 1904)
Допустимая в расчетах дата, не позднее	31 декабря 9999 г.
Интервал времени, который можно ввести, не более	9999:59:59

Технические характеристики и ограничения диаграмм

Параметр	Максимальное значение
Количество диаграмм, связанных с листом	Ограничено объемом доступной оперативной памяти
Количество листов, на которые ссылается диаграмма	255
Ряды данных в диаграмме	255
Количество точек данных в одном ряду данных для плоских диаграмм	32 000
Количество элементов данных в одном ряду данных для объемных диаграмм	4 000
Количество элементов данных во всех рядах данных одной диаграммы	256 000

Технические характеристики и ограничения отчетов сводных таблиц и сводных диаграмм

Параметр	Максимальное значение
Отчеты сводных таблиц на листе	Ограничено объемом доступной оперативной памяти
Количество уникальных элементов в поле	1 048 576
Количество полей строк или столбцов в отчете сводной таблицы	Ограничено объемом доступной оперативной памяти
Количество фильтров отчета в отчете сводной таблицы	256 (может быть ограничено объемом доступной оперативной памяти)
Количество полей значений в отчете сводной таблицы	256
Количество формул вычисляемых элементов в отчете сводной таблицы	Ограничено объемом доступной оперативной памяти
Количество фильтров отчета в отчет сводной диаграммы	256 (может быть ограничено объемом доступной оперативной памяти)
Количество полей значений в отчете сводной диаграммы	256
Количество формул вычисляемых элементов в отчете сводной диаграммы	Ограничено объемом доступной оперативной памяти
Длина имени MDX элемента сводной таблицы	32 767
Длина строки реляционной сводной таблицы	32 767

Книги с включенным параметром «Разрешить изменять файл нескольким пользователям одновременно…»

Если для книги включен параметр Разрешить изменять файл нескольким пользователям одновременно…, тогда необходимо применять следующие сведения. Этот параметр включен при использовании общих книг.

Параметр	Максимальное значение
Количество пользователей, которые могут одновременно открывать книгу	256
Количество личных представлений в книге	Ограничено объемом доступной оперативной памяти
Количество дней, поддерживаемое журнал изменений	32 767 (по умолчанию 30 дней)
Наибольшее количество одновременно объединяемых книг	Ограничено объемом доступной оперативной памяти
Количество ячеек, которые можно выделить	32 767
Наибольшее количество цветов для обозначения изменений, вносимых разными пользователями, при включенном режиме цветового выделения изменений	32 (каждому пользователю соответствует свой цвет; изменения текущего пользователя выделяются темно-синим цветом)
Количество таблиц Excel в книге	0 (ноль) Примечание: Для книги, содержащей одну или несколько таблиц Excel, невозможно включить параметр Разрешить изменять файл нескольким пользователям одновременно…

К началу страницы

Источник

Oleg
	1
05.03.2008, 08:04. Показов 35049. Ответов 21 Убедительная просьба помоч!!! Как узнать количество страниц при печати в Excel?

Tim
06.03.2008, 13:13	2
Привет!!! Ты когда-нить нажимал на разметку страницы в Екселе??? Там появляется лист екселя с синими пунктирными полосочками. Так вот, именно по этим полосочкам и печатает принтер! Остается их только посчитать. А называются они PageBreak Returns or sets the location of a page break. Can be one of the following XlPageBreak constants: xlPageBreakAutomatic, xlPageBreakManual, or xlPageBreakNone. Read/write Long. Remarks This property can return the location of either automatic or manual page breaks, but it can only set the location of manual breaks (it can only be set to xlPageBreakManual or xlPageBreakNone). To remove all manual page breaks on a worksheet, set Cells.PageBreak to xlPageBreakNone.

Tim

06.03.2008, 13:33

Лови родной!
только для точного кол-ва страниц нужно всегда делать r+1 т.к. HPageBreaks — это коллекция межстраничных разрывов, а т.к. после последней страницы его нету, то и последнего HPageBreak тоже нету!
Надеюсь я помог хоть чем-то

Visual Basic

Sub test()
    r = ActiveSheet.HPageBreaks.Count
    MsgBox r
End Sub

Oleg
07.03.2008, 08:26	4
Спасибо за подсказку!!! Есть еще одна проблемма!!! Если в последней строке будуд данные, то количество страниц определяется правильно, если нет, на 1 меньше. А как это определить?

Tim
07.03.2008, 11:23	5
Извини, не понял. Про какую последнюю строку ты говоришь?

Oleg
07.03.2008, 11:31	6
Слова из первого ответа: Ты когда-нить нажимал на разметку страницы в Екселе??? Там появляется лист екселя с синими пунктирными полосочками. Так вот, именно по этим полосочкам и печатает принтер! Остается их только посчитать. А называются они PageBreak Так вот если перед самой этой синей полосочкой в ячейку внести данные, то количество страниц будет правильным, иначе +1

Tim
07.03.2008, 13:26	7
Понятно Но ведь я ж тебе примерчик с HPageBreaks сбросил! Количество HPageBreaks + 1 и будет кол-м листов выводимых на печать отталкивайся от него и все. А уж куда ты там данные занесешь перед разрывом страницы или после, этой коллекции наплевать!

Oleg
07.03.2008, 13:33	8
Это я все понимаю, но дело в том что я заполняю это программно и не знаю где будет последняя строка. Поэтому может получиться, что она будет посередине страницы и тогда количество страниц +1, а может быть последняя строка будет ровно в конце страницы, и тогда количество страниц будет правельным. Как узнать в конце вывода, где я нахожусь по отношению к странице? или как узнать количество строк на странице?

Tim
09.03.2008, 11:27	9
Вот оно что. Т.е. фактически тебе нужно узнать сколько строк у тебя в печатной странице? Блин… по-моему с этим будет сложнее. Я не помню ни одну функцию или метод, который бы позволял сказать сколько строк на печати в той или иной странице… Тут очень много зависит от параметров печати, т.е. полей, шрифта, высоты строк, объеденены или нет ячейки, есть ли всякие переносы.. и т.п. Если все это унифицировать, то можно высчитать сколько строк на странице, а соответственно и сколько страниц. Давай, копай!

Olegusha

19.01.2010, 13:02

Visual Basic

Sub test()
r = ActiveSheet.HPageBreaks.Count
MsgBox r
End Sub

Этот макрос работает через раз.
Раз он выдает истинное к-во страниц, а другой раз — к-во, которое равно к-ву листов в книге.
И действительно есть проблема, когда определяет на одну страница меньше.
Заранее благодарен за ответы.

Oleg
19.01.2010, 13:19	11
Проблемма все еще актуальна!!! Ввиду того, что последняя строка на странице редко бывает заполнена, я этой ситуацией пренебрегаю.

Olegusha

19.01.2010, 14:06

Главное не то, что он добавляет страницу, а то что он ЧЕРЕЗ РАЗ работает ((
Один раз он говорит, что страниц 4 (по одной на каждый лист книги), а другой — истинное значение. По предварительным данным нужно переместиться на последнюю заполненную ячейку на последнем листе книги. И тогда все ок.
Вот макрос, который я использую (печатает сразу четные страницы в обратном порядке, а потом — нечетные в прямом). Может кто-то подскажет!?!

Visual Basic

Sub print_stage()
 
Dim i, j, k, n, nos, sheet_count, total_pages, cur_pages As Byte
 
'не думаю что у тебя больше 255 листов
 
n = 0
total_pages = 0
 
' print_stage Макрос
 
 'Подсчет к-ва листов в книге
 sheet_count = ActiveWorkbook.Sheets.Count
 
 'Подсчет к-ва страниц в каждом листе
 For nos = 1 To sheet_count
    cur_pages = ActiveWorkbook.Sheets(nos).HPageBreaks.Count + 1
    
    
    n = ActiveWorkbook.Sheets(nos).VPageBreaks.Count
        
    If n > 1 Then
       MsgBox 'Столбцы поздвигай на ' & nos & ' листе, а то вылазят черт знает куда'
       GoTo m1:
    End If
 
 'Подсчет суммарного к-ва страниц во всей книге
    total_pages = total_pages + cur_pages
 Next nos
 
 
  MsgBox 'Печать четных страниц в обратном порядке (вставь бумагу).' & Chr(13) & Chr(13) & total_pages & ' страниц ' & sheet_count & ' раздела(ов)'
    
    For i = 2 To total_pages Step 2
       j = Int(total_pages / 2) * 2 + 2 - i
       'ActiveWorkbook.PrintOut From:=j, To:=j, Copies:=1, Collate:=True
       MsgBox 'Печать четных страниц' & Chr(13) & Chr(13) & j
    Next i
    
 MsgBox 'Печать нечетных страниц (переверни напечатанные листы и вставь обратно).' & Chr(13) & Chr(13) & total_pages & ' страниц [' & sheet_count & ' раздела(ов)]'
    
    For k = 1 To total_pages Step 2
       'ActiveWorkbook.PrintOut From:=k, To:=k, Copies:=1, Collate:=True
       MsgBox 'Печать нечетных страниц' & Chr(13) & Chr(13) & k
    Next k
   
m1:
 
End Sub

barinrec

62 / 4 / 1

Регистрация: 27.04.2014

Сообщений: 100

16.10.2014, 23:12

У Уокенбаха есть пример, но не правильно счет ведет все равно. Кто поможет уточнить код, чтобы пустые листы не считал?

Visual Basic

Sub ShowPageCount()
    Dim PageCount As Integer
    Dim sht As Worksheet
    PageCount = 0
    For Each sht In Worksheets
        
        PageCount = PageCount + (sht.HPageBreaks.Count + 1) * _
         (sht.VPageBreaks.Count + 1)
    Next sht
    MsgBox "Total Pages = " & PageCount
End Sub

Eustas

0 / 0 / 0

Регистрация: 18.03.2016

Сообщений: 1

13.07.2017, 17:30

Суть в том, что Count считает именно Breaks (разрывы внутри диапазона печати). Т.е. границу листа не считает за разрыв, хотя на самом деле — это ещё одна страница. Т.о. вышеприведенные примеры для диапазона в котором всего одна страница должны рассчитывать 0. Пример для горизонтальных разрывов:

Visual Basic

    rEnd = Cells(65000, 1).End(xlUp).Row  ' нижняя граница печати
 
    nCountSheets = 0  ' количество листов для печати
    rBreaks = 0          ' адрес строки, после которой стоит разрыв
 
' перебираю все разрывы (горизонтальные), определяя их положение
' тут главное определить строку последней границы
 
    For Each hp In ActiveSheet.HPageBreaks
        Set rngHPB = hp.Location
        rBreaks = rngHPB.Row - 1
        
        If rBreaks <= rEnd Then nCountSheets = nCountSheets + 1
    
    Next
    
    If rBreaks = 0 Then nCountSheets = 1
    If (ActiveSheet.HPageBreaks.Count <> 0 And rBreaks < rEnd ) Then nCountSheets = nCountSheets + 1
    
Debug.Print nCountSheets

mitzn

0 / 0 / 0

Регистрация: 19.10.2017

Сообщений: 1

19.10.2017, 10:17

а не проще ли так:

Visual Basic

Sub TotalPageCount()
 
Dim sh As Worksheet
    For Each sh In Worksheets
        c = c + sh.PageSetup.Pages.Count
        Z = Z & vbCrLf & sh.Name & "=" & sh.PageSetup.Pages.Count
    Next
    MsgBox "Total=" & c & Z
End Sub

все меньше и понятней чем огород условностей городить с разрывами

kukana

2 / 2 / 0

Регистрация: 23.10.2015

Сообщений: 65

04.03.2022, 12:05

mitzn, книга состоит из трёх листов. В первом 1 страница. Во втором 1 страница. В третьем 2 страницы.
Код

Visual Basic

Sub TotalPageCount()
Dim sh As Worksheet
c = 0   
For Each sh In Worksheets
        c = c + sh.PageSetup.Pages.Count
Next sh
End Sub

Выдаёт 218 страниц.
Пробовал удалять/сбрасывать разрывы — ситуация не меняется.
При пошаговом выполнении:
первый лист с=4;
второй лист с=4 , т.е. как будто в нём ноль страниц;
третий лист с=218, т.е. в нём их 214.
При предпросмотре и печати всё норм, в книге три листа на четырёх страницах.
Кто знает, что не так?

Модератор

11342 / 4661 / 748

Регистрация: 07.08.2010

Сообщений: 13,505

Записей в блоге: 4

04.03.2022, 12:14

kukana,
возможно, что где-то задана область печати , надо смотреть файл

2 / 2 / 0

Регистрация: 23.10.2015

Сообщений: 65

04.03.2022, 12:45

Нашёл. На третьем листе было разлиновано до конца.
Удачи всем.

2632 / 1637 / 745

Регистрация: 23.03.2015

Сообщений: 5,143

04.03.2022, 13:04

kukana,

For Each sh In ThisWorkbook.Worksheets

2 / 2 / 0

Регистрация: 23.10.2015

Сообщений: 65

04.03.2022, 14:29

Narimanych, ни. В другой книге смотрю. С большим количеством листов вопрос решил, а вот почему на втором листе ноль страниц так и не понятно.

Источник

Как посчитать количество напечатанных страниц на листе?

Перед печатью листа вы можете заранее узнать общее количество напечатанных страниц. В этой статье я познакомлю вас с хитростями.

Подсчитайте количество напечатанных страниц с помощью функции печати

Подсчитайте количество напечатанных страниц по коду VBA

Подсчитайте количество напечатанных страниц по Kutools for Excel

Подсчитайте количество напечатанных страниц с помощью функции печати

Чтобы подсчитать количество напечатанных страниц перед печатью, вы можете перейти к печати, чтобы просмотреть счетное число.

Включите лист, на котором вы хотите подсчитать напечатанные страницы, и нажмите Файл > Печать / PDF, затем вы можете просмотреть количество напечатанных страниц.

Внимание: масштаб печати можно изменить в раскрывающемся списке в разделе «Настройки».

Подсчитайте количество напечатанных страниц по коду VBA

Также есть код VBA, который может сказать вам количество напечатанных страниц на листе.

1. Активируйте лист, который хотите подсчитать, нажмите Alt + F11 ключи для отображения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, затем вставьте приведенный ниже код в Модули.

VBA: подсчитать количество напечатанных страниц на листе

Sub ShowMe()
    MsgBox ExecuteExcel4Macro("GET.DOCUMENT(50)") & _
        " pages will be printed."
End Sub

3. Нажмите F5 нажмите клавишу для запуска кода, а затем появится диалоговое окно, в котором указано количество напечатанных страниц. Смотрите скриншот:

Подсчитайте количество напечатанных страниц по Kutools for Excel

Если у вас есть Kutools for Excel, вы можете применить его Печать указанных страниц служебную программу, а затем просмотрите распечатанные страницы активного листа.

После установки Kutools for Excel, пожалуйста, сделайте, как показано ниже Бесплатная загрузка Kutools for Excel Сейчас!)

Включите лист, на котором вы хотите подсчитать количество страниц, нажмите Кутулс Плюс > печать > Печать указанных страниц, а затем просмотрите количество страниц во всплывающем диалоговом окне. Смотрите скриншот:

Внимание: Вы можете печатать только нечетные страницы, только четные страницы или определенные страницы только с Печать указанных страниц утилита.

Наконечник. Если вы хотите получить бесплатную пробную версию Печать указанных страниц Функция, пожалуйста, перейдите к бесплатной загрузке Kutools for Excel сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (0)

Оценок пока нет. Оцените первым!

Источник