Vba excel размер листа

Параметры печатной страницы в VBA Excel. Свойство PageSetup объекта Worksheet. Объект PageSetup и описание некоторых его свойств с примерами.

PageSetup — это объект, который содержит все атрибуты параметров страницы в виде свойств (диапазон печати, размеры полей, ориентация страницы и т.д.).

Объект PageSetup возвращается свойством PageSetup объекта Worksheet:

где Expression — это выражение (переменная), возвращающее объект Worksheet.

Свойства объекта PageSetup

Диапазон печати

Установить диапазон для печати из кода VBA Excel можно с помощью свойства PageSetup.PrintArea:

Worksheets(«Лист1»).PageSetup.PrintArea = «D7:L30» Лист1.PageSetup.PrintArea = Selection.Address

Размеры полей

Свойства, отвечающие за размер полей печатной страницы:

Свойство	Описание
LeftMargin	Возвращает или задает размер левого поля
TopMargin	Возвращает или задает размер верхнего поля
RightMargin	Возвращает или задает размер правого поля
BottomMargin	Возвращает или задает размер нижнего поля

Свойства, отвечающие за размер полей, предназначены для чтения и записи, выражаются в точках (1 точка равна 1/72 дюйма или ≈1/28 см). Тип данных — Double.

Для того, чтобы вручную не высчитывать количество точек в дюймах или сантиметрах, существуют методы Application.InchesToPoints и Application.CentimetersToPoints, которые автоматически переводят дюймы и сантиметры в точки.

Пример задания размеров полей для печатной страницы:

Sub Primer1()     With Лист4.PageSetup         .LeftMargin = 72  ‘1 дюйм (2,54 см)         .TopMargin = Application.CentimetersToPoints(2)  ‘2 см         .RightMargin = 28  ‘приблизительно 1 см         .BottomMargin = Application.InchesToPoints(0.5)  ‘0,5 дюйма (1,27 см)     End With End Sub

Пример чтения размеров заданных полей для печатной страницы и запись их в ячейки диапазона [A1:A4] активного листа:

Sub Primer2()     With Лист4.PageSetup         [A1] = .LeftMargin         [A2] = .TopMargin         [A3] = .RightMargin         [A4] = .BottomMargin     End With End Sub

Масштаб

Масштабирование рабочего листа для печати осуществляется в VBA Excel с помощью свойства PageSetup.Zoom:

Лист4.PageSetup.Zoom = 200  ‘Увеличение масштаба до 200% (от 100%) Worksheets(«Лист4»).PageSetup.Zoom = 80  ‘Уменьшение масштаба до 80% (от 100%)

Свойство PageSetup.Zoom может задавать или возвращать значение от 10 до 400 процентов.

Ориентация страницы

За ориентацию печатной страницы отвечает свойство PageSetup.Orientation, которое возвращает или задает значение константы из коллекции XlPageOrientation.

Константы коллекции XlPageOrientation:

Константа	Значение	Описание
xlPortrait	1	Портретный режим (вертикальная ориентация)
xlLandscape	2	Ландшафтный режим (горизонтальная ориентация)

Примеры установки ориентации печатной страницы из кода VBA Excel:

Worksheets(«Лист4»).PageSetup.Orientation = xlPortrait ActiveSheet.PageSetup.Orientation = xlLandscape

---

Как проверить размер каждого рабочего листа книги?

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

Проверьте размер каждого рабочего листа с помощью кода VBA

Проверьте размер каждого рабочего листа с помощью Kutools for Excel

---

Проверьте размер каждого рабочего листа с помощью кода VBA

С помощью следующего кода VBA вы можете быстро получить размер каждого рабочего листа в своей книге. Пожалуйста, сделайте так:

1. Удерживайте ALT + F11 ключи, и он открывает Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: проверьте размер каждого листа в книге </ p>

Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
    xOutWs.Delete
    Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
    .Name = xOutName
    .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
    If xWs.Name <> xOutName Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs xOutFile
        Application.ActiveWorkbook.Close SaveChanges:=False
        Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
        Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
        Kill xOutFile
        xIndex = xIndex + 1
    End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub

3. Затем нажмите F5 ключ для выполнения этого кода и новый рабочий лист с именем KutoolsforExcel будет вставлен в текущую книгу, которая содержит имя каждого рабочего листа и размер файла, а единицей измерения является бит. Смотрите скриншот:

---

Проверьте размер каждого рабочего листа с помощью Kutools for Excel

Если у вас есть Kutools for Excel, С его Разделить книгу утилиту, вы можете разделить всю книгу на отдельные файлы, а затем перейти в конкретную папку, чтобы проверить размер каждого файла.

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

После установки Kutools for Excel, выполните следующие действия:

1. Откройте книгу, в которой вы хотите проверить размер каждого листа, и нажмите Предприятие > Рабочие инструменты > Разделить книгу, см. снимок экрана:

2. В Разделить книгу диалоговое окно, проверьте все рабочие листы и нажмите Трещина кнопку, а затем укажите папку для размещения файлов новой книги. Смотрите скриншоты:

3. И затем каждый рабочий лист вашей текущей книги будет сохранен как отдельный файл Excel, вы можете перейти в свою конкретную папку, чтобы проверить размер каждой книги.

