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

Pi = Atn (1) * 4

F = Cos (Pi * x) ^ 2

End Function

В VBA нет функции, возвращающей число П ("пи"), поэтому оно определяется через функцию Ant (арктангенс): Pi = 4 * Atn (1). Число П можно задать явно, указав достаточное число значащих цифр, но этот подход менее элегантен, чем с помощью функции Ant.

Алгоритм применения функции пользователя

Разместите данные, необходимые для решения задачи, на рабочем листе (как показано на рисунке) и с помощью Мастера функций вызовите новую функцию:

Оператор условного перехода

Оператор условного перехода задает выполнение определенных групп инструкций в зависимости от значения выражения.

Синтаксис:

If condition Then [statements ] [ Else elsestatements ]

Если условие condition принимает значение True, то выполняются инструкции statements, если False, то инструкции elsestatements. Ветвь Else является необязательно.

Например, если скидка (скажем 50%) применяется только к суммам больше 10001, то в VBA это можно записать следующим образом:

If Money > 1000 Then Discount = 0.05 Else Discount = 0

или, что равносильно

If Money > 1000 Then Discount = 0.05

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

If condition Then

[statements ]

[ Else

[elsestatements ]]

End If

Приведенный выше пример со скидкой можно записать в следующей эквивалентной блочной структуре:

If Money > 1000 Then

Discount = 0.05

Else

Discount = 0

End If

или