Multipage1 pages в excel

Класс MultiPage — набор страниц VBA

Компонент Multipage vba языка — набор страниц, предоставляет возможность добавлять на поверхность формы несколько страниц, это эффективно в том случае, если элементов управления слишком много, и все они не умещаются на поверхности.

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

После того, как вы выбрали компонент MultiPage в окне ToolBox и перетащили его на поверхность формы (UserForm), у вас будет только две вкладки для Набора страниц. Если вы кликните правой кнопкой мыши по корешку MultiPage vba, то вам откроется контекстное меню, со следующими пунктами:

• NewPage – позволяет добавить новую страницу к уже имеющимся. Обратите внимание, имена корешков страниц назначаются автоматически (Page1, Page2, …. , PageN).
• DeletePage – удаляет ту страницу, по корешку которой вы кликнули.
• Rename – позволяет переименовать выбранную страницу, аналогично, вы можете сделать тоже самое в окне свойств (свойство Caption).
• Move – переместить выбранную страницу. После клика вам откроется небольшое диалоговое окно, где вы сможете переместить выбранную вкладку в заданном направлении.

Основные свойства для класса Multipage vba языка следующие:

MultiRow – свойство языка vba может принимать логическое True или False. Само свойство актуально в том случае, если вкладок страниц слишком много и они не помещаются в на поверхности формы. Если будет установлено значение False, то все корешки будут находиться на одной линии, для перехода к тем вкладкам, которые не видно, будут добавлены дополнительные кнопки. Если значение установлено в True – то при большом количестве вкладок, они будут располагаться в несколько строк.

TabOrientation – позволяет задать, где будут расположены корешки страниц, свойство предоставляет четыре значения: fmTabOrientationTop – расположении вверху, fmTabOrientationBottom – внизу, fmTabOrientationLeft – слева и fmTabOrientationRight – справа.

SelectedItem – содержит ссылку на объект выбранной страницы

Value – свойство позволяет получить номер той вкладки страницы, которая выбрана в данный момент, нумерация начинается с нуля.

Style – определяет стиль вкладок: fmTabStyleTabs – в виде закладок, fmTabStyleButton – в виде кнопок и fmTabStyleNone – вкладки отсутствуют

Основным событием для класса MultiPage является событие Change, оно возникает при переходе между вкладками.

Хорошо, теперь давайте напишем простой пример с компонентом VBA MultiPage.

Добавьте в окно Проектов новый модуль и форму (меню Insert, пункты UserForm и Module). Я всегда даю соответствующие имена для формы и модуля (свойство Name), в данном случае MPModule и MPForm. Теперь надо настроить внешний вид формы. Нм понадобятся только три элемента управления из окна ToolBox (меню View, пункт Toolbox):

MultiPage – добавляем а форму данный элемент управления, у вас автоматически появятся два флажка, кликаем по одному из флажков и жмем New Page, это добавить третью вкладку. В свойстве Caption пропишите для каждой вкладки: Флажок 1, Флажок 2 и Флажок 3.

ListBox – добавьте на поверхность объекта MultiPage список (ListBox), точнее, три списка, по одному на каждую вкладку.

Label – в самый низ формы добавьте компонент Надпись, он должен находится на поверхности формы UserForm. Свойство Caption оставьте пустым.

Теперь нам нужно прописать код для формы, жмем в окне проектов на наш объект UserForm (MPForm) и нажимаем кнопку View Code. В окне редактора кода прописываем следующие процедуры:

Private Sub MultiPage1_Change() Label1.Caption = MultiPage1.SelectedItem.CaptionEnd SubPrivate Sub UserForm_Initialize() For i = 0 To 50 ListBox1.AddItem «число_» & i Next For i = 50 To 100 ListBox2.AddItem «число_» & i Next For i = 100 To 150 ListBox3.AddItem «число_» & i Next Label1.FontSize = 16 Label1.ForeColor = &H1055F2 Label1.TextAlign = fmTextAlignCenter Label1.Caption = MultiPage1.SelectedItem.CaptionEnd Sub

Давайте разберем код:

MultiPage1_Change – тут происходит обработка события Change, которое возникает при клике по флажкам. Каждый раз, когда мы будем переходить на ту или иную вкладку, в свойство Caption объекта Label будет записываться название выбранного флажка.

UserForm_Initialize – данная процедура будет выполняться при инициализации формы. Тут есть три цикла for, по одному на каждый объект ListBox, по сути, в цикле происходит простое заполнение списков. Далее идут настройки свойств:

• Label1.FontSize – задаем размер шрифта для объекта Надпись
• Label1.ForeColor – задаем цвет текста, которые отображается в поле Надпись
• Label1.TextAlign – выравниваем шрифт по центру
• Label1.Caption – тут мы прописываем начальное значение для свойства Caption.

В принципе все, не забывайте, что в редакторе кода для модуля (макроса), нужно прописать процедуру, которая будет выводить форму:

Sub MPModule() MPForm.ShowEnd Sub

Ну, вот и все, в статье мы кратко рассмотрели класс MultiPage VBA и написал небольшой пример.

