VBA_ЛБ_13v2

Листинг 40

Function Балл(Оценка As String) As Double

'Возвращает числовой эквивалент оценки, заданной текстом

Dim stVar as String * 3, dblVar As Double stVar = LCase(Оценка)

Select Case stVar Case "отл"

dblVar = 5 Case "хор"

dblVar = 4 Case "удо"

dblVar = 3 Case "неу"

dblVar = 2 Case Else

dblVar = -1

Балл = dblVar End Function

Сначала разберём действия в функции. В инструкции

stVar = LCase(Оценка)

функция LCase переводит все буквы аргумента Оценка в нижний регистр (т.е. делает все буквы строчными), а в локальную переменную stVar пересылаются первые три буквы, потому что stVar объявлена длиной в три символа.

Инструкция Select Case – переключатель на множество вариантов, определяемых значением переменной stVar: "отл", "хор", "удо", "неу". В каждом варианте переменной dblVar присваивается соответствующее численное значение. Исполняется один из возможных вариантов, после чего управление передаётся на инструкцию, следующую за End Select, и имени функции присваивается значение переменной dblVar. Кстати, переменная dblVar и имя функции Балл объявлены типа Double, а не Integer, потому что все числа в ячейках электронных таблиц имеют тип Double.

Теперь обратим внимание на формальные признаки. В заголовке функции нет ключевого слова Private. Функция имеет формальный аргумент типа String, штатный для ячеек. Возвращаемое значение имеет тип Double, тоже штатный тип для ячеек. В теле функции имени Балл присваивается значение. Всем необходимым формальным требованиям функция Балл удовлетворяет (если находится в модуле общего назначения).

Разместим функцию Балл в стандартном модуле VBA, перейдём в Excel и запустим Мастера функций. В категории "Определенные пользователем" видим функцию Балл (рис. 10) и можем ей воспользоваться.

К функции необходимо добавить небольшую справку, иначе функцией сможет пользоваться только разработчик. В окне Excel нужно сделать следующее:

Рис. 10. Функция пользователя находится в категории "Определенные пользователем"

Открыть диалоговое окно "Макрос".

В поле "Имя макроса" ввести с клавиатуры или вставить из буфера обмена имя функции (рис. 11).

Щелкнуть по кнопке "Параметры…", которая стала доступной.

В окне " Параметры макроса" в поле "Описание" ввести пояснение к функции

ищелкнуть по кнопке ОК.

В диалоговом окне "Макрос" щелкнуть по кнопке "Отмена".

Если теперь обратиться к функции с помощью Мастера функций, то увидим в окне Мастера введённое пояснение (рис. 12).

Рис. 11. Ввод пояснения к функции.

Рис. 12. Пояснение к функции Балл в окне Мастера функций.

Рассмотрим другой пример разработки функции рабочего листа. В составе математических функций Excel есть функция СУММПРОИЗВ (английское название SUMPRODUCT), вычисляющая скалярное произведение векторов.

Скалярное произведение – это сумма произведений соответствующих компонентов векторов. Если заданы вектор А с координатами {a1, a2, …, an} и вектор В с координатами {b1, b2, …, bn}, то их скалярное произведение равно

n

( A B) ai bi

i 1

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

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

В работе VBA4 рассматривался вопрос о присвоении массиву VBA (внутреннему массиву программы) значений объекта Selection. Отмечалось, в частности, что массив точно воспроизводит форму диапазона. Диапазону в одной строке соответствует массив из одной строки и множества столбцов, диапазону из одного столбца соответствует массив из одного столбца и множества строк.

Пусть разрабатываемая функция имеет такой заголовок:

Function ScalarProduct(ArgA As Range, _

ArgB As Range) As Double

Программа должна распознать, как расположены объекты ArgA и ArgB. Здесь могут помочь счётчики числа строк и столбцов в диапазонах – свойства

Rows.Count и Columns.Count. Очевидно, если ArgA.Rows.Count = 1 и

ArgA.Columns.Count > 1, то диапазон ArgA расположен по строке, а если

ArgA.Rows.Count > 1 и ArgA.Columns.Count = 1, то диапазон ArgA расположен по столбцу. Требуется различать следующие 4 варианта: строка – строка, строка – столбец, столбец – строка и столбец – столбец. Используем для этого распространённый приём: каждое различаемое состояние отобразим численным признаком, а сумма признаков отобразит тогда сочетание состояний. Пусть рА

– признак состояния аргумента ArgA, рВ – признак состояния аргумента ArgB. В табл. 9 показаны численные значения признаков рА и рВ и их суммы. Видно, что сумма (рА + рВ) однозначно определяет сочетание состояний диапазонов

ArgA и ArgB.

Вырисовывается следующий план действий в функции ScalarProduct:

переслать значения из диапазонов во внутренние массивы;

вычислить признаки рА и рВ, дать им значения согласно табл. 9;

в инструкции Select Case для каждого значения (рА + рВ) организовать цикл для вычисления суммы произведений компонентов;

присвоить имени функции значение вычисленной суммы.

Реализуем план в четыре этапа.

Этап 1. Пересылка значений из диапазонов во внутренние массивы

Этап 2. Вычисление признаков рА и рВ

'Количество строк и столбцов в диапазонах

RowsA = ArgA.Rows.Count

RowsB = ArgB.Rows.Count ColsA = ArgA.Columns.Count ColsB = ArgB.Columns.Count 'Проверка диапазона ArgA

If RowsA = 1 And ColsA > 1 Then pA = 1 'Строка If RowsA > 1 And ColsA = 1 Then pA = 2 'Столбец Проверка диапазона ArgB

