2 Разработка программного кода

2.1 Структура проекта vba

Цель: Научить студентов разрабатывать в проекте VBA программный код с помощью пользовательских подпрограмм-функций и подпрограмм-процедур.

Проект представляет собой реестр файлов, которые необходимы для генерации исполняемого файла приложения. Реестр содержится в файле проекта с расширением *.xls.

Проект состоит из иерархической структуры файлов форм и модулей.

Формы служат для создания диалоговых окон приложений VBA. Редактор форм является основным инструментом визуального программирования.

Форма – это основа графического интерфейса Windows-приложения.

Модуль – это файл, содержащий программный код, не связанный ни с одной формой или элементом управления.

Модули содержат только программные инструкции, отображенные в окне «Module1(Code)». В них декларируются переменные, константы, размещаются коды пользовательских функции и процедур.

Модули создаются для каждого рабочего листа, для всей книги, для каждой пользовательской формы, класса, макроса. Различают стандартные модули и модули объектов.

Стандартные модули содержат макросы. Они добавляются в проект командой меню Вставка/Модуль.

К модулям объектов относятся модули рабочих книг, листов, форм и классов. Формы добавляются в проект командой меню Вставка/UserForm, а модули классов – командой Вставка/Модуль классов.

2.2 Пользовательские подпрограммы-функции

Функция – это специальным образом оформленный блок программного кода, который выполняет действия в пределах своего блока и возвращает значение.

Пользовательские функции строятся в стандартном модуле редактора VBA.

Процедура типа Function представляет собой группу операторов, содержащихся между оператором Function и оператором End Function в стандартном модуле. Операторы в функции обрабатывают текст, управляют входными данными или вычисляют значения. Функция вызывается в программу помещением имени функции в программный оператор с указанием требуемых аргументов (данных, обрабатываемых функцией).

Структура кода функции пользователя.

Функция состоит из трех частей: заголовка, тела функции, конца функции.

1 Заголовок содержит:

- зарезервированное слово Function;

- идентификатор (имя) функции,

- заключенный в круглые скобки список аргументов и тип возвращаемого функцией значения.

2 Тело функции состоит из группы операторов

3 Конец функции представлен оператором End Function

Синтаксис:

[Private | Public] Function ИмяФункции (СписокПараметров) As Тип

Тело функции (строки кода)

ИмяФункции = ВозвращаемоеЗначение

End Function

где

[Private | Public] – необязательные ключевые слова, определяющие

область видимости функции;

Function – ключевое слово, указывающее на то, что это функция;

ИмяФункции – имя функции (задается самим пользователем);

СписокПараметров – список формальных параметров, который может

отсутствовать;

As – (как) ключевое слово, предваряющее значение типа

данных;

Тип – тип данных возвращаемого значения;

ВозвращаемоеЗначение – значение, возвращаемое функцией;

End Function – ключевые слова, указывающие на окончание

блока функции.

Особенность:

1) функция вычисляет единственное результирующее значение простого типа;

2) носителем возвращаемого значения является ее имя, т.е. идентификатор Имя_функции. Поэтому в теле функции должен присутствовать хотя бы один оператор присваивания, в левой части которого стоит имя описываемой функции, причем хотя бы один оператор такого вида должен быть выполнен. Этот оператор присваивания и определяет значение, вычисляемое с помощью функции.

Пример 1.

Постановка задачи. Построить функцию пользователя, вычисляющую значение функции в заданных точках.

Технология выполнения задания:

1 Исходные данные:

a, b, x  R

Результат: z  R.

2 Набрать в стандартном модуле проекта следующую пользовательскую функцию:

Function z(a, b, x)

z1 = Abs(Log(x) / Log(10)) - Sqr(Abs(Cos(x) - Exp(x)))

z2 = Abs(Tan(Abs(a * x - b)) / Sin(Abs(x)) + b)

z3 = Atn(z2 / Sqr(Abs(1 - z2 ^ 2)))

z = Log(Abs(z1 * z3))

End Function

По умолчанию она попадает в раздел Определенные пользователем списка Категория окна Мастер функций.

3 Вычислить:

- перейти из окна VBA в окно MS Excel;

- выбрать ячейку А1 и ввести число 0,126;

- выбрать ячейку А2 и ввести число 0,842;

- выбрать ячейку А3 и ввести число 0,34;

- выделить ячейку А4, в которой найти значение функции;

- выбрать команду Вставка→Функция;

- в первом окне мастера функций в списке Категория найти значение Определенные пользователем;

- в списке Функция выбрать функцию z и нажать кнопку ОК;

- во втором окне Мастера функций в поле А ввести ссылку на ячейку А1, в поле В ввести ссылку на ячейку А2, в поле Х ввести ссылку на ячейку А3 и нажать кнопку ОК.

Пример 2.

Поставка задачи. Построить функцию, которая возвращает стоимость товара по его стоимости без НДС и значению ставки НДС.

Технология выполнения задания:

1 Исходные данные:

СтоимостьБезНДС, НДС  Z

Стоимость  Z.

2 Набрать в стандартном модуле проекта следующую пользовательскую функцию:

Function Стоимость (СтоимостьБезНДС, НДС)

Стоимость = СтоимостьБезНДС * (1 + НДС / 100)

End Function

3 Вычислить, например, стоимость товара с учетом НДС при условии, что НДС равен 25%, а стоимость товара без учета НДС равна 1000. Для этого:

- выбрать ячейку А2 и ввести число 1000 (стоимость без НДС);

- выбрать ячейку В2 и ввести число 25 (НДС);

- выделить ячейку С2, в которой найдем значение функции;

- выбрать команду Вставка→Функция;

- в первом окне мастера функций в списке Категория найти значение Определенные пользователем

- в списке Функция выбрать функцию стоимость и нажать кнопку ОК.

4 Во втором окне Мастера функций в поле СтоимостьБезНДС ввести ссылку на ячейку А2, а в поле НДС – ссылку на ячейку В2 и нажать кнопку ОК.