Чтобы узнать больше об этой функции разделенной книги.

---

Статьи по теме:

Как разделить книгу на отдельные файлы Excel в Excel?

Как экспортировать и сохранять листы и рабочие листы как новую книгу в Excel?

---

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

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

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

---

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

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

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

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

	Знатоки, подскажите пжл возможно ли средствами VBA в Excel изменить с помощью макроса размер страницы (смотрел PageSetup.PaperSize, при помощи которого не получилось установить свой произвольный размер страницы)?   Или возможно настроить принтер на необходимый (нестандартный) размер страницы при помощи допустим Win32 API (или чего иного)?

VovaK Пользователь Сообщений: 1716 Регистрация: 01.01.1970	Макрорекодер хорошо прописывает все свойства страницы при изменении свойств разметки страницы. Попробуйте выполнить две записи макроса с разными настройками страницы и посмотрите какие свойства за что отвечают. Удачи…

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Влад, произвольный размер листа нужен. У меня, например, нет такого пункта среди предлагаемых вариантов.

	Макрорекодером конечно же пытался высмотреть это. Меняется многое (поля, заголоки и тд.), но не сам размер страницы.   Вручную это сделать можно, но как макросом?

Kuzmich Пользователь Сообщений: 7998 Регистрация: 21.12.2012

Из справки   Worksheets(«Sheet1»).PageSetup.PaperSize = xlPaperLegal   XlPaperSize can be one of these XlPaperSize constants.     xlPaper11x17. 11 in. x 17 in.     xlPaperA4. A4 (210 mm x 297 mm)     xlPaperA5. A5 (148 mm x 210 mm)     xlPaperB5. A5 (148 mm x 210 mm)     xlPaperDsheet. D size sheet     xlPaperEnvelope11. Envelope #11 (4-1/2 in. x 10-3/8 in.)     xlPaperEnvelope14. Envelope #14 (5 in. x 11-1/2 in.)     xlPaperEnvelopeB4. Envelope B4 (250 mm x 353 mm)     xlPaperEnvelopeB6. Envelope B6 (176 mm x 125 mm)     xlPaperEnvelopeC4. Envelope C4 (229 mm x 324 mm)     xlPaperEnvelopeC6. Envelope C6 (114 mm x 162 mm)     xlPaperEnvelopeDL. Envelope DL (110 mm x 220 mm)     xlPaperEnvelopeMonarch. Envelope Monarch (3-7/8 in. x 7-1/2 in.)     xlPaperEsheet. E size sheet     xlPaperFanfoldLegalGerman. German Legal Fanfold (8-1/2 in. x 13 in.)     xlPaperFanfoldUS. U.S. Standard Fanfold (14-7/8 in. x 11 in.)     xlPaperLedger. Ledger (17 in. x 11 in.)     xlPaperLetter. Letter (8-1/2 in. x 11 in.)     xlPaperNote. Note (8-1/2 in. x 11 in.)     xlPaperStatement. Statement (5-1/2 in. x 8-1/2 in.)     xlPaperUser. User-defined     xlPaper10x14. 10 in. x 14 in.     xlPaperA3. A3 (297 mm x 420 mm)     xlPaperA4Small. A4 Small (210 mm x 297 mm)     xlPaperB4. B4 (250 mm x 354 mm)     xlPaperCsheet. C size sheet     xlPaperEnvelope10. Envelope #10 (4-1/8 in. x 9-1/2 in.)     xlPaperEnvelope12. Envelope #12 (4-1/2 in. x 11 in.)     xlPaperEnvelope9. Envelope #9 (3-7/8 in. x 8-7/8 in.)     xlPaperEnvelopeB5. Envelope B5 (176 mm x 250 mm)     xlPaperEnvelopeC3. Envelope C3 (324 mm x 458 mm)     xlPaperEnvelopeC5. Envelope C5 (162 mm x 229 mm)     xlPaperEnvelopeC65. Envelope C65 (114 mm x 229 mm)     xlPaperEnvelopeItaly. Envelope (110 mm x 230 mm)     xlPaperEnvelopePersonal. Envelope (3-5/8 in. x 6-1/2 in.)     xlPaperExecutive. Executive (7-1/2 in. x 10-1/2 in.)     xlPaperFanfoldStdGerman. German Legal Fanfold (8-1/2 in. x 13 in.)     xlPaperFolio. Folio (8-1/2 in. x 13 in.)     xlPaperLegal. Legal (8-1/2 in. x 14 in.)     xlPaperLetterSmall. Letter Small (8-1/2 in. x 11 in.)     xlPaperQuarto. Quarto (215 mm x 275 mm)     xlPaperTabloid. Tabloid (11 in. x 17 in.)     Note  Some printers may not support all of these paper sizes.

	Да, спасибо справку видел еще до обращения на форум. Но необходимо установить нестандартный размер, т.е. не предусмотренный PaperSize.     Возможно при помощи Win312 API можно настроить принтер? Пока пытаюсь что-нибудь сделать через DEVMODE, но результат тоже … пока не умею ))

