1. Э лементы управления (ActiveX).
1.1. Добавление кнопки:
- Разработчик / Вставить 6/ Элементы ActiveX, Кнопка, режим конструктора,
- растянуть кнопку на листе,
- правой кнопкой по кнопке / Свойства:
Свойство | Значение |
Name (имя) | cmdNumber1 |
Caption (заголовок) | Закрыть |
1. 2. Программирование кнопки:
- правой кнопкой по кнопке / Исходный текст – окно VBA,
- ввести код:
Private Sub cmdNumber1_Click() | Начало процедуры для события Click – щелчок по кнопке |
'Загрузка формы | Комментарий |
Load frmNumber1 | Загрузка формы с именем Number1 |
frmNumber1.Show | Вывод на экран формы Number1 |
End Sub | Окончание процедуры |
1.3. Пользовательские формы:
- Insert / User Form, View / Properties Window
- визуальные компоненты диалога: View / ToolBox
Визуальный компонент | Назначение | Префикс |
Label | Текстовая метка – ввод текста | lbl |
TextBox | Тестовое поле - ввод – вывод строки текста | txt |
ListBox | Список - выбор значения из набора | lst |
CheckBox, OptionButton | Переключатели | chk,opt |
ToggleButton | Кнопка – выбор значения | tgb |
CommandButton | Командная кнопка - выполнение действия | cmd |
Frame | Кадр - группировка элементов формы | fra |
1.4. Создание формы «Закрыть»:
|
|
- создать на рабочем листе командную кнопку с заголовком «Закрыть форму!», запрограммировать ее:
Private Sub cmdForm1_Click() | Начало процедуры для события Click – щелчок по кнопке |
'Загрузка формы | Комментарий |
Load Form1 | Загрузка формы с именем Form1 |
Form1.Show | Вывод на экран формы Form1 |
End Sub | Окончание процедуры |
- создать форму Form1 с текстовой меткой и командной кнопкой:
Текстовая метка:
Свойство | Значение |
Caption (Заголовок) | Первая форма |
AutoSize (Автоподбор) | True |
BackColor (Цвет заливки) | Выбрать |
Font (Шрифт) | Гарнитура шрифта |
ForeColor (Цвет шрифта) | Выбрать |
Picture (Рисунок) | Выбор рисунка |
TextAlign(Выравнивание текста) | 2 - … Center |
Командная кнопка: имя – CloseButton, заголовок – Закрыть!, изменить шрифт, заливку.
Программирование кнопки:
- открыть редактор VBA,
- ввести End между операторами: