Создание коллекции страниц с наборами элементов управления на пользовательской форме 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-й страниц к двум, которые уже есть по умолчанию:
|
1 2 3 4 |
Dim i As Byte For i = 3 To 6 MultiPage1.Pages.Add ("Pag" & i) Next |
Удаление второй страницы:
|
1 2 |
MultiPage1.Pages.Remove ("Page2") MultiPage1.Pages.Remove (1) |
Удаление всех страниц:
|
1 |
MultiPage1.Pages.Clear |
Подгон размеров элемента управления MultiPage полностью под размеры пользовательской формы:
|
1 2 3 4 5 6 |
With MultiPage1 .Left = Me.Left .Top = Me.Top .Width = Me.Width .Height = Me.Height End With |
Пример 2
Добавление информации о новом сотруднике с помощью элемента управления MultiPage и запись в таблицу на рабочем листе Excel.
Для реализации примера понадобится следующая таблица:
и проект пользовательской формы в редакторе VBA Excel:
Наименования страниц элемента управления MultiPage и текст надписей (Label) заданы непосредственно на проекте пользовательской формы. Кнопку будем переименовывать в коде, так как она используется на 1-й и 2-й страницах для перехода на следующую страницу, а на 3-й странице – для записи данных в таблицу.
Загрузка пользовательской формы с необходимыми параметрами:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Private Sub UserForm_Initialize() With MultiPage1 'Подгоняем MultiPage1 под размеры 'формы, оставив место под кнопку .Left = Me.Left .Top = Me.Top .Width = Me.Width .Height = Me.Height * 0.7 'переходим на первую страницу .Value = 0 End With CommandButton1.Caption = "Далее >>" End Sub |
Смена надписи на кнопке в зависимости от индекса текущей страницы элемента управления MultiPage1:
|
1 2 3 4 5 6 7 |
Private Sub MultiPage1_Change() If MultiPage1.Value = 2 Then CommandButton1.Caption = "Сохранить" Else CommandButton1.Caption = "Далее >>" End If End Sub |
Обработка клика по кнопке CommandButton1:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
Private Sub CommandButton1_Click() If MultiPage1.Value < 2 Then 'Переход на следующую страницу MultiPage1.Value = MultiPage1.Value + 1 Else 'Запись данных в таблицу на листе Excel Dim n As Byte n = Range("A1").CurrentRegion.Rows.Count + 1 Cells(n, 1) = TextBox1 & " " & TextBox2 _ & " " & TextBox3 Cells(n, 2) = TextBox4 Cells(n, 3) = TextBox5 & " " & TextBox6 Cells(n, 4) = TextBox7 Cells(n, 5) = TextBox8 Cells(n, 6) = TextBox9 Cells(n, 7) = TextBox10 End If End Sub |
Заполнение данными страниц элемента управления MultiPage1:
Записанная строка в таблице Excel после нажатия кнопки «Сохранить»:
Все легко и понятно. Спасибо!