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

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

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

2. На панели элементов управления (Вид - Панель инструментов - Элементы управления) выберите инструмент CommandButton и нарисуйте кнопку на листе Excel.

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

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

5. Запрограммируйте кнопку “Функции VBA”. Для этого вызовите заготовку программы, нажав на панели элементов управления кнопку “Исходный текст” , не забыв перед этим выделить кнопку “CommandButton1”.

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

В этой строке: UserForm1 — объект, Show — метод.

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

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

9. Сохраните свою работу.

Практическая работа 3_2 “Вычисления”

Задание: спроектировать форму для вычисления умножения, сложения, вычитания и деления двух чисел, заданных датчиком случайных чисел.

Порядок работы:

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

2. Загрузите VBA (Редактор Visual Basic).

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

4. Выполните команду Вставить форму или Insert | UserForm,назовите форму “Вычисления” и вызовите панель “Toolbox”.

5. Спроектируйте в форме 4 командные кнопки “CommandButton” и пять надписей “Label”.

Значения свойств объектов установите самостоятельно.

У вас получится:

6. В форме дважды щелкните на кнопке “Х”, чтобы вывести заготовку программы.

Программа начинается с заголовка Private Sub и заканчивается предложением End Sub (конец процедуры). Между этими предложениями запишем текст программы:

7. Аналогично для кнопок «сложение», «вычитание», «деление» и “Выход” программа будет следующая:

8. Проверьте работоспособность формы с помощью команды “Run | Run Sub/UserForm” (“Выполнить | Выполнить процедуру/экранную форму”). Также можно выполнить проверку с помощью кнопки в меню или нажав на клавишу .

9. На листе Excel создайте кнопку вызова формы и назовите ее “Вычисления”, переименуйте Лист1 в лист “Вычисления”.

10. Вызовите “Панель Элементов управления” и нарисуйте с ее помощью кнопку.

11. Выделив кнопку, вызовите через правую кнопку мыши “Свойства” и отформатируйте выделенную кнопку.

12. Выделите кнопку “Вычисления”, нажмите на панели элементов управления кнопку “Исходный текст” .

13. Запишите программу вызова формы: UserForm1.Show.

14. Сохраните свою работу.

Дата добавления: 2014-01-07