90

Microsoft Excel 2010. Уровень 2. Расширенные возможности

3.Ввести текст из литературного источника или скопировать, если он находится в электронном виде.

Запустить макрос можно всеми известными способами.

ПРАКТИКУМ:

В открытом файле 05 Макросы выполнить вставку готового алгоритма макроса.

Открыть текстовый файл Удаление пустых строк и столбцов, скопировать весь текст (алгоритмы макросов). Вернуться в редакторе Visual Basic, создать новый модуль и вставить содержимое буфера обмена. Выйти из редактора Visual Basic (закрыть), перейти на лист Задание3 и через окно Макрос запустить последовательно макросы: УдалениеПустыхСтрок и УдалениеПустыхСтолбцов.

Пользовательские функции с использованием VBA

Создание пользовательской функции с использованием VBA

1.На вкладке Разработчик [Developer], в группе Код [Code], нажать кнопку Visual Basic.

2.В редакторе Visual Basic создать новый модуль, выбрав в меню Insert команду Module.

3.Выбрав в меню Insert команду Procedure.

Ввести имя функции в поле Name. В именах нельзя использовать пробелы, имя должно быть уникальным. Первый символ имени – буква, следующие – буквы, цифры и _.

В группе Type выбрать Function.

В группе Scope выбрать Public.

ОК.

4.Внести данные в шаблон:

Аргументы функции перечисляются внутри круглых скобок, через запятую.

Разделитель целой и дробной части в числа используется только точка.

До строки End Function необходимо присвоить Имени функции значение:

Имя_Функии = Имя_аргумента_1+Имя_аргумента_2 и т.д.

Например, функция ИтогоRUB рассчитывает, какова будет сумма в рублях с учетом налога 13% и при условии, что исходные данные: Оклад в долларах (ОкладUSD), Премия в евро (ПремияEUR), курс доллара равен 30,55 и курс евро – 40,77.

91

Microsoft Excel 2010. Уровень 2. Расширенные возможности

Использование пользовательской функции в расчетах

1.Выделить ячейку для результата на листе Excel.

2.На вкладке Формулы [Formulas], нажать Вставить функцию [Insert Function].

3.Выбрать категорию Определенные пользователем [User Defined] и найти в ней свою функцию.

4.Заполнить аргументы функции, ОК.

ПРАКТИКУМ:

В открытом файле 05 Макросы создать пользовательскую функцию ИтогоRUB, которая позволит рассчитывать Сумму в рублях с учетом13% налога, учитывая, что Оклад в долларах (ОкладUSD), Премия в евро (ПремияEUR), курс доллара равен 30,55 и курс евро – 40,77.

Открыть лист Функции VBA1, выделить ячейку D2 и с помощью пользовательской функции ИтогоRUB сделать расчет.

Создать пользовательскую функцию НДС, вычисляющую 18% от стоимости. Применить функцию для вычисления НДС в ячейках G2:G11 на листе Функции VBA2. (подсказка: чтобы вычислить 18% НДС надо сумму умножить на 18% и разделить на 118%)