Kuzmich Пользователь Сообщений: 7998 Регистрация: 21.12.2012	А, если варьировать поля страницы   With Worksheets(1).PageSetup      .LeftMargin = Application.InchesToPoints(0.5)      .RightMargin = Application.InchesToPoints(0.75)      .TopMargin = Application.InchesToPoints(1.5)      .BottomMargin = Application.InchesToPoints(1)      .HeaderMargin = Application.InchesToPoints(0.5)      .FooterMargin = Application.InchesToPoints(0.5)   End With

Этим тоже можно, но … не достаточно.     Мне нужно вывести на печать в MicOf Document Image Writer (в файл) определенный блок ячеек (явно меньше формата А4). В данном случае выводится рисунок размером А4, на котором небольшим пятном получается нужный блок, а остальное — большое белое поле.     Пробовал вручную уменьшить размер листа и получался рисунок под размер блока (как нужно). Макрорекордер не помог узнать как это сделать макросом.

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	А масштабом не пробовали подогнать?

	Пробовал. Покажу что получается.

ran Пользователь Сообщений: 7091 Регистрация: 21.12.2012	Например так (4 столбца по ширине страницы на лист А4)   Sub Макрос2()   ‘   ‘ Макрос2 Макрос   ‘     ‘      Columns(«A:D»).Select      Selection.ColumnWidth = 21.86   End Sub

	из-за расширения не пускает файл   <EM><STRONG>Файл удален</STRONG> — велик размер — 1,2М! [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Я сейчас выделил 12 ячеек (стандартная ширина/высота). Установил масштаб 200%, отправил на принтер — получил на бумаге большие цифири

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Проблема-промблемой, но Правила никто не отменял.   Чем не подходит масштаб? Разве нет увеличения?

	Кто же спорит — цифры большие. Но идея в том, что получаемый рисунок должен иметь минимум пустого места (должен быть под размер блока), потому что потом используя его в документе получается до фига пустого места.

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	А сам рисунок, вставленный в документ, кто мешает растянуть/сжать? Не очень Вас понимаю:     «выводится рисунок размером А4, на котором небольшим пятном получается нужный блок».   А увеличение масштаба (когда «пятно» большое) — не подходит.

	по 1 стороне (ширине) можно конечно растянуть (хоть в книжном, хоть в альбомном формате), но блок по своим пропорциям не совпадает со стандартным A4     представьте как можно квадратом или кругом заполнить почти весь A4?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Так, если, квадратом или кругом нельзя (не изменяя пропорций), что же Вы хотите сделать с «неправильным» блоком применительно к А4?

	A4 переделать в нужный мне размер.

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Берём ножницы и… По вопросу: конечная цель вставить в некий документ рисунок, где его поля сведены к минимуму? Обрезка рисунка не спасает?

	Обрезка рисунка при помощи макроса? это возможно?

ran Пользователь Сообщений: 7091 Регистрация: 21.12.2012

Kuzmich Пользователь Сообщений: 7998 Регистрация: 21.12.2012

Вот нашел в справочнике программиста   Option Explicit   Sub SetUpPage()   Dim oPS As PageSetup   ‘ получить объект PageSetup для листа   Set oPS = ActiveSheet.PageSetup   ‘ настроить страницу   With oPS   ‘ установить размер страницы в соответствии с   ‘ принятыми требованиями      .PaperSize = fnLocalPaperSize      .Orientation = xlPortrait      .LeftMargin = Application.InchesToPoints(1.5)      .RightMargin = Application.InchesToPoints(1.5)      .TopMargin = Application.InchesToPoints(2.5)      .BottomMargin = Application.InchesToPoints(2.5)      .HeaderMargin = Application.InchesToPoints(0.5)      .FooterMargin = Application.InchesToPoints(0.5)      ‘ и т.д.   End With   End Sub     Function fnLocalPaperSize() As XlPaperSize   ‘ сохранить размер листа при чтении   Static iPaperSize As XlPaperSize   ‘ размер установлен?      If iPaperSize = 0 Then      ‘ нет, поэтому создать новую книгу и считать размер листа          With Workbooks.Add              iPaperSize = .Worksheets(1).PageSetup.PaperSize              .Close False          End With      End If      ‘ вернуть размер листа      fnLocalPaperSize = iPaperSize   End Function

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	{quote}{login=Сергей М}{date=19.01.2011 10:45}{thema=}{post}Обрезка рисунка при помощи макроса? это возможно?{/post}{/quote}   Рекордер записывает.

	Ну раз записывает, то показали бы как изменить РАЗМЕР листа (не поля какие-нибудь).     Нужную для себя задачу решил, но другим способом. Путем изменения размера листа не получается ПОКА.     Всем не равнодушным БОЛЬШОЕ ЧЕЛОВЕЧЕСКОЕ СПАСИБО.

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Сергей, Вы спросили про обрезку рисунка — я ответил. И не нужно передёргивать.

	Юрий, извините что не понял Вас.   А обрезать в Worde или в Excel?

Юрий М Модератор Сообщений: 60575 Регистрация: 14.09.2012 Контакты см. в профиле	Да ладно… В Excel. Я проверил — записывается обрезка, значит и самому написать можно Тогда будет без «лишних» полей. Я так понимаю, что Вам именно они и мешают — перекрывают полезную площадь.

Сергей М Гость	#29 21.01.2011 21:59:30 Блин, и как раньше не заметил эту обрезку :), и действительно получается записать.     Ну теперь знаю еще 1 способ получить нужное, пригодится.     Юрий, еще раз спасибо.

Как управлять размером листа из макроса

Andy_NTG Дата: Среда, 15.07.2015, 15:03 | Сообщение № 1 Группа: Пользователи Ранг: Прохожий Сообщений: 6 Репутация: 0 ± Замечаний: 0% ± Excel 2013 У меня есть лист. Я его заполняю данными. Получается примерно 1500 строк. Когда я их удаляю и выполняю макрос проставления количества строк, то он проходится по тем строкам, которые уже пустые. Пробовал удалять ячейки, но это не помогает. Размер листа определяю так: [vba] Код sheetLength = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row [/vba] Как сделать так, чтобы размер книги определялся адекватно через вышеуказанную формулу?   Ответить

SLAVICK Дата: Среда, 15.07.2015, 15:10 | Сообщение № 2 Группа: Модераторы Ранг: Старожил Сообщений: 2290 Репутация: 766 ± Замечаний: 0% ± 2019 Так [vba] Код sheetLength  =  ActiveSheet.Cells(Rows.Count, «A»).End(xlUp).Row [/vba] Где a — столбец, в котором в последней строке точно есть данные Только это не размер листа а количество строк в листе Иногда все проще чем кажется с первого взгляда. Сообщение отредактировал SLAVICK — Среда, 15.07.2015, 15:12   Ответить

_Boroda_ Дата: Среда, 15.07.2015, 15:13 | Сообщение № 3 Группа: Модераторы Ранг: Местный житель Сообщений: 16618 Репутация: 6465 ± Замечаний: 0% ± 2003; 2007; 2010; 2013 RUS если Вы не знаете, в каком столбце искать, то Перед этой строкой sheetLength = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row напишите строку [vba][/vba] — она переопределяет UsedRange на текущий момент итого должно получиться вот так [vba] Код ActiveSheet.UsedRange sheetLength = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row [/vba] Или просто можно сохранить файл — UsedRange тоже переопределится. Скажи мне, кудесник, любимец ба’гов… Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995   Ответить

Мы часто печатаем вещи в своей работе и вручную устанавливаем некоторые параметры, например, горизонтальную или вертикальную печать. Разберитесь в свойствах PageSetup, задайте параметры печати с помощью нескольких коротких строк кода, затем вы можете установить их один раз, использовать постоянно, удобно и эффективно.

Объект PageSetup представляет инструкции по настройке страницы. Содержит все свойства настроек страницы (левое поле, нижнее поле, размер бумаги и т. Д.).

В следующем примере устанавливается альбомная ориентация печати, а затем выполняется печать рабочего листа.

With Worksheets("Sheet1")
     .PageSetup.Orientation = xlLandscape
     .PrintOut
 End With

1. Свойства, соответствующие вкладке «Страница»

Атрибуты	Описание
FirstPageNumber	Вернуть или установить номер первой страницы при печати указанного рабочего листа. Если установлено значение xlAutomatic, Microsoft Excel использует номер первой страницы. Значение по умолчанию — xlAutomatic. Длинный шрифт, читаемый и записываемый.
FitToPagesTall	Верните или установите высоту страницы, используемую для масштабирования листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
FitToPagesWide	Верните или установите ширину страницы, используемую для масштабирования рабочего листа при его печати. Применяется только к рабочим листам. Тип варианта, читаемый и записываемый.
Orientation	Возвращает или задает значение XlPageOrientation, которое представляет портретный или альбомный режим печати.
Pages	Возвращает или задает количество страниц в коллекции Pages.
PaperSize	Верните или установите размер бумаги. Может читать и писать XlPaperSize.
PrintQuality	Вернуть или установить качество печати. Тип варианта, читаемый и записываемый.
Zoom	Возвращает или задает значение Variant, которое представляет собой процентное значение от 10% до 400%. Этот процент представляет собой коэффициент масштабирования, когда Microsoft Excel печатает рабочий лист. Это свойство применяется только к листам. Если для этого атрибута установлено значениеFalse, ЗатемFitToPagesWide с участием FitToPagesTallАтрибуты определяют способ масштабирования листа. При любом увеличении сохраняется соотношение сторон исходного документа.

В этом примере Sheet1 настраивается для печати в альбомной ориентации.

Рабочие листы ("Sheet1"). PageSetup.FirstPageNumber = 100 'Установить номер первой страницы, когда Sheet1 печатается до 100
   Рабочие листы ("Sheet1"). PageSetup.Orientation = xlLandscape'Set Sheet1 для альбомной печати
   Рабочие листы ("Sheet1"). PageSetup.Orientation = xlPortrait'Set Sheet1 для портретной печати
   С помощью рабочих листов ("Sheet1"). PageSetup'Print Sheet1 в соответствии с шириной и высотой страницы
     .Zoom = False
     .FitToPagesTall = 1
     .FitToPagesWide = 1
 End With
   Рабочие листы ("Sheet1"). PageSetup.PaperSize = xlPaperA4 'Установите размер бумаги Sheet1 на A4
   Рабочие листы ("Sheet1"). PageSetup.Zoom = 150 'Установите коэффициент масштабирования при печати Sheet1 на 150%

2. Свойства, соответствующие вкладке «Поля».

Установление и возврат маржи в пунктах. быть полезнымInchesToPoints Метод преобразования дюймов в фунты, вы также можете использоватьCentimetersToPoints Метод перевода сантиметров в точки.

Точка: относится к единице измерения высоты печатаемых символов. Фунт равен 1/72 дюйма или примерно равен 1/28 сантиметра. )

