Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive Введение в программирование на VBA - eDrive
28 Функция Определение Пример Now Текущие дата и время сегодня = Now Time Текущее время время = Time Timer Число секунд с полуночи конец = Timer Year Год год = Year (дата) Математические Abs Абсолютное значение число = Abs (-50.3) ' 50.3 Int, Fix Целая часть числа число = Fix (56.5) ' 56 Sgn Знак числа знак = Sgn (-5) ' -1 Sqr Квадратный корень число = Sqr (4) ' 2 Rnd Случайное число число = 6 * Rnd Строковые Asc Код заданного символа число = Asc ("A") ' 65 Chr Символ заданного кода знак = Chr (65) ' A IsNull Пустая строка сколько = IsNull (слово) Left Левая часть строки слева = Left (строка, 1) Len Длина строки длина = Len (что) Mid Средняя часть строки среди = Mid (строка, 1, 3) Right Правая часть строки справа = Right (строка, 1) Space Строка пробелов строка = Space (10) String Повторяющийся символ строка = String (5, "*") ' ***** StrComp Сравнение строк больше = StrComp ("первая", "вторая") ‘ 1 Val Числовое значение строки число = Val (" 2 45 7") ' 2457 RGB Цвет красный = RGB (255, 0, 0) Файловые CurDir Текущая папка п = CurDir ("D") ' "D:\Word" Dir Заданная папка папка = Dir ("C:\WIN\*.ini") EOF Конец файла Do While Not EOF (1) FileLen Размер файла длина = FileLen ("тест") LOF Размер файла длина = LOF (1) Err Номер ошибки номер = Err Функции VBA Choose Вывод значения из списка x = Choose (a, "0", "1", "2", "3") IIf Значение в зависимости от x = IIf (аргумент, "2000", "0") первого аргумента IsArray Массив x = IsArray (аргумент) IsDate Поле даты x = IsDate (Forms!Клиенты!День) IsEmpty Инициализировано x = IsEmpty (Forms!Клиенты!День) IsError Ошибка x = IsError (Forms!Клиенты!День) IsMissing Пропуск x = IsMissing (аргумент)
29 Функция Определение Пример IsNumeric Числовое поле x = IsNumeric (Forms!Клиенты!День) IsObject Объект OLE x = IsObject (Forms!Клиенты!День) Partition Число в интервале MsgBox Partition (a, 0, 100, 50) Switch Первое выражение истины x = Switch (Forms!Год!День=1,"1") TypeName Имя типа данных Variant x = TypeName (a) Константы Visual Basic бывают числовыми, строковыми, объектными. Таблица некоторых констант языка: Константа Код Определение Константы диалога vbOKOnly 0 Кнопка OK vbOKCancel 1 Кнопки OK и Отмена vbAbortRetryIgnore 2 Кнопки Удалить, Повторить, Пропустить vbYesNoCancel 3 Кнопки Да, Нет, Отмена. vbYesNo 4 Кнопки Да и Нет vbRetryCancel 5 Кнопки Повторить и Отмена vbCritical 16 Предостережение vbQuestion 32 Вопрос vbExclamation 48 Предупреждение vbInformation 64 Информация vbDefaultButton1 0 Первая кнопка по умолчанию vbDefaultButton2 256 Вторая кнопка по умолчанию vbDefaultButton3 512 Третья кнопка по умолчанию vbSystemModal 4096 Системное окно сообщений Возвращаемые значения vbOK 1 Кнопка OK vbCancel 2 Кнопка Отмена vbAbort 3 Кнопка Удалить vbRetry 4 Кнопка Повторить vbIgnore 5 Кнопка Пропустить vbYes 6 Кнопка Да vbNo 7 Кнопка Нет Преобразование символов vbUpperCase 1 Прописные буквы vbLowerCase 2 Строчные буквы vbProperCase 3 Прописные первые буквы
- Page 1 and 2: В. М. Водовозов Введ
- Page 3 and 4: Оглавление ИНФОРМА
- Page 5 and 6: 5 Единение знака и з
- Page 7 and 8: 7 клавиатурой и пр.,
- Page 9 and 10: 9 необходимый миним
- Page 11 and 12: 11 регламентируя пр
- Page 13 and 14: 13 правым щелчком по
- Page 15 and 16: 15 Удалить окна диал
- Page 17 and 18: 17 Для документиров
- Page 19 and 20: 19 Макрокоманда Имя
- Page 21 and 22: 21 языка Basic, утвержд
- Page 23 and 24: 23 • модули классов,
- Page 25 and 26: 25 конфигурацию кот
- Page 27: 27 Оператор Определ
- Page 31 and 32: 31 вызова ей передаю
- Page 33 and 34: 33 Переменные и авто
- Page 35 and 36: 35 Call Вызов Call Вызов
- Page 37 and 38: 37 Для ввода информа
- Page 39 and 40: 39 • условные опера
- Page 41 and 42: 41 после Then лексемы,
- Page 43 and 44: 43 Традиционный опе
- Page 45 and 46: 45 Выражение […] Loop Un
- Page 47 and 48: 47 Тип данных, обозн
- Page 49 and 50: 49 MsgBox "НОД= " & a End Sub С
- Page 51 and 52: 51 Next MsgBox массив End Sub
- Page 53 and 54: 53 .процессор = "Pentium"
- Page 55 and 56: 55 Sub СвойстваФормы (
- Page 57 and 58: 57 объектов. Перетас
- Page 59 and 60: 59 .Enabled = False End With UserFo
- Page 61 and 62: 61 MsgBox "Введите четы
- Page 63 and 64: 63 Sub CommandButton1_Click () Comb
28<br />
Функция Определение Пример<br />
Now Текущие дата и <strong>в</strong>ремя сегодня = Now<br />
Time Текущее <strong>в</strong>ремя <strong>в</strong>ремя = Time<br />
Timer Число секунд с полуночи конец = Timer<br />
Year Год год = Year (дата)<br />
Математические<br />
Abs Абсолютное з<strong>на</strong>чение число = Abs (-50.3) ' 50.3<br />
Int, Fix Целая часть числа число = Fix (56.5) ' 56<br />
Sgn З<strong>на</strong>к числа з<strong>на</strong>к = Sgn (-5) ' -1<br />
Sqr К<strong>в</strong>адратный корень число = Sqr (4) ' 2<br />
Rnd Случайное число число = 6 * Rnd<br />
Строко<strong>в</strong>ые<br />
Asc Код заданного сим<strong>в</strong>ола число = Asc ("A") ' 65<br />
Chr Сим<strong>в</strong>ол заданного кода з<strong>на</strong>к = Chr (65) ' A<br />
IsNull Пустая строка сколько = IsNull (сло<strong>в</strong>о)<br />
Left Ле<strong>в</strong>ая часть строки сле<strong>в</strong>а = Left (строка, 1)<br />
Len Дли<strong>на</strong> строки дли<strong>на</strong> = Len (что)<br />
Mid Средняя часть строки среди = Mid (строка, 1, 3)<br />
Right Пра<strong>в</strong>ая часть строки спра<strong>в</strong>а = Right (строка, 1)<br />
Space Строка пробело<strong>в</strong> строка = Space (10)<br />
String По<strong>в</strong>торяющийся сим<strong>в</strong>ол строка = String (5, "*") ' *****<br />
StrComp<br />
Сра<strong>в</strong>нение строк<br />
больше = StrComp ("пер<strong>в</strong>ая",<br />
"<strong>в</strong>торая") ‘ 1<br />
Val Число<strong>в</strong>ое з<strong>на</strong>чение строки число = Val (" 2 45 7") ' 2457<br />
RGB Ц<strong>в</strong>ет красный = RGB (255, 0, 0)<br />
Файло<strong>в</strong>ые<br />
CurDir Текущая папка п = CurDir ("D") ' "D:\Word"<br />
Dir Задан<strong>на</strong>я папка папка = Dir ("C:\WIN\*.ini")<br />
EOF Конец файла Do While Not EOF (1)<br />
FileLen Размер файла дли<strong>на</strong> = FileLen ("тест")<br />
LOF Размер файла дли<strong>на</strong> = LOF (1)<br />
Err Номер ошибки номер = Err<br />
Функции <strong>VBA</strong><br />
Choose Вы<strong>в</strong>од з<strong>на</strong>чения из списка x = Choose (a, "0", "1", "2", "3")<br />
IIf<br />
З<strong>на</strong>чение <strong>в</strong> за<strong>в</strong>исимости от<br />
x = IIf (аргумент, "2000", "0")<br />
пер<strong>в</strong>ого аргумента<br />
IsArray Масси<strong>в</strong> x = IsArray (аргумент)<br />
IsDate Поле даты x = IsDate (Forms!Клиенты!День)<br />
IsEmpty Инициализиро<strong>в</strong>ано x = IsEmpty (Forms!Клиенты!День)<br />
IsError Ошибка x = IsError (Forms!Клиенты!День)<br />
IsMissing Пропуск x = IsMissing (аргумент)