If RowsB = 1 And ColsB > 1 Then pB = 2 'Строка If RowsB > 1 And ColsB = 1 Then pB = 4 'Столбец

Этап 3. Вычисление суммы произведений компонентов

Select Case pA + pB

Case 3 'ArgA – строка, ArgB – строка

For k = 1 To ColsA

Next k

End Select

Этап 4. Присвоение значения имени функции

ScalarProduct = Prod

О том, как добавить комментарий к функции, описано раньше при разработке функции Балл.

В листинге 41 приведён полный текст функции ScalarProduct.

Листинг 41

ScalarProduct = Prod

Function ScalarProduct(ArgA As Range, _

'Пересылка значений из диапазонов во внутренние массивы

VecA = ArgA

VecB = ArgB

'Вычисление признаков рА и рВ 'Количество строк и столбцов в диапазонах

RowsA = ArgA.Rows.Count

RowsB = ArgB.Rows.Count ColsA = ArgA.Columns.Count ColsB = ArgB.Columns.Count

'Проверка диапазона ArgA

If RowsA = 1 And ColsA > 1 Then pA = 1 'Строка If RowsA > 1 And ColsA = 1 Then pA = 2 'Столбец

Next k

End Select

ScalarProduct = Prod

End Function

Окно Мастера функций при вызове функции ScalarProduct в формуле ячейки рабочего листа показано на рис. 13. Диапазон ArgA выделен по столбцу D, диапазон ArgB – по строке 6, функция ScalarProduct выполняет вычисления и получает результат.

Рис. 13. Окно Мастера функций при обращении к функции ScalarProduct.

Рабочее задание Часть 1. Разработка и опробование функции "Балл"

Р1. Проанализируйте разработку функции "Балл", письменно ответьте на следующие вопросы:

а) где может или должен размещаться исходный текст функции пользователя;

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

д) как обратиться к функции пользователя в формуле рабочего листа.

Р2. В отдельном модуле VBA наберите функцию "Балл", проверьте на ошибки компиляции.

Р3. Создайте на рабочем листе ведомость успеваемости с текстовыми оценками и проверьте работу функции "Балл".

Часть 2. Разработка и опробование функции ScalarProduct

Р4. Проанализируйте разработку функции ScalarProduct, письменно ответьте на следующие вопросы:

а) что такое скалярное произведение, приведите примеры из жизненной практики;

б) какой тип данных должен иметь формальный аргумент, чтобы функция могла принять диапазон ячеек;

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

г) почему в функции ScalarProduct важно определить не только размещение диапазона по столбцу или строке, но и сочетание размещений двух диапазонов (столбец-строка и др.);

д) какой приём используется в функции ScalarProduct для определения сочетания размещений двух диапазонов.

Р5. На одном из рабочих листов создайте таблицу по следующему образцу:

Наименования, цены и количества составить самостоятельно, в таблице сделайте 9 строк. Графу цен скопируйте в отдельную строку (команда Правка | Специальная вставка | транспонировать).

Р6. Проверьте действие встроенной функции СУММПРОИЗВ для данных "Цена" и "Количество", когда цены размещаются по столбцу и по строке.

Р7. В отдельном модуле VBA наберите функцию ScalarProduct, проверьте на ошибки компиляции.

Р8. Повторите пункт Р6 для функции ScalarProduct. Результаты запишите в рабочий журнал. Обратите внимание, что функция ScalarProduct выдаёт ошибку, если диапазоны не равновеликие.

Часть 3. Разработка и опробование функций, работающих с диапазонами ячеек

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

Р10. Разработайте функцию, которая принимает диапазон ячеек с текстовыми данными и возвращает общее количество символов в ячейках диапазона.

Р11. Разработайте функцию, которая принимает диапазон ячеек с текстовыми данными и выводит в соседний столбец длину соответствующей строки. Например, если тексты находятся в столбце В, то в ячейку С4 записать длину строки, находящейся в В4.

Ограничение и рекомендация. В программе допускается только один цикл и этот цикл должен быть For Each…Next. Диапазон вывода начинается в ячейке, в которую вводится формула.

Контрольные вопросы к работе VBA14

К1. Объясните, отличается ли функция VBA, предназначенная для использования в формулах ячеек рабочего листа, от функций VBA, используемых в проекте VBA.

К2. Какие требования являются обязательными для функции VBA, предназначенная для использования в формулах ячеек рабочего листа?

К3. Объясните, можно ли сделать подсказку пользователю функции рабочего листа, ведь он не видит текста функции. Если да, то как это сделать?

К4. Объясните, нужно ли делать специальный интерфейс, например, в виде командной кнопки на рабочем листе, для функции пользователя, предназначенная для использования в формулах рабочего листа.

К5. Сколько формальных аргументов может иметь функция рабочего листа? Есть ли здесь какие-либо ограничения?

К6. Можно ли в функцию рабочего листа передать диапазон ячеек? Если да, то как это сделать?

К7. Функция VBA "IsEmpty" возвращает True, если ячейка пустая. Составьте функцию рабочего листа, которая принимает диапазон ячеек и возвращает количество пустых ячеек в этом диапазоне.

К8. Объясните, как функция рабочего листа может узнать количество ячеек в диапазоне, заданном формальным аргументов.

Рекомендуемая литература

1.Уокенбах Дж. Microsoft Office Excel 2007: профессиональное программирование на VBA.: Пер. с англ. – М.: ООО "И.Д. Вильямс", 2008. – 928 с.

2.Green, J., …[et al.]: Excel 2007 VBA Programmer's Reference. /Green, J., Bullen, St., Bovey, R., Alexander, M./ – Wiley Publishing, Inc., 2007. – 1179 s.