Атрибуты	Описание
BottomMargin	Возвращает или задает размер нижнего поля в пунктах. Двойной тип, читаемый и записываемый.
CenterHorizontally	Если указанный рабочий лист напечатан в центре страницы по горизонтали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
CenterVertically	Если указанный рабочий лист напечатан в центре страницы по вертикали, значение атрибута равно True. Логический тип, доступный для чтения и записи.
FooterMargin	Вернуть или установить расстояние от нижнего колонтитула до низа страницы в пунктах. Двойной тип, читаемый и записываемый.
HeaderMargin	Вернуть или установить расстояние от верха страницы до верхнего колонтитула в пунктах. Двойной тип, читаемый и записываемый.
LeftMargin	Возвращает или задает размер левого поля в пунктах. Двойной тип, читаемый и записываемый.
RightMargin	Возвращает или задает размер правого поля в пунктах. Двойной тип, читаемый и записываемый.
TopMargin	Возвращает или задает размер верхнего поля в пунктах. Двойной тип, читаемый и записываемый.

В следующем примере устанавливаются все поля первого листа.

With Worksheets(1).PageSetup
     .LeftMargin = Application.InchesToPoints(0.5)
     .RightMargin = Application.InchesToPoints(0.75)
     .TopMargin = Application.InchesToPoints(1.5)
     .BottomMargin = Application.InchesToPoints(1)
     .HeaderMargin = Application.InchesToPoints(0.5)
     .FooterMargin = Application.InchesToPoints(0.5)
 End With