Источник

Vba excel multipage выбрать вкладку

Элемент управления Multipage

августа 28, 2015 admin

Компонент Multipage это набор страниц, предоставляет возможность добавлять на поверхность формы несколько страниц, это эффективно в том случае, если элементов управления слишком много, и все они не умещаются на поверхности.

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

рис . 1.1 Элемент управления MultiPage на панели ToolBox

рис. 1.2 Элемент управления MultiPage на форме

После того, как вы выбрали компонент MultiPage в окне ToolBox и перетащили его на поверхность формы (UserForm), у вас будет только две вкладки для Набора страниц. Если вы кликните правой кнопкой мыши по корешку MultiPage vba, то вам откроется контекстное меню, со следующими пунктами:

• NewPage – позволяет добавить новую страницу к уже имеющимся. Обратите внимание, имена корешков страниц назначаются автоматически (Page1, Page2, …. , PageN).
• DeletePage – удаляет ту страницу, по корешку которой вы кликнули.
• Rename – позволяет переименовать выбранную страницу, аналогично, вы можете сделать тоже самое в окне свойств (свойство Caption).
• Move – переместить выбранную страницу. После клика вам откроется небольшое диалоговое окно, где вы сможете переместить выбранную вкладку в заданном направлении.

Основные свойства для класса Multipage vba языка следующие:

MultiRow – свойство языка vba может принимать логическое True или False. Само свойство актуально в том случае, если вкладок страниц слишком много и они не помещаются в на поверхности формы. Если будет установлено значение False, то все корешки будут находиться на одной линии, для перехода к тем вкладкам, которые не видно, будут добавлены дополнительные кнопки. Если значение установлено в True – то при большом количестве вкладок, они будут располагаться в несколько строк.

TabOrientation – позволяет задать, где будут расположены корешки страниц, свойство предоставляет четыре значения: fmTabOrientationTop – расположении вверху, fmTabOrientationBottom – внизу, fmTabOrientationLeft – слева и fmTabOrientationRight – справа.

SelectedItem – содержит ссылку на объект выбранной страницы

Value – свойство позволяет получить номер той вкладки страницы, которая выбрана в данный момент, нумерация начинается с нуля.

Style – определяет стиль вкладок: fmTabStyleTabs – в виде закладок, fmTabStyleButton – в виде кнопок и fmTabStyleNone – вкладки отсутствуют

Основным событием для класса MultiPage является событие Change, оно возникает при переходе между вкладками.

Хорошо, теперь давайте напишем простой пример с компонентом VBA MultiPage.

Добавьте в окно Проектов новый модуль и форму (меню Insert, пункты UserForm и Module). Я всегда даю соответствующие имена для формы и модуля (свойство Name), в данном случае MPModule и MPForm. Теперь надо настроить внешний вид формы. Нм понадобятся только три элемента управления из окна ToolBox (меню View, пункт Toolbox):

MultiPage – добавляем а форму данный элемент управления, у вас автоматически появятся два флажка, кликаем по одному из флажков и жмем New Page, это добавить третью вкладку. В свойстве Caption пропишите для каждой вкладки: Флажок 1, Флажок 2 и Флажок 3.

ListBox – добавьте на поверхность объекта MultiPage список ( ListBox ), точнее, три списка, по одному на каждую вкладку.

Label – в самый низ формы добавьте компонент Надпись , он должен находится на поверхности формы UserForm. Свойство Caption оставьте пустым.

Теперь нам нужно прописать код для формы, жмем в окне проектов на наш объект UserForm (MPForm) и нажимаем кнопку View Code. В окне редактора кода прописываем следующие процедуры:

Private Sub MultiPage1_Change()

Private Sub UserForm_Initialize()

ListBox1.AddItem “число_” & i

For i = 50 To 100

ListBox2.AddItem “число_” & i

For i = 100 To 150

ListBox3.AddItem “число_” & i

Next Label1.FontSize = 16

Давайте разберем код:

MultiPage1_Change – тут происходит обработка события Change, которое возникает при клике по флажкам. Каждый раз, когда мы будем переходить на ту или иную вкладку, в свойство Caption объекта Label будет записываться название выбранного флажка.

UserForm_Initialize – данная процедура будет выполняться при инициализации формы. Тут есть три цикла for, по одному на каждый объект ListBox, по сути, в цикле происходит простое заполнение списков. Далее идут настройки свойств:

• Label1.FontSize – задаем размер шрифта для объекта Надпись
• Label1.ForeColor – задаем цвет текста, которые отображается в поле Надпись
• Label1.TextAlign – выравниваем шрифт по центру
• Label1.Caption – тут мы прописываем начальное значение для свойства Caption.

В принципе все, не забывайте, что в редакторе кода для модуля (макроса), нужно прописать процедуру, которая будет выводить форму:

Ну, вот и все, в статье мы кратко рассмотрели класс MultiPage VBA и написал небольшой пример.

Источник

VBA Excel. Элемент управления MultiPage

Создание коллекции страниц с наборами элементов управления на пользовательской форме VBA Excel с помощью элемента управления MultiPage. Примеры кода.

