Лабораторная работа: Пользовательские функции рабочего листа Visual Basic

⚡ 👉🏻👉🏻👉🏻 ИНФОРМАЦИЯ ДОСТУПНА ЗДЕСЬ ЖМИТЕ 👈🏻👈🏻👈🏻

Пользовательские функции рабочего листа VBA
Пользователь может создать собственную функцию в стандартном модуле редактора VBA.
Для вызова редактора VBA задайте команду Сервис - Макрос - Редактор Visual Basic или нажмите комбинацию клавиш Alt+F11. В результате пользователь попадает в интегрируемую среду приложений IDE редактора Visual Basic. Она имеет стандартный вид для Windows-приложений:
панель инструментов (в данном случае Standart),
два окна Project – VBAProject и Properties.
В окне Project – VBAProject отображается реестр модулей и форм, входящих в создаваемый проект.
Модуль - это лист (не путать с рабочим листом), в котором набирается код.
Двойным щелчком на значке модуля в окне Project – VBAProject можно открыть соответствующий модуль. Значок активного модуля в окне Project – VBAProject выделяется серым цветом.
В VBA у каждого рабочего листа имеется собственный модуль. Кроме того, рабочая книга обладает своим, и если в проекте создаются пользовательские формы, то каждая из них имеет по модулю. В проекте также можно добавлять модули классов для описания создаваемых пользовательских классов (эти модули будут рассмотрены позже). Единый модуль, который нам необходим, - это стандартный модуль. Для того чтобы его добавить в проект, выберите команду Insert-Module.
Структура кода функции пользователя

В окне стандартного модуля с клавиатуры набирается текст процедуры - функции пользователя. В общем случае функция пользователя имеет следующую структуру:
Function имя_функции (список_аргументов)
имя_функции – имя создаваемой функции, придуманное пользователем;
список_аргументов – список аргументов;
инструкции – это последовательность команд, выполняемых при нахождении значения функции. В совокупности они образуют тело функции.
Важная особенность функции пользователя заключается в том, что носителем возвращаемого значения является ее имя (идентификатор имя_функции). Поэтому среди инструкций должна присутствовать, по крайней мере, одна, которая является оператором присваивания имени функции значения какого-либо выражения.
Примечание. Разрешается досрочный выход из функции по инструкции Exit Function. В теле функции может располагаться несколько инструкций Exit Function.
Пример 1. Создание функции пользователя
Рассмотрим построение простой функции, которая возвращает стоимость товара по его стоимости без НДС и значению ставки НДС.
Вызовите редактор VBA командой Сервис - Макрос - Редактор Visual Basic или комбинацией клавиш Alt+F11. Добавьте в проект стандартный модуль командой Insert - Module. В окне модуля наберите код, представленный в листинге 1.
Листинг 1. Пользовательская функция определения стоимости товара
Function Стоимость (СтоимостьБезНДС, НДС)
Стоимость = СтоимостьБезНДС * (1 + НДС / 100)
Применение пользовательской функции для решения задачи