Рабочие листы ("Sheet1"). PageSetup.CenterHorizontally = True 'Установить Sheet1 для печати по горизонтали и центру.
 Рабочие листы ("Sheet1"). PageSetup.CenterVertical = True'Set Sheet1 для вертикального центрирования и печати

Эти два свойства аналогичны настройке содержимого ячейки по центру по горизонтали и вертикали.

3. Свойства, соответствующие вкладке «Верхний / нижний колонтитул».

Атрибуты	Описание
AlignMarginsHeaderFooter	Если Excel выравнивает верхний и нижний колонтитулы с полями, заданными в параметрах настройки страницы, он возвращает True. Чтение / запись логического типа.
CenterFooter	Отцентрируйте информацию нижнего колонтитула в объекте PageSetup. Чтение / запись типа String.
CenterFooterPicture	Возвращает графический объект, который представляет изображение в средней части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
CenterHeader	Выровняйте информацию заголовка по центру объекта PageSetup. Чтение / запись типа String.
CenterHeaderPicture	Возвращает графический объект, который представляет изображение в средней части заголовка. Используется для установки атрибутов, связанных с изображением.
DifferentFirstPageHeaderFooter	Истинно, если на первой странице используется другой верхний или нижний колонтитул. Чтение / запись логического типа.
LeftFooter	Возвращает или задает выравнивание текста в левом нижнем колонтитуле книги или раздела.
LeftFooterPicture	Возвращает графический объект, который представляет изображение в левой части нижнего колонтитула. Используется для установки атрибутов, связанных с изображением.
LeftHeader	Возвращает или задает выравнивание текста в левом заголовке книги или раздела.
LeftHeaderPicture	Возвращает графический объект, который представляет изображение в левой части заголовка. Используется для установки атрибутов, связанных с изображением.
OddAndEvenPagesHeaderFooter	Если нечетные и четные страницы указанного объекта PageSetup имеют разные верхние и нижние колонтитулы, значение этого атрибута равно True. Логический тип, доступный для чтения и записи.
RightFooter	Возвращает или задает расстояние (в пунктах) между правым краем страницы и правым краем нижнего колонтитула. Чтение / запись типа String.
RightFooterPicture	Возвращает графический объект, который представляет изображение в правой части нижнего колонтитула. Используется для установки атрибутов изображения.
RightHeader	Вернуть или установить правую часть заголовка. Чтение / запись типа String.
RightHeaderPicture	Укажите графическое изображение, которое должно отображаться в правом заголовке. Только чтение.
ScaleWithDocHeaderFooter	Возвращает или задает, будут ли масштабироваться верхний и нижний колонтитулы вместе с документом при изменении размера документа. Чтение / запись логического типа.

4. Свойства, соответствующие вкладке «Рабочий лист»