Элемент управления MultiPage

Элемент управления MultiPage очень удобен, когда большой объем информации может быть разделен на несколько категорий, каждая из которых размещается на отдельной странице.

Основное свойство коллекции страниц – Value, которое возвращает индекс текущей (активной) страницы (индексация начинается с нуля).

Основное событие (метод) коллекции страниц – Change, которое происходит в момент перехода между страницами.

На каждой странице элемента управления MultiPage размещается свой набор элементов управления. Этим коллекция страниц отличается от элемента TabStrip, у которого на каждой вкладке отображается один и тот же набор элементов управления.

По умолчанию в редакторе VBA Excel на элементе управления MultiPage отображены 2 вкладки. Добавить, удалить, переименовать или переместить вкладку можно через контекстное меню, кликнув по ярлыку страницы правой кнопкой мыши.

• New Page – добавление новой страницы;
• Delete Page – удаление страницы;
• Rename… – переименование страницы;
• Move… – перемещение страницы.

Примеры кода VBA Excel с MultiPage

Пример 1
Добавление и удаление страниц элемента управления MultiPage с помощью кода VBA Excel.

Добавление 3-й, 4-й, 5-й и 6-й страниц к двум, которые уже есть по умолчанию:

Удаление второй страницы:

Удаление всех страниц:

Подгон размеров элемента управления MultiPage полностью под размеры пользовательской формы:

Пример 2
Добавление информации о новом сотруднике с помощью элемента управления MultiPage и запись в таблицу на рабочем листе Excel.

Для реализации примера понадобится следующая таблица:

и проект пользовательской формы в редакторе VBA Excel:

Наименования страниц элемента управления MultiPage и текст надписей (Label) заданы непосредственно на проекте пользовательской формы. Кнопку будем переименовывать в коде, так как она используется на 1-й и 2-й страницах для перехода на следующую страницу, а на 3-й странице – для записи данных в таблицу.

Загрузка пользовательской формы с необходимыми параметрами:

Смена надписи на кнопке в зависимости от индекса текущей страницы элемента управления MultiPage1:

Обработка клика по кнопке CommandButton1:

Заполнение данными страниц элемента управления MultiPage1:

Записанная строка в таблице Excel после нажатия кнопки «Сохранить»:

4 комментария для “VBA Excel. Элемент управления MultiPage”

Все легко и понятно. Спасибо!

Есть одно замечание. Использование скобок при вызове подпрограмм (sub) без ключевого слова call — это, вообще говоря, ошибка. Скобки в этом случае ставить не нужно.
Неправильно:

Обратите внимание, если вы опускаете ключевое слово call при вызове подпрограммы, VBE (редактор исходного кода) автоматически добавляет пробел после имени процедуры. Пробел — это разделитель, после которого должны быть перечислены через запятую параметры подпрограммы. Если вы ставите скобки, это воспринимается компилятором как выражение. Например, если вам нужно передать параметром ссылку на объект, скобки будут означать, что вместо ссылки будет передано значение свойства по умолчанию этого объекта.

Добрый день! Вы правы, что в строке

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

Эта строка не является вызовом подпрограммы, а является обычной строкой кода (оператором) внутри подпрограммы.

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

Методы могут как возвращать значения (объекты), так и не возвращать. Пример, когда метод MultiPage.Pages.Add возвращает объект:

Здесь скобки обязательны, без скобок редактор VBA подсветит строку как ошибочную.

Если метод MultiPage.Pages.Add использовать без присвоения возвращаемого значения переменной, подойдут оба варианта:

Некоторые операторы, не возвращающие значения (объекты), не допускают использование скобок, например, оператор Open.

Извините за поздний ответ. Не согласен. Методы — это подпрограммы (sub) и функции (function), относящиеся к классу. Синтаксис их вызова — такой же, как у обычных подпрограмм и функций. На всякий случай напомню, что sub не имеет возвращаемого значения, function — имеет, но его можно игнорировать (обычно), вызывая функцию, как процедуру. У процедур 2 способа вызова:
1. Классический
Call MySub(p1, p2)
при котором используются скобки.
2. Модный
MySub p1, p2
при котором скобки не используются.
Попробуйте определить процедуру
Sub MySub(p1, p2)
End sub
а затем вызвать её так:
MySub(p1, p2)
Компилятор сообщит вам об ошибке синтаксиса. Единственный вариант, позволяющий вам втиснуть скобки в модном способе вызова, это вызов процедуры с одним аргументом:
Sub MySub1(p1)
End sub
…
MySub1 (p1)
В этом случае компилятор будет считать скобки частью выражения, служащего аргументом. Если p1 — ссылка на объект, то скобки будут означать, что процедуре нужно передать не саму ссылку на объект, а значение его свойства по умолчанию, что не то же самое. Таким образом, скобки не являются опциональной частью модного синтаксиса вызова процедуры, как вы думаете, их просто не должно быть.
Документация Microsoft не сообщает прямо, что скобок при модном способе вызова не нужно (для случая нескольких аргументов сообщает, для одного — нет), но на практике это так.

Источник