|
|
Лекции VBA. Можно выделить следующие разновидности макросов
Математические функции
VBA предоставляет стандартный набор математических функций. В табл. 2 приведены математические функции, имеющиеся в VBA. В этой таблице N означает любое численное выражение; все аргументы функций являются обязательными, если только не указано иначе.
Таблица 2
Функции (аргументы)
|
Возвращает /действие
|
Abs(N)
|
Возвращает абсолютное значение N.
|
Atn(N)
|
Возвращает арктангенс N как угол в радианах.
|
Cos(N)
|
Косинус угла N, где N — это угол, измеренный в радианах.
|
Exp(N)
|
Возвращает константу е, возведенную в степень N. (е — это ос-
нование натуральных логарифмов и она (приблизительно) равна 2,718282).
|
Fix(N)
|
Возвращает целую часть N. Fix не округляет число, а отбрасы- вает любую дробную часть. Если N является отрицательным, Fix возвращает ближайшее отрицательное целое большее, чем
или равное N.
|
Int(N)
|
Возвращает целую часть N. Int не округляет число, а отбрасы- вает любую дробную часть. Если N является отрицательным, Int возвращает ближайшее отрицательное целое меньшее, чем или равное N.
|
Log(N)
|
Возвращает натуральный логарифм N.
|
Rnd(N)
|
Возвращает случайное число; аргумент является необязатель-
ным. Используйте функцию Rnd только после инициализации VBA-генератора случайных чисел оператором Randomize.
|
Sgn(N)
|
Возвращает знак числа: -1, если N — отрицательное; 1, если N
— положительное; 0, если N равно 0.
|
Sin(N)
|
Возвращает синус угла; N — это угол, измеренный в радианах.
|
Sqr(N)
|
Возвращает корень квадратный из N. VBA отображает ошибку времени исполнения, если N — отрицательное.
|
Tan(N)
|
Возвращает тангенс угла; N — угол в радианах.
|
Функции Fix и Int укорачивают целые, то есть они отбрасывают дробную часть числа без округления. Единственное различие между функциями Fix и Int — это то, как они обрабатывают отрицательные числа.
Дополнительные тригонометрические функции можно выводить из базовых математических функций VBA. Например, если необходимо вычислить котангенс угла, для его нахождения можно использовать формулу 1/Таn(х).
Примеры использования математических функций: gipot=Sqr(kat2^2+kat2^2) chislo=Int(Rnd(1)*100)
Функции преобразования данных
Visual Basic предоставляет несколько функций для преобразования одного типа данных в другой. Надо использовать эти функции для устранения ошибок несовпадения типов и обеспечения явного контроля за типами данных в выражениях.
Например, при получении сообщения об ошибке несовпадения типов в определенном выражении можно преобразовать значения в выражении в типы, совместимые друг с другом, используя функции преобразования. Или же можно сохранять результат выражения в диапазоне численного типа Single (большинство численных выражений имеют результатом значение типа Double); в таком случае следует использовать функцию CSng для преобразования результата выражения в число типа Single.
В табл. 3 приведены функции преобразования данных в VBA. В этой таблице N — это любое численное, S — любое строковое, а Е — выражение любого типа. Аргументы каждой функции являются обязательными, если не указано иначе.
Таблица 3
Функция (аргументы)
|
Возвращает/действие
|
Asc(S)
|
Возвращает число кода символа, соответствующее первой букве строки S. Буква "А", например, имеет код символа 65.
|
Chr(N)
|
Возвращает строку из одного символа, соответствующего коду символа N, который должен быть числом между 0 и 255,
включительно. Код символа 65, например, возвращает букву "А".
|
Format(E, S)
|
Возвращает строку, содержащую значение, представленное
выражением Е, в формате в соответствии с инструкциями, содержащимися в S.
|
Hex(N)
|
Возвращает строку, содержащую шестнадцатиричное представление N.
|
Oct(N)
|
Возвращает строку, содержащую восьмиричное представление N.
|
RGB(N, N, N)
|
Возвращает целое типа Long, представляющее значение основных цветов изображения. N в каждом аргументе должно быть целым в диапазоне 0 — 255, включительно.
Аргументы (слева направо) — это значения для красного,
зеленого и синего цвета.
|
Str(N)
|
Возвращает строку, эквивалентную численному выражению N.
|
Val(S)
|
Возвращает численное значение, соответствующее числу, представленному строкой S, которая должна содержать только цифры и одну десятичную точку, иначе VBA не
может преобразовать ее в число. Если VBA не может
|
|
преобразовать строку в S, то функция Val возвращает 0.
|
CBool(N)
|
Возвращает Boolean-эквивалент.численного выражения N.
|
CByte(E)
|
Возвращает численное значение типа Byte (от 0 до 255); Е —
любое допустимое численное или строковое выражение, которое может быть преобразовано в число.
|
CCur(E)
|
Возвращает численное значение типа Currency; E — любое
допустимое численное или строковое выражение, которое может быть преобразовано в число.
|
CDate(E)
|
Возвращает значение типа Date. E может быть любым допус-
тимым выражением (строкой или числом), представляющим дату в диапазоне 1/1/100 — 12/31/9999, включительно.
|
CDbl(E)
|
Возвращает численное значение типа Double; E — любое до-
пустимое численное или строковое выражение, которое может быть преобразовано в число.
|
CInt(E)
|
Возвращает численное значение типа Integer; E — любое до-
пустимое численное или строковое выражение, которое может быть преобразовано в число.
|
CLng(E)
|
Возвращает численное значение типа Long; E — любое
допустимое численное или строковое выражение, которое может быть преобразовано в число.
|
CSng(E)
|
Возвращает численное значение типа Single; E — любое
допустимое численное или строковое выражение, которое может быть преобразовано в число.
|
CStr(E)
|
Возвращает значение типа String; E — любое допустимое численное или строковое выражение.
|
CVar(E)
|
Возвращает значение типа Variant; E — любое допустимое численное или строковое выражение.
|
Наиболее часто используемые функции — это функции (объединенные в конце табл. 3 в группу), начинающиеся с буквы С (от слова conversion), за которыми следует сокращение имени типа: CStr, CSng, CDbl и так далее.
Примеры использования функций преобразования данных:
d=CDat(“1.9.2006”)
text=CStr(36*3)
|
|
|
Скачать 314.53 Kb.