Атрибуты	Описание
BlackAndWhite	Если элементы в указанном документе напечатаны черно-белыми, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Draft	Если графика на листе не печатается при печати, значение атрибута равно True. Логический тип, доступный для чтения и записи.
Order	Возвращает или задает значение XlOrder, которое представляет порядок, который Microsoft Excel использует для нумерации страниц при печати большого рабочего листа.
PrintArea	Верните или установите область для печати в виде строки, которая использует ссылку стиля A1 макроязыка. Тип строки, доступный для чтения и записи.
PrintComments	Вернуть или установить способ печати комментариев на листе. Тип XlPrintLocation, доступный для чтения и записи. Вы можете распечатать комментарии в виде текстовых полей или концевых сносок.
PrintErrors	Устанавливает или возвращает константу XlPrintErrors, которая указывает тип отображаемой ошибки печати. Эта функция позволяет пользователям отменять отображение ошибок при печати рабочего листа. Могу читать и писать.
PrintGridlines	Если линии сетки ячеек напечатаны на странице, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintHeadings	Если заголовки строк и столбцов печатаются одновременно при печати этой страницы, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintNotes	Если при печати рабочего листа комментарии к ячейкам печатаются вместе как концевые сноски, значение равно True. Применяется только к рабочим листам. Логический тип, доступный для чтения и записи.
PrintTitleColumns	Возвращает или задает столбец, содержащий ячейки, которые повторно появляются в левой части каждой страницы, выраженные строкой на языке макросов в стиле A1. Тип строки, доступный для чтения и записи. Установите для этого атрибута значениеFalseИли пустая строка («»), строка заголовка будет закрыта.
PrintTitleRows	Возвращает или задает те строки, которые содержат ячейки, которые многократно появляются в верхней части каждой страницы, выраженные в нотации стиля A1 с помощью строк макроязыка. Тип строки, доступный для чтения и записи.

Рабочие листы ("Sheet1"). PageSetup.BlackAndWhite = True 'Установить рабочий лист Sheet1 для черно-белой печати
   Рабочие листы ("Sheet1"). PageSetup.Draft = True'Закрыть печать графики в Sheet1
   Рабочие листы ("Sheet1"). PageSetup.Order = xlOverThenDown'Set Sheet1 для разделения на несколько страниц для печати. Пронумеруйте и распечатайте слева направо и сверху вниз.
   Рабочие листы ("Sheet1"). PageSetup.PrintArea = "$ A $ 1: $ C $ 5" 'Установите для области печати ячейки A1: C5 на Sheet1
   Worksheets (1) .PageSetup.PrintComments = xlPrintSheetEnd 'позволяет печатать комментарии как концевые сноски
   Worksheets ("Sheet1"). PageSetup.PrintGridlines = True 'Печатать линии сетки ячеек одновременно с печатью Sheet1
   Рабочие листы ("Sheet1"). PageSetup.PrintHeadings = False 'Отключить печать заголовка на Sheet1
   Рабочие листы ("Sheet1"). PageSetup.PrintNotes = False'Закрыть примечания к печати
   ActiveSheet.PageSetup.PrintTitleRows = ActiveSheet.Rows (3) .Address 'определяет третью строку как строку заголовка
   ActiveSheet.PageSetup.PrintTitleColumns = ActiveSheet.Columns ("A: C"). Address 'определяет столбцы с первого по третий как столбцы заголовков

PrintComments свойство

Установить аннотации

Комментарий будет напечатан на новой странице.

5. Атрибуты, не соответствующие вкладкам

Атрибуты	Описание
Application	Если идентификатор объекта не используется, это свойство возвращает объект Application, представляющий приложение Microsoft Excel. Если используется идентификатор объекта, это свойство возвращает объект Application, представляющий создателя указанного объекта (вы можете использовать это свойство в объекте автоматизации OLE, чтобы вернуть приложение объекта). Только чтение.
Creator	Возвращает 32-битное целое число, указывающее приложение, создавшее объект. Только чтение Длинный тип.
EvenPage	Возвращает или задает выравнивание текста на четных страницах книги или раздела.
FirstPage	Возвращает или задает выравнивание текста на первой странице книги или раздела.
Parent	Возвращает родительский объект указанного объекта. Только чтение.

Range.PrintOut метод

Этот метод эквивалентен нажатию кнопки печати в Excel для выполнения операции печати. Этот метод позволяет указать принтер для печати.

Выражение выглядит следующим образом.

.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName)

название	Описание
From	Номер начальной страницы для печати. Если этот параметр не указан, печать начнется с начальной позиции.
To	Номер конечной страницы печати. Если этот параметр не указан, печать будет до последней страницы.
Copies	Количество копий для печати. Если этот параметр не указан, будет напечатана только одна копия.
Preview	Если этоTrue, Microsoft Excel вызовет предварительный просмотр перед печатью объекта. Если этоFalse(Или опустите этот параметр), объект будет немедленно напечатан.
ActivePrinter	Задайте имя активного принтера.
PrintToFile	Если этоTrue, Затем распечатайте в файл. Если не указаноPrToFileName, Microsoft Excel предложит пользователю ввести имя файла вывода, который будет использоваться.
Collate	Если этоTrue, Печать нескольких копий с подборкой.
PrToFileName	в случае PrintToFileУстановить какTrue, Параметр указывает имя файла для печати.

Заметка:From с участием ToОписанная «страница» относится к странице, которая будет напечатана, а не ко всем страницам в указанном листе или книге.

---

Публичный аккаунт WeChat: VBA168

Адрес магазина Taobao:https://item.taobao.com/item.htm?spm=a1z10.1-c-s.w4004-21233576391.4.1af0683dzrx3oU&id=584940166162

Обратите внимание на общедоступную учетную запись WeChat и каждый день получайте объяснения классических примеров Excel VBA.

