Как узнать вес листа в excel

Как узнать вес листа в excel

Dim dPageWidth As Double
Dim dPageWidthWithoutMargins As Double
dPageWidth = Application.CentimetersToPoints _
(Switch(ActiveSheet.PageSetup.PaperSize = xlPaperA4, 210, _
ActiveSheet.PageSetup.PaperSize = xlPaperA5, 148) / 10)

dPageWidthWithoutMargins = _
dPageWidth — (ActiveSheet.PageSetup.LeftMargin + ActiveSheet.PageSetup.RightMargin)

Dim dPageWidth As Double
Dim dPageWidthWithoutMargins As Double
dPageWidth = Application.CentimetersToPoints _
(Switch(ActiveSheet.PageSetup.PaperSize = xlPaperA4, 210, _
ActiveSheet.PageSetup.PaperSize = xlPaperA5, 148) / 10)

dPageWidthWithoutMargins = _
dPageWidth — (ActiveSheet.PageSetup.LeftMargin + ActiveSheet.PageSetup.RightMargin)

но . тогда остаются еще неудобства.
1. Надо перечислять все возможные константы с указанием их размеров
2. Еще есть константа (не помню точно как называется), когда тип не стандартный, а пользовательский. Тогда с таким подходом вообще ж. получается.
Так что надо знать ширину в любом случае.

что косается не стандартного то об этом не беспокойся
я проверил пользователь не может вводить свой тип листа
в ворде есть такие параметры
.PageWidth = CentimetersToPoints(36)
.PageHeight = CentimetersToPoints(25)
а в экселе вроде нет и не дает менять програмно без использования констант

а правая граница — это последний столбец в котором есть данные
в результате ваша автофигура будет всегда равна ширене таблицы

а последний ЗАПОЛНЕННЫЙ столбец

‘только тут все равно придется на форматы завязываться

Dim dPageWidth As Double ‘ искомая ширина листа
Dim tempWidth As Double ‘ временная переменная

Как узнать размер листа в Excel?

есть таблица на листе..
как узнать сколько столбцов до первого пустого столбца.. и соответственно строк — до первой пустой строки

но например в первой строке заполнено 6 столбцов, а во второй — 10

т.е. вот абстрактный пример:

пусть знак решетки — это заполненные ячейки таблицы

есть какие-нибудь стандартные функции?

Добавлено через 1 минуту
криво пример вставился

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Как узнать имя активного листа в Excel-е?
И еще вопрос до кучи. Как узнать имя активного листа в Excel-е?

Как узнать Item листа в книге Excel
есть большая книга (листов больше 1000) Не ругайте — так удобнее мне для своих целей Name листов.

Как узнать точную высоту листа в Excel?
Суммирование всех ячеек до первого HPageBreak не подходит.

Как сделать размер листа А6 в Excel (из Delphi)
Здравствуйте! Как сделать размер листа А6 в экселе, подскажите пожалуйста

а я пробую ручками проверять, у меня просто стрелкой переходи вправа или вниз, на одну ячейку

Добавлено через 1 минуту
да и код не хочет выполняться, ругается на ошибки

код не хочет работать((

Добавлено через 33 секунды
у меня 10 офис, может в этом проблема?

Сообщение от alucard_mk

Чтобы увидеть результат: ViewImmediate Window.

Но чтобы информация была достоверная, сначала надо сохранить книгу (это связано с тем, что после удаления текста, где-то сохраняется информация в Excel о количестве строк и столбцов до удаления). После сохранения книги — эта информация уходит.

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

Ссылка на основную публикацию