Панели инструментов

⇐ Предыдущая 12

Стандартная панель инструментов Standard, которая по умолчанию находится под строкой меню, — это одна из шести панелей инструментов, используемых в VBA (строка меню тоже считается панелью инструментов). Панели инструментов VBE работают, как и в Excel: вы можете задавать специальные настройки для панелей инструментов, перемещать их, отображать другие панели инструментов и т.д. Для управления панелями инструментов VBA используется команда View ToolbarsàCustomize (ВидàПанели инструментовàНастройка).

à Окно Project Explorer

В окне Project Explorer отображается диаграмма-дерево, состоящая из всех открытых в данный момент в Excel рабочих книг (включая дополнительные элементы и скрытые рабочие книги). Каждая рабочая книга известна как проект.

Окно кода

Окно кода (которое иногда называют Module) содержит код VBA. Для каждого элемента проекта представлено собственное окно кода. Чтобы просмотреть код объекта, дважды щелкните мышью на этом объекте в окне Project Explorer. Например, чтобы просмотреть код объекта Лист1, дважды щелкните на элементе Лист1 в окне Project Explorer. Если вы не создавали для него VBА-код, это открывшееся окно будет пустым.

Существует еще один способ просмотреть код объекта — выделите этот объект в окне Project Explorer, а затем щелкните на кнопке View Code (Просмотр кода) на панели инструментов вверху окна Project Explorer.

Окно Immediate

Окно Immediate предназначено для непосредственного выполнения операторов VBA, тестирования операторов и отладки кода. Это окно может отображаться и скрываться. Если окно Immediate в данный момент не отображается на экране, нажмите <Ctrl+G>. Чтобы закрыть окно Immediate, щелкните на кнопке закрытия в его строке заголовка (или щелкните правой кнопкой мыши в любом месте окна и выберите Hide из контекстного меню).

Добавление элементов VBA

Редактор VBA работает со следующими объектами:

Ø Procedure …

Процедура – это обособленная часть программы, выполняющая не слишком сложное действие, которое является типичным для данной программы.

Для добавления Процедуры используется команда InsertàProcedure…

Ø UserForm

Добавление пользовательской формы осуществляется при помощи команды Insertà UserForm

Ø Module

Чтобы добавить в проект новый модуль VBA, выделите название проекта в окне Project Explorer и выберите команду Insert à Module (ВставкаàМодуль). Также можно щелкнуть правой кнопкой мыши на названии проекта и выбрать команду Insert à Module в контекстном меню.

Ø Class Module

Работа с окнами кода

Каждому объекту в проекте соответствует свое окно кода. Такими объектами могут быть:

• сама рабочая книга (ЭтаКнига в окне Project Explorer);

• рабочий лист или лист диаграмм рабочей книги (например, Лист1 или Диаграмма1 в окне Project);

• модуль VBA;

• модуль класса (специальный тип модуля, позволяющий создавать новые классы объектов);

• форма UserForm.

Линейное программирование.

Задание 1.

Найти значение функции:

при любом заданном х

Для нашей задачи мы составляем следующий алгоритм:

è Откройте приложение MS Excel.

è Выполните команду СервисàМакросàРедактор Visual Basic
или нажмите < Alt+F11 >.

è Добавьте форму (команда Insertà UserForm)

è Для изменения размеров формы используйте указатель мыши помещённый в правый нижний угол окна Формы(UserForm)

è Разработайте пользовательский интерфейс, расположив на форме с помощью панели инструментов управления ( ViewàToolBox ), следующие объекты управления: Label (Метка), TextBox (Текстовое поле), CommandButton (Командная кнопка).

è В окне Properties (Свойства) для каждого объекта управления установите свойства:

Элемент управления	Свойства	Значения
UserForm	Caption	Линейное программирование
Label1	Caption	Вычисление значения функции y=sin5x+cos3x
Label2	Caption	X=
Label3	Caption	Y=
TextBox1	Name	txtArgument
TextBox2	Name	txtFunction
CommadButton1	Name	cmdRun
Caption	Вычисление
CommadButton2	Name	cmdClear
Caption	Очистка

è Для перехода в окно программирования нажмите правую кнопку мыши на объекте CommandButton и в появившимся контекстом меню выбрать команду View Code

è Введите следующий код программы:

Private Sub cmdRun_Click()

Dim Х As Single

Dim Y As Single

Х=Val(txtArgument.Text)

Y = Sin(5 * x) + Cos(3 * x)

txtFunction.Text = Str(Y)

End Sub