Магазины Taobao предоставляют услуги настройки Excel.

Желаю вам легче работать и учиться!

This is the ultimate guide to working with Excel Sheets / Worksheets in VBA.

At the bottom of this guide, we’ve created a cheat sheet of common commands for working with sheets.

Sheets Vs. Worksheets

There are two ways to reference Sheets using VBA. The first is with the Sheets object:

Sheets("Sheet1").Activate

The other is with the Worksheets object:

Worksheets("Sheet1").Activate

99% of the time, these two objects are identical. In fact, if you’ve searched online for VBA code examples, you’ve probably seen both objects used. Here is the difference:

The Sheets Collection contains Worksheets AND Chart Sheets.

So use Sheets if you want to include regular Worksheets AND Chart Sheets. Use Worksheets if you want to exclude Chart Sheets. For the rest of this guide we will use Sheets and Worksheets interchangeably.

Referencing Sheets

There are several different ways to reference Sheets:

• ActiveSheet
• Sheet Tab Name
• Sheet Index Number
• Sheet Code Name

ActiveSheet

The ActiveSheet is the Sheet that’s currently active. In other words, if you paused your code and looked at Excel, it’s the sheet that is visible. The below code example will display a MessageBox with the ActiveSheet name.

MsgBox ActiveSheet.Name

Sheet Name

You are probably most familiar with referencing Sheets by their Tab Name:

Sheets("TabName").Activate

This is the sheet name that’s visible to Excel users. Enter it into the sheets object, as a string of text, surrounded by quotations.

Sheet Index Number

The Sheet Index number is the sheet position in the workbook. 1 is the first sheet. 2 is the second sheet etc.:

Sheets(1).Activate

Sheet Index Number – Last Sheet in Workbook

To reference the last Sheet in the workbook, use Sheets.Count to get the last Index Number and activate that sheet:

Sheets(Sheets.Count).Activate

Sheet “Code Name”

The Sheet Code Name is it’s Object name in VBA:

CodeName.Activate

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro — A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!

Learn More

Referencing Sheets in Other Workbooks

It’s also easy to reference Sheets in other Workbooks. To do so, you need to use the Workbooks Object:

Workbooks("VBA_Examples.xlsm").Worksheets("Sheet1").Activate

Important: The Workbook must be open before you can reference its Sheets.

Activate vs. Select Sheet

In another article we discuss everything about activating and selecting sheets. The short version is this:

When you Activate a Sheet it becomes the ActiveSheet. This is the sheet you would see if you looked at your Excel program. Only one sheet may be activate at a time.

Activate a Sheet

Sheets("Sheet1").Activate

When you select a Sheet, it also becomes the ActiveSheet. However, you can select multiple sheets at once. When multiple sheets are selected at once, the “top” sheet is the ActiveSheet. However, you can toggle the ActiveSheet within selected sheets.

VBA Programming | Code Generator does work for you!

Select a Sheet

Sheets("Sheet1").Select

Select Multiple Sheets

Use an array to select multiple sheets at once:

Worksheets(Array("Sheet2", "Sheet3")).Select

Worksheet Variable

Assigning a worksheet to an object variable allows you to reference the worksheet by it’s variable name. This can save a lot of typing and make your code easier to read. There are also many other reasons you might want to use variables.

To declare a worksheet variable:

Dim ws as worksheet

Assign a worksheet to a variable:

Set ws = Sheets("Sheet1")

Now you can reference the worksheet variable in your code:

ws.Activate

Loop Through All Sheets in Workbook

Worksheet variables are useful when you want to loop through all the worksheets in a workbook. The easiest way to do this is:

Dim ws as Worksheet

For Each ws in Worksheets
  MsgBox ws.name
Next ws

This code will loop through all worksheets in the workbook, displaying each worksheet name in a message box. Looping through all the sheets in a workbook is very useful when locking / unlocking or hiding / unhiding multiple worksheets at once.

Worksheet Protection

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

Workbook Protection

Workbook protection locks the workbook from structural changes like adding, deleting, moving, or hiding worksheets.

You can turn on workbook protection using VBA:

ActiveWorkbook.Protect Password:="Password"

or disable workbook protection:

ActiveWorkbook.UnProtect Password:="Password"

Note: You can also protect / unprotect without a password by omitting the Password argument:

ActiveWorkbook.Protect

Worksheet Protection

Worksheet-level protection prevents changes to individual worksheets.

Protect Worksheet

Worksheets("Sheet1").Protect "Password"

Unprotect Worksheet

Worksheets("Sheet1").Unprotect "Password"

There are a variety of options when protecting worksheets (allow formatting changes, allow user to insert rows, etc.)  We recommend using the Macro Recorder to record your desired settings.

We discuss worksheet protection in more detail here.

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

Worksheet Visible Property

You might already know that worksheets can be hidden:

There are actually three worksheet visibility settings: Visible, Hidden, and VeryHidden. Hidden sheets can be unhidden by any regular Excel user – by right-clicking in the worksheet tab area (shown above).  VeryHidden sheets can only be unhidden with VBA code or from within the VBA Editor.  Use the following code examples to hide / unhide worksheets:

Unhide Worksheet

Worksheets("Sheet1").Visible = xlSheetVisible

