Шаг 15 - Пользовательские формы

Создавайте новую книгу. Запускайте редактор VBA, как в прошлый раз. Наводим курсор на Microsoft Excel Обьекты, правую кнопку мыши, вставить UserForm. Да смотрите сами ниже. Чего это Я.

15_1.gif (7579 b)

У Вас появится диалоговое окно (форма), панель ниструментов, и окно свойств. В окне свойств нас интересует совйство Caption, которое позволяет нам изменить заголовок окна. Поменяйте его на осмысленное имя, например, первая форма :-). Разместите на форме кнопки. Выбираете инструмент кнопка. Незнаете какой он ? Подводите к каждому и задержите мышку, Вам подскажут. Нам надо две кнопки. Одна с именем "тест", а вторая с именем "выход". Имя у кнопок так же меняется в Caption. Все должно быть вот так.

15_2.gif (2367 b)

Пора добавить к кнопкам код. Это просто. Двойной шелчок на кнопке и вы попадете в код вызываемый при нажатии кнопки. Давайте для кнопки Test.

Private Sub CommandButton1_Click()
	MsgBox ("Test Button Press")
End Sub

И для второй:

Private Sub CommandButton2_Click()
	Unload Me
End Sub

Unload Me выгружает форму из памяти. А вот теперь нам нужно создать макрос для загрузки. Создавайте масрос с именем FormsRun или другим. Код ниже.

Sub FormsRun()
	UserForm1.Show
End Sub

Вот теперь запустите макрос. Появится диалоговое окно. Нажмите кнопку Test, появится сообщение, нажмите кнопку Выход, окно диалога закроется.


Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 03.12.99