К созданной пользовательской функции можно обратиться через Мастер функций. По умолчанию она попадает в раздел Определенные пользователем списка Категория окна Мастера функций. Используем созданную функцию для определения стоимости товара с учетом НДС при условии, что НДС равен, например, 25 %, а стоимость товара без учета НДС равна 1000.
Алгоритм применения функции пользователя
Разместите данные, необходимые для решения задачи, на рабочем листе как показано на рисунке:
В ячейку А2 введите число 1000 (стоимость без НДС), а в ячейку В2 - число 25 (НДС).
Для определения значения стоимости товара с учетом НДС переместите табличный курсор в ячейку С2 и вызовите Мастер функций (например, командой Вставка - Функция).
В окне Мастера функций в списке Категория найдите значение Определенные пользователем, затем в списке Функция выберите функцию Стоимость и подтвердите свой выбор щелчком по командной кнопке ОК.
В появившемся окне функции Стоимость в полях СтоимостьБезНДС и НДС задайте ссылки на ячейки А2 и В2 с исходными данными для этих аргументов (щелкните левой кнопкой мыши по соответствующим ячейкам, чтобы не набирать вручную с клавиатуры их адреса) и нажмите командную кнопку ОК.
Примечание. Возможность использовать в качестве имен переменных русские названия новая функция может быть легко распознана любым пользователем по ее имени, и смысл параметров функции становится понятным.
Пример 2. Создание функции пользователя
Необходимо создать функцию определения суммы заработной платы сотрудника за отработанные дни. Аргументами функции являются: величина месячного оклада сотрудника, количество рабочих дней в месяце, количество отработанных сотрудником дней. Добавьте в проект стандартный модуль командой Insert - Module. В окне модуля наберите код, представленный в листинге 2.
Листинг 2. Пользовательская функция определения суммы заработной платы сотрудника за отработанные дни
Function Зар_плата_отраб_время (Оклад, РабДни, ОтрабДни)
Зар_плата_отраб_время = Оклад / РабДни * ОтрабДни
Алгоритм применения функции пользователя
Разместите данные, необходимые для решения задачи, на рабочем листе как показано на рисунке:
Переместите табличный курсор в ячейку Е2 и вызовите Мастер функций, в окне Мастера функций в списке Категория выберите пункт Определенные пользователем, затем в списке Функция - функцию Зар_плата_отраб_время и подтвердите свой выбор щелчком по командной кнопке ОК. В появившемся окне функции Зар_плата_отраб_время в полях Оклад, РабДни и ОтрабДни задайте ссылки на ячейки В2, С2 и D2 с исходными данными для этих аргументов и нажмите командную кнопку ОК:
Пример 3. Создание функции пользователя с использованием стандартных математических функций
При создании функций пользователю могут потребоваться встроенные в VBA математические функции. Перечень таких функций представлен в таблице 1.
Таблица 1. Встроенные математические функции VBA
экспонента ех (результат возведения основания натурального логарифма в указанную степень)
случайное число между 0 и 1. Если аргумент number меньше нуля, то функция Rnd возвращает каждый раз одно и то же число. Если number больше нуля или опущено, то Rnd возвращает следующее случайное число в последовательности. Если number равняется нулю, то Rnd возвращает случайное число, полученное при предыдущем вызове этой функции. Перед вызовом функции Rnd используйте оператор Randomize.
знак числа (возвращает 1, если аргумент является положительным; -1, если аргумент - отрицательный; 0, если аргумент равен нулю)
обе функции Fix, Int отбрасывают дробную часть числа и возвращают целое значение. Различие между данными функциями состоит в том, что для отрицательного значения параметра число функция Int возвращает ближайшее отрицательное целое число, меньшее либо равное указанному, а Fix – ближайшее отрицательное целое число, большее либо равное указанному.
В новом стандартном модуле наберите код, представленный в листинге 3.
Листинг 3. Пользовательская функция с использованием встроенной математической функции
В VBA нет функции, возвращающей число П ("пи"), поэтому оно определяется через функцию Ant (арктангенс): Pi = 4 * Atn (1). Число П можно задать явно, указав достаточное число значащих цифр, но этот подход менее элегантен, чем с помощью функции Ant.
Алгоритм применения функции пользователя
Разместите данные, необходимые для решения задачи, на рабочем листе (как показано на рисунке) и с помощью Мастера функций вызовите новую функцию:
Оператор условного перехода задает выполнение определенных групп инструкций в зависимости от значения выражения.
If condition Then [statements ] [ Else elsestatements ]
Если условие condition принимает значение True, то выполняются инструкции statements, если False, то инструкции elsestatements. Ветвь Else является необязательно.
Например, если скидка (скажем 50%) применяется только к суммам больше 1000 1, то в VBA это можно записать следующим образом:

If Money > 1000 Then Discount = 0.05 Else Discount = 0
If Money > 1000 Then Discount = 0.05
Допускается также использование блочной формы синтаксиса, которая часто упрощает восприятие оператора условного перехода. Обратите внимание на то, что при блочной организации оператора условного перехода используется ключевое слова End If для обозначения окончания оператора.
Приведенный выше пример со скидкой можно записать в следующей эквивалентной блочной структуре:
Дерево условий может оказаться гораздо более сложным, чем просто проверка одного условия. В этом случае оператор If….Then….ElseIf, который позволяет проверять множественные условия. Следующий пример показывает порядок проверки условий.
Первым поверяется условие condition-1. Если оно имеет значение True, то выполняются инструкции Statements и далее работа программы продолжится со строки, которая следует за ключевым словом End If. Если условие condition-1 возвращает значение False, то проверяется условие condition-2 и т.д., пока не встретится условие, возвращающее значение True, или не встречается ключевое слово Else.
Пользовательская функция с двумя условиями
Посмотрим для функции в стандартном модуле пользовательскую функцию (листинг 3).
Листинг 4. Пользовательская функция с двумя условиями (вариант 1).
Конечно, ту же самую можно было бы запрограммировать с использованием двух операторов If. Но хотя этот код содержит меньше строк, он менее предпочтительнее (листинг 4).
Пользовательская функция с тремя условиями
Создадим в стандартном модуле пользовательскую функцию (листинг 5).для функции
Листинг 5. Пользовательская функция с двумя условиями (вариант 1).
Эту функцию можно запрограммировать с использованием оператора If.
Листинг 6. Пользовательская функция с двумя условиями (вариант 2).
функцияZ1 = (1 + x ^ (1 / 2)) / (1 + x)
В программе все идентификаторы (в частности, имена переменных и функций) имеют определенную область видимости (scope). Область видимости переменной определяет ту область кода, которая "знает" о существовании данной переменной.
Переменная, объединенная внутри функции, не может быть использована или обнаружена вне данной функции. Это означает, что пользователь может использовать то же самое имя переменной в другой функции, и VBA не перепутает их.
Таким образом, для каждой из рассмотренных выше функций нет нужды создавать свой стандартный модуль.
Их все можно расположить в одном модуле, и VBA не запутается.
Код нескольких пользовательских функций в модуле
Примечание. Редактор Visual Basic для облегчения визуального развития местоположения функций в модуле создает между ними разделительные линии. Для того чтобы эти разделительные линии отображались на экране, выберите команду Tools - Options. На экране отобразится диалоговое окно Options. На вкладке Editor в группе Window Settings установите флажок Procedure Separator.
Рассмотрим задачу: менеджеру по продажам необходимо разработать функцию, позволяющую рассчитывать комиссионные. Процент комиссионных зависит от объема проданного товара и начисляется по следующему правилу, представленному в таблице.
Построим для расчета комиссионных в стандартном модуле пользовательскую функцию (листинг 7).
Усложним задачу. Будем считать, что комиссионные зависят от ставки, занимаемой менеджером. Если он принят в постоянный штат фирмы, то комиссионные начисляются по описанному выше закону. Если же он находится на испытательном сроке, то его комиссионные составляют 75% от номинала.
Для решения этой задачи к функции Комиссионные1 надо добавить еще один аргумент – Ставка, который и идентифицирует ставку менеджера. Если менеджер находится на испытательном сроке, то значение аргумента Ставка полагается равным 0, а если он зачислен в постоянный штат, то значение аргумента Ставка полагается равным 1. Тогда, функция Комиссионные2 примет вид, представленный в листинге 8.
Листинг 8. Расчет комиссионных с учетом ставки менеджера
Function Комиссионные2(Продажи, Ставка)
1
Здесь и далее, если не указана денежная единица, то имеются в виду некие условные единицы.

Название: Пользовательские функции рабочего листа Visual Basic
Раздел: Рефераты по информатике
Тип: лабораторная работа
Добавлен 11:20:41 06 декабря 2010 Похожие работы
Просмотров: 374
Комментариев: 15
Оценило: 3 человек
Средний балл: 4.7
Оценка: неизвестно   Скачать

Срочная помощь учащимся в написании различных работ. Бесплатные корректировки! Круглосуточная поддержка! Узнай стоимость твоей работы на сайте 64362.ru
Привет студентам) если возникают трудности с любой работой (от реферата и контрольных до диплома), можете обратиться на FAST-REFERAT.RU , я там обычно заказываю, все качественно и в срок) в любом случае попробуйте, за спрос денег не берут)
Да, но только в случае крайней необходимости.

Лабораторная работа: Пользовательские функции рабочего листа Visual Basic
Сочинение На Тему Моя Будущая Профессия Учитель
Реферат На Тему Курение И Наркомания
Реферат по теме Государственный строй в России (вторая половина XVI-XVII вв.)
Теоретическая База Курсовой Работы Пример
Реферат по теме Формирование социально-психологических предпосылок к обучению детей 6 - 7 лет
Требование К Автореферату Кандидатской Диссертации
Реферат по теме Основные этапы, проблемы и представители философской мысли Беларуси
Сочинение По Произведению Полтава
Пример Характеристики С Места Практики
Доклад по теме Исследование законов Вселенной
Курсовая работа по теме Тяговый расчет трактора
Реферат: Бюффон, Жорж-Луи Леклерк де
Доклад по теме Нобелевские лауреаты– 2000
Реферат: Характеристика цивільного права за законами Хаммурапі
Контрольная работа: Физиология поведения
Доклад по теме Хламидиоз
Реферат по теме Мостовой RC-генератор синусоидальных колебаний с мостом Вина.
Реферат: Хвороба грип
Реферат: Социальная защищенность различных слоев населения в России. Скачать бесплатно и без регистрации
Красота Неба Эссе
Контрольная работа: Понятие органа дознания
Дипломная работа: Постановка задачи синтеза оптимальных алгоритмов приема сигналов на фоне помех
Курсовая работа: Основы проектирования автомобильных дорог