Hide Worksheet

Worksheets("Sheet1").visible = xlSheetHidden

Very Hide Worksheet

Worksheets("Sheet1").Visible = xlSheetVeryHidden

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

Worksheet-Level Events

Events are triggers that can cause “Event Procedures” to run. For example, you can cause code to run every time any cell on a worksheet is changed or when a worksheet is activated.

Worksheet event procedures must be placed in a worksheet module:

There are numerous worksheet events. To see a complete list, go to a worksheet module, select “Worksheet” from the first drop-down. Then selecting an event procedure from the second drop-down to insert it into the module.

Worksheet Activate Event

Worksheet activate events run each time the worksheet is opened.

Private Sub Worksheet_Activate()
  Range("A1").Select
End Sub

This code will select cell A1 (resetting the view area to the top-left of the worksheet) each time the worksheet is opened.

Worksheet Change Event

Worksheet change events run whenever a cell value is changed on the worksheet. Read our tutorial about Worksheet Change Events for more information.

Worksheet Cheat Sheet

Below you will find a cheat sheet containing common code examples for working with sheets in VBA

VBA Worksheets Cheatsheet

VBA worksheets Cheatsheet

Description	Code Example
Referencing and Activating Sheets
Tab Name	Sheets(«Input»).Activate
VBA Code Name	Sheet1.Activate
Index Position	Sheets(1).Activate
Select Sheet
Select Sheet	Sheets(«Input»).Select
Set to Variable	Dim ws as Worksheet Set ws = ActiveSheet
Name / Rename	ActiveSheet.Name = «NewName»
Next Sheet	ActiveSheet.Next.Activate
Loop Through all Sheets	Dim ws as Worksheet For each ws in Worksheets Msgbox ws.name Next ws
Loop Through Selected Sheets	Dim ws As Worksheet For Each ws In ActiveWindow.SelectedSheets MsgBox ws.Name Next ws
Get ActiveSheet	MsgBox ActiveSheet.Name
Add Sheet	Sheets.Add
Add Sheet and Name	Sheets.Add.Name = «NewSheet»
Add Sheet With Name From Cell	Sheets.Add.Name = range(«a3»).value
Add Sheet After Another	Sheets.Add After:=Sheets(«Input»)
Add Sheet After and Name	Sheets.Add(After:=Sheets(«Input»)).Name = «NewSheet»
Add Sheet Before and Name	Sheets.Add(Before:=Sheets(«Input»)).Name = «NewSheet»
Add Sheet to End of Workbook	Sheets.Add After:=Sheets(Sheets.Count)
Add Sheet to Beginning of Workbook	Sheets.Add(Before:=Sheets(1)).Name = «FirstSheet»
Add Sheet to Variable	Dim ws As Worksheet Set ws = Sheets.Add
Copy Worksheets
Move Sheet to End of Workbook	Sheets(«Sheet1»).Move After:=Sheets(Sheets.Count)
To New Workbook	Sheets(«Sheet1»).Copy
Selected Sheets To New Workbook	ActiveWindow.SelectedSheets.Copy
Before Another Sheet	Sheets(«Sheet1»).Copy Before:=Sheets(«Sheet2»)
Before First Sheet	Sheets(«Sheet1»).Copy Before:=Sheets(1)
After Last Sheet	Sheets(«Sheet1»).Copy After:=Sheets(Sheets.Count)
Copy and Name	Sheets(«Sheet1»).Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = «LastSheet»
Copy and Name From Cell Value	Sheets(«Sheet1»).Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = Range(«A1»).Value
To Another Workbook	Sheets(«Sheet1»).Copy Before:=Workbooks(«Example.xlsm»).Sheets(1)
Hide / Unhide Sheets
Hide Sheet	Sheets(«Sheet1»).visible = False or Sheets(«Sheet1»).visible = xlSheetHidden
Unhide Sheet	Sheets(«Sheet1»).Visible = True or Sheets(«Sheet1»).Visible = xlSheetVisible
Very Hide Sheet	Sheets(“Sheet1”).Visible = xlSheetVeryHidden
Delete or Clear Sheets
Delete Sheet	Sheets(«Sheet1»).Delete
Delete Sheet (Error Handling)	On Error Resume Next Sheets(«Sheet1»).Delete On Error GoTo 0
Delete Sheet (No Prompt)	Application.DisplayAlerts = False Sheets(«Sheet1»).Delete Application.DisplayAlerts = True
Clear Sheet	Sheets(«Sheet1»).Cells.Clear
Clear Sheet Contents Only	Sheets(«Sheet1»).Cells.ClearContents
Clear Sheet UsedRange	Sheets(«Sheet1»).UsedRange.Clear
Protect or Unprotect Sheets
Unprotect (No Password)	Sheets(«Sheet1»).Unprotect
Unprotect (Password)	Sheets(«Sheet1»).Unprotect «Password»
Protect (No Password)	Sheets(«Sheet1»).Protect
Protect (Password)	Sheets(«Sheet1»).Protect «Password»
Protect but Allow VBA Access	Sheets(«Sheet1»).Protect UserInterfaceOnly:=True
Unprotect All Sheets	Dim ws As Worksheet For Each ws In Worksheets ws.Unprotect «password» Next ws