Технология работы. 3. Проверьте, чтобы на экране появилось окно проекта и окно свойств

1. Запустите Excel.

2. Загрузите VBA.

3. Проверьте, чтобы на экране появилось окно проекта и окно свойств.

4. Выполните команду «Вставить форму» или Insert - UserForm. Форму можно увеличить стандартным способом, ухватившись за правый нижний угол и растягивая ее.

5. Сделайте появившуюся форму UserForm1 активной и установите значения свойств данного объекта:

Свойство	Значение
Caption (заголовок)	Первое задание
Height (высота)
Width (ширина)
SpecialEffect (контур формы)	2 (на усмотрение 0-6)
StartUpPosition (месторасположение на экране при выводе)	2- CenterScreen

6. Добавьте в форму средства управления. При разработке потребуется всего два инструмента: Label (надпись) и CommandButton (кнопка управления) с панели элементов. Чтобы добавить в программу средство управления надо:

а) сделать активной форму, в которую вы хотите добавить средство управления;

б) выбрать требуемый элемент, и указателем мыши в форме вычертить рамку элемента.

Изменить, если требуется положение и размер элемента.

7. Для вывода текущей даты и времени примените элемент управления Label. Установите следующие значения свойств объекта Label1:

Свойство	Значение
Caption (заголовок)	Дата и время
Font (шрифт)	Verdana, жирный курсив, 24 (можно на свое усмотрение)
Width (ширина)
SpecialEffect (контур поля)	3 (на усмотрение 0-6)
TextAlign (расположение текста в поле)	2- fmTextAlignCenter

8. Добавьте в форме командую кнопку для запуска программы, применив элемент управления CommandButton. Установите значения свойств объекта CommandButton1:

Свойство	Значение
Caption (заголовок)	Нажми
Font (шрифт)	Verdana, жирный курсив, 16 (можно на свое усмотрение)

9. Добавьте в форме командую кнопку для закрытия формы, применив элемент правления CommandButton. Установите значения свойств объекта CommandButton2:

Свойство	Значение
Caption (заголовок)	Выход
Font (шрифт)	Tahoma, обычный, 16 (можно на свое усмотрение)

В результате получится форма следующего вида

Перейдем к 3-ему шагу создания проекта - написание текста программы.

10. Перед написанием программы проверим работоспособность нашей формы. Для вывода формы на экран выполним команду Run - Run Sub/UserForm или нажмем клавишу F5. На фоне листа Excel появится созданная нами форма, но, нажав на кнопки «Нажми» и «Выход» ничего не происходит, т.к. мы не запрограммировали отклик на событие (нажатие кнопки). Закроем форму и перейдем в редактор VBA.

11. В форме дважды щелкните на кнопке «Нажми», чтобы вывести заготовку программы, связанную с командной кнопкой. Программа начинается с заголовка Private Sub (локальная процедура), и заканчивается предложением End Sub (конец процедуры). Между этими предложениями вставляется текст программы.

Для каждого события, которое может произойти с объектом (в данном случае с командой кнопкой, предусмотрена соответствующая событийная процедура). Вот некоторые события, которые могут произойти с кнопкой управления:

- Click - пользователь щелкнул на кнопке управления;

- MouseMove - пользователь перемещает указатель мыши на кнопку;

- MouseDown - указатель мыши показывает на кнопку и пользователь нажимает левую кнопку мыши;

- MouseUp - указатель мыши показывает на кнопку и пользователь отпускает левую кнопку мыши.

Мы должны щелкнуть по кнопке мыши, чтобы появились дата и время, поэтому выберем событие Click. Если вы хотите, чтобы происходило какое-либо действие, когда вы просто указываете на кнопку, вы должны вставить программный текст в процедуру MouseMove.

12. Появится заготовка программы. Вставьте одну строку программы -

Label1. Caption = Now

В этой строке:

- Label1- это объект.

- Caption - это свойство.

- Now - это значение свойства.

Текст программы:

Private Sub CommandButtonl_Click()

Label1.Caption = Now

End Sub

Вот и вся программа, которая состоит всего из одного оператора Now, возвращающего текущее время и дату. Таким образом, когда эта строка программы выполняется, на надписи появится текущая дата и время.

Выведите форму на экран, нажав клавишу F5, и проверьте работоспособность кнопки «Нажми».

13. Теперь запрограммируем кнопку «Выход». Перейдем в редактор VBA и дважды щелкнем по кнопке «Выход» в форме. Появится заготовка программы. Вставим одну строку программы – UserForm1.Hide

Вэтой строке:

- UserForm1 - это объект.

- Hide - это метод.

Текст программы;

Private Sub CommandButton2_Click()

UserForml.Hide

End Sub

Кроме запуска программы по нажатию клавиши <F5>, существует еще один способ вывода формы на экран. Для этого:

1. Перейдите в приложение Excel на Лист1.

2. На панели элементов управления выберите инструмент Кнопка и нарисуйте кнопку на листе Excel.

3. Вызовите свойства этого элемента, нажав на панели элементов управления кнопку Свойства

4. Установите значения свойств объекта CommandButton1:

Свойство	Значение
Caption (заголовок)	Часы
Font (шрифт)	Tahoma, жирный, 18 (можно на свое усмотрение)
BackColor (цвет фона кнопки)	Любой на закладке Pallete
ForeColor (цвет букв на кнопке)	Любой на закладке Pallete

5. Запрограммируйте кнопку Часы. Для этого вызовите заготовку программы, нажав на панели элементов управления кнопку «Исходный текст», не забыв при этом выделить кнопку.

6. Вставьте одну строку программы – UserForm1.Show,. что означает показать форму UserForm1 на экране.

В этой строке:

• UserForm1 - это объект.

• Show - это метод.

7. Перейдите на лист приложения Excel и отключите режим конструктора на панели элементов управления.

8. Запустите программу.

9. Сохраните файл с именем «Часы».

III. Выполните самостоятельно задания.

Во всех заданиях используются всего 3 элемента управления Надпись (Label), Кнопка (CommandButton) и Рисунок (Image). Внешний вид элемента управления Label достигается с помощью свойств.