Vba excel поля листа

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

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

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

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

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

В этом примере 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 сантиметра. )

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

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. Свойства, соответствующие вкладке «Верхний / нижний колонтитул».

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

Рабочие листы ("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. Атрибуты, не соответствующие вкладкам

Range.PrintOut метод

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

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

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

Заметка: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.

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

Наряду с кнопкой очень часто используются элементы ввода данных. Здесь в первую очередь следует рассмотреть элемент управления «Поле» (рис. 1.15). На его пиктограмме нанесены буквы ab. Данный элемент более известен под названием Текстовое окно, что подчеркивает его функциональность (элемент предназначен для ввода текста с клавиатуры). Это связано с его англоязычным названием — TextBox. В связи с этим далее по тексту мы будем использовать более соответствующее смыслу название данного элемента управления — текстовое окно.

Существует еще один, в определенной степени похожий, элемент управления — «Надпись». Как правило, он используется для отображения на экране статического поясняющего текста. На пиктограмме этого элемента изображена большая буква А. В функциональном плане текстовое окно и надпись несколько похожи, однако, в отличие от текстового окна, ввод информации с клавиатуры в элемент управления «Надпись» невозможен.

Для иллюстрации этих элементов рассмотрим несложный пример (рис. 1.16), в котором мы используем три элемента управления: кнопку, текстовое окно и надпись. Подберем следующие значения для свойства Name этих элементов:

• Btn — кнопка;
• Txb — текстовое окно;
• Lbl — надпись.

Теперь о функциональности разработки, которая с учетом того, что рассматриваемый пример первый, будет достаточно символической. Во-первых, при вводе информации в текстовое окно набираемый текст должен копироваться в надпись. Так, при вводе очередной буквы она также добавляется в надпись. Во-вторых, щелчок на кнопке должен приводить к очистке как содержимого текстового окна, так и надписи. Начиная с этого примера мы будем работать с событиями. Они играют не менее важную роль, чем свойства и методы объектов. Новый момент разработки связан с тем, что сейчас нам необходимо перейти в среду для написания кода (текста) программы. Технически для этого в режиме конструктора следует сделать двойной щелчок мышкой на одном из размещенных на листе объектов.

Нас интересует событие, связанное с изменением содержания текстового окна, поэтому дважды щелкнем в текстовом окне. В результате перед вами автоматически открывается новое окно редактора Visual Basic, которое показано на рис. 1.17. В его правой части расположен раздел, предназначенный для написания программного кода, где мы и будем писать строки программы. Здесь в верхней части присутствует два списка (каждый из которых открывается щелчком на стрелке). Левый список (в данном случае в нем указано имя текстового окна — Txb) содержит перечень объектов, которые нам доступныпри программировании. Правый список включает в себя возможные события, связанные с объектом, который предварительно выбран в левом списке. Таким образом, мы будем использовать технологию
событийного программирования.

В качестве событий могут выступать щелчок на кнопке (наиболее популярное действие при работе с кнопкой), щелчок на переключателе, наведение курсора мыши на какой-нибудь элемент управления, размещенный на листе, и т. д.

Нас сейчас интересует событие, связанное с вводом информации в текстовое окно. Оно происходит, когда мы добавляем очередной символ в текстовое окно (или удаляем из него). Таким образом, в левом списке (см. рис. 1.17) следует выбрать Txb, а затем в правом — Change (изменение). В результате этого в окне редактора Visual Basic перед нами откроется текст процедуры, которая будет автоматически выполняться при изменениях в текстовом окне (вводе либо удалении символов).

Начало рассматриваемой процедуры определяется строкой Private Sub Txb_Change () , а завершение — End Sub. Здесь Txb_Change ( ) — имя процедуры, которое формируется автоматически из двух составляющих: Txb (имя объекта, которое мысами ему присвоили) и Change. Подобные процедуры называются предопределенными — они объективно существуют и выполняются всегда при совершении определенного действия. В данном случае описываемая процедура выполняется автоматически, когда происходит изменение в текстовом окне. Существуют и другие процедуры, к которым непосредстветпю обращаются программным путем (вызовы процедур располагаются в тексте программного кода).

Возможем и другой способ перехода в окно редактора кода — для этого следует воспользоваться пиктограммой Visual Basic (рис. 1.16).

Продолжим нашу разработку; и сейчас необходимо написать программный код, приведенный на рис. 1.18. Фактически от нас требуется написать единственную строку, которую мы далее прокомментируем.

Конструкция Lbl.Caption говорит о том, что у объекта с именем Lbl рассматривается свойство Caption. Значение этого свойства определяет текст, который располагается в надписи. Знак равенства и последующая фраза говорят о том, что рассматриваемому свойству присваивается значение Txb.Text.

На данном этапе мы на рабочем листе Microsoft Excel создали необходимые элементы управления (надпись, кнопку и текстовое окно) и написали текст процедуры, выполняемой при изменении текста в текстовом окне. Теперь можно перейти из редактора Visual Basic на лист Microsoft Excel, выйти из режима конструктора и проверить работу начать набирать текст в окне. В этом случае вы увидите результат, подобный показанному на рис. 1.19.

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

1
2
3
4
5

//Листинг 1.1. Обработка щелчка на кнопке Очистка
Private Sub Btn_Click ()
Lbl.Caption = ""
Txb.Text = ""
End Sub

Для автоматического переноса длинного текста в текстовом окне со строки на строку для свойства MultiLine следует установить значение True. Альтернативным вариантом значения указанного свойства является False (в этом случае текст будет размещаться в окне только в одной строке, и при длинном фрагменте в текстовом окне будет видна только его часть).

Значение свойства Text определяет информацию, которая присутствует в текстовом окне. И, таким образом, изменения в текстовом окне автоматически будут отражаться в надписи.

Для автоматического переноса длинного текста в текстовом окне со строки на строку для свойства MultiLine следует установить значение True.

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

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