«Создание пользовательской формы "Расчет скорости" в редакторе VBA»
Цель урока: изучение технологии по созданию пользовательской формы; вставки надписей, полей, кнопок и картинки в пользовательскую форму; программирование кнопок пользовательской формы; вызов пользовательской формы на рабочий стол редактора Excel; проверка работы пользовательской формы.
1. Открыть или создать файл для работы;
2. Перейти в редактор Visual Basic (Сервис > Макрос > редактор Visual Basic);
3. Создать пользовательскую форму (Insert > UserForm);
(Рис.1)
4. На панели элементов выбрать пиктограмму “Label” - “Надпись”;
(Рис.2)
5. В пользовательской форме нарисовать окно для надписи.
6. В окне сделать надпись “Расстояние”, для этого:
- щелкнуть правой кнопкой по окну “Label1” и выбрать команду “Properties”;
- в появившемся окне свойств выбрать:
(Рис.3)
- свойство “Caption”, в котором вместо слова “Label1” написать слово “Расстояние”;
-свойство “TextAlign”, в котором поставить цифру 2 – выравнивание по центру.
7. Аналогичным образом сделать еще две надписи: “Время” и “Скорость”.
|
|
8. Подключить пиктограмму “TextBox” - “Поле” и под каждой надписью нарисовать окно.
(Рис.4)
9. Подключить пиктограмму “CommandButton” - “Кнопка”.
(Рис.5)
10. Нарисовать в пользовательской форме 2 кнопки и подписать их “Выход из формы” и “Расчет Скорости” с помощью свойств “Caption” и “TextAlign”.
11. Свернуть окно редактора Visual Basic.
12. Войти в редактор Paint и нарисовать машинку в верхнем левом углу рабочего листа.
13. Сохранить данный рисунок на Рабочем столе под именем “Машина”.
14. Развернуть Пользовательскую форму.
15. Нажать пиктограмму “Image”.
(Рис.6)
16. Нарисовать окно в пользовательской форме.
17. В появившемся окне “Properties” выбрать:
- свойство “Picture” и щелкните по слову “None”;
- в появившемся окне “LoadPicture” войти на Рабочий стол, найти
свой файл “Машина” и выполнить команду “Открыть”;
- в свойстве “PictureAlignment” поставить “0”, должна появиться картинка
Вашей машины.
18. В получившейся пользовательской форме запрограммируйте кнопку “CommandButton1” для этого:
- два раза щелкните по кнопке “Выход из формы”;
- написать оператор UserForm1.Hide (закрыть пользовательскую форму №1);
(Рис.7)
19. Запрограммировать кнопку “CommandButton2” - “Расчет скорости” для этого:
- два раза щелкнуть по кнопке;
- написать программу:
S = Val(TextBox1) - считываем значение из окошка TextBox1
T = Val(TextBox2) - считываем значение из окошка TextBox2
V = S / T - производим вычисление скорости
TextBox3 = Str(V) - полученное значение записываем в окошко TextBox3
(Рис.8)
20. Перейти на рабочий лист редактора Excel.
21. Подключить панель элементов (Вид > Панели инструментов > Панель элементов).
|
|
22. Начертить кнопку и подписать ее “Вызов формы”.
23. Запрограммировать данную кнопку, для этого:
? два раза щелкнуть по кнопке левой кнопкой мыши;
? написать фразу – UserForm1.Show (Показать пользовательскую форму №1)
(Рис.9)
24. На панели элементов отключить Режим конструктора.
(Рис.10)
25. Вызвать получившуюся форму и проверить работу всех кнопок.