Встроенные функции VBA

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

  • Математические функции
  • Функции проверки типов
  • Функции преобразования форматов
  • Функции обработки строк
  • Функции времени и даты

Ниже рассмотрены основные функции из этих категорий.

Математические функции

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

         
  Функция Возвращаемое значение    
  Abs (число) Atn (число) Cos (число) Модуль (абсолютная величина) числа Арктангенс Косинус    
         
       
  Ехр (число) Экспонента, т. е. результат возведения основания натурального логарифма в указанную степень  
  Log (число) Натуральный логарифм  
  Rnd Rnd (число) Возвращает случайное число из интервала [0,1]   Если число меньше нуля, то Rnd возвращает каждый раз одно и то же число, используя аргумент в качестве опорного числа; если число больше нуля или аргумент опущен, то — следующее случайное число в последовательности; если число равняется нулю, то — случайное число, возвращенное при предыдущем вызове этой функции. Public Sub Процедура_RND() x = Rnd(-2) MsgBox "x=" & x End Sub Перед вызовом функции Rnd используйте инструкцию Randomize без аргумента Public Sub Процедура_RND() Randomize x = Rnd(-2) MsgBox "x=" & x End Sub  
  Sgn (число) Знак числа Public Sub Процедура_RND() Randomize x = Rnd(-2) MsgBox "x=" & x z = -5 y = Sgn(z) MsgBox "y=" & y End Sub  
  Sin (число) Синус  
  Sqr (число) Квадратный корень из числа  
  Tan (число) Тангенс  
  Fix (число) и Int (число) Обе функции, int и Fix, отбрасывают дробную часть числа и возвращают целое значение. Различие между функциями int и Fix состоит в том, что для отрицательного значения аргумента число функция int возвращает ближайшее отрицательное целое число, меньшее либо равное указанному, a Fix — ближайшее отрицательное целое число, большее либо равное указанному Например: Int(2.3)=2 fix(2.3)=2 Int(2.8)=2 fix(2.8)=2 Int(-2.3)=-3 fix(-2.3)=-2 Int(-2.3)=-3 fix(2.3)=-2    
  Round(E[,N]) Округляет число, округленное до определенного количества (N) десятичных знаков Public Sub as1() Dim d As Double d = 2.567 MsgBox Round(d, 1) 'выведет 2.6 End Sub  
       
             

 

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

1.

Public Sub случайное_число()

Randomize

For i = 1 To 3

s = Rnd

MsgBox "Случайное число=" & s

Next i

End Sub

 

Public Sub qqq()

Dim mv, ms As String

Randomize

ms = " "

For i = 0 To 9

mv = Int((6 * Rnd) + 1)

ms = ms & " " & mv

Next

MsgBox ms

End Sub

Преобразование строки в число и обратно осуществляют следующими функциями.

       
  Val (строка) Возвращает числа, содержащиеся в строке, как числовое значение соответствующего типа  
  Str (число) Возвращает значение типа variant (String), являющееся строковым представлением числа  
       

В качестве допустимого десятичного разделителя функция str воспринимает только точку. При наличии другого десятичного разделителя (например, запятой) для преобразования чисел в строки следует использовать функцию cstr, описанную ниже.

Функции преобразования типов

В VBA имеются следующие функции преобразования типов выражений из данного в указанный.

       
  Функция Тип, в который преобразуется выражение  
  CBool (Выражение) Boolean  
  CByte (Выражение) Byte  
  CCur (Выражение) Currency  
  CDate (Выражение) Date  
  СDbl (Выражение) Double  
  CDec (Выражение) Decimel  
  CInt (Выражение) Integer  
  CLng (Выражение) Long  
  CSng (Выражение) Single  
  CVar (Выражение) Variant  
  CStr (Выражение) String Public Sub Процедура_RND() Randomize x = Rnd(-2) MsgBox "x=" & x z = -5 y = Sgn(z) MsgBox "y=" & y c = Val(x) MsgBox "c=" & c b = Str(x) MsgBox "b=" & b v = CStr(x) MsgBox "v=" & v End Sub  
       

Функции обработки строк

В VBA имеются следующие функции обработки строковых выражений.

       
  Функция Возвращаемое выражение  
  Asc (строка) Возвращает код символа, соответствующий первой букве строки Public Sub zx() Dim ms As String d = Asc("Привет") MsgBox "d=" & d End Sub d=207  
  Chr (число) Возвращает строку из одного символа, соответствующего коду числа, т.е возвращает символ, которому соответствует число d = Chr(207) MsgBox "d=" & d d= П  
  Mid(S,N1[,N2]) Возвращает строку, содержащую N2 (если указано, если не указано - то до конца строки) символов, начиная с позиции N1. Первое_слово=mid(“Mid Function Examle”,1,3) ‘Первое_слово=“Mid”  
  Len(S) Возвращает число символов строки S(включая начальные и конечные пробелы).  
  Left(S,N) Возвращает подстроку, состоящую из заданного N числа символов, начиная с левого края строки S. S=”Мама мыла раму” S1=Left(S,4) ‘S1=Мама  
  Right(S,N) Возвращает подстроку, состоящую из заданного N числа символов, начиная с правого края строки S. S=”Мама мыла раму” S1= Right (S,4) ‘S1= раму  
  InStr([N,]S1,S2) Возвращает позицию положения строки S2 в строке S1. При наличии N поиск начинается с позиции N. s1=”Abcdef” i= InStr(s1,”cd”) ‘i=3 s1=”Abcdcdef” i= InStr(4,s1,”cd”) ‘i=5 s1=”Abcdef” i= InStr(s1,”k”) ‘i=0 Если S2 в S1 не обнаружено, то результат = нулю  
       

 

 








Дата добавления: 2015-08-08; просмотров: 795; ЗАКАЗАТЬ НАПИСАНИЕ РАБОТЫ


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию, введите в поисковое поле ключевые слова и изучайте нужную вам информацию.

Поделитесь с друзьями:

Если вам понравился данный ресурс вы можете рассказать о нем друзьям. Сделать это можно через соц. кнопки выше.
helpiks.org - Хелпикс.Орг - 2014-2021 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.006 сек.