www.ПЕРВЫЕ ШАГИ.ru :: Шаг 15 - Пользовательские формы

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

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

Пора добавить к кнопкам код. Это просто. Двойной шелчок на кнопке и вы попадете в код вызываемый при нажатии кнопки. Давайте для кнопки 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, появится сообщение, нажмите кнопку Выход, окно диалога закроется.