 |
|
Компоненты языка VBA
Объявление переменных
Использование оператора Option Explicit (в разделе Declarations)
DIM имя_переменной [As тип]
DIMnumber As integer
Dim LastName As String
LastName = “VBA”
Dim ThisDate As Date
ThisDate = #10/04/08#
Типы переменных
| Тип переменной | Размер | Описание |
| Boolean | 2 байта | Логический тип, возвращает True(Истина) или False(Ложь). 0 (False), -1 (True) |
| Byte | 1 байт | Хранит числа от 0 до 255 |
| Currency | 8 байт | Хранит денежные значения, которые могут иметь до четырех цифр после запятой от -922 337 203 685 477.5808 до 922 337 203 685 477.5807 |
| Date | 8 байт | Хранит значение времени и даты. Годы можно записывать от 1 января 100 г. до 31 декабря 9999 г. |
| Integer | 4 байта | Используется для записи целых чисел. Диапазон от -32 768 до 32 767 |
| Long | Используется для записи целых чисел (длинное целое). Диапазон от -2 147 483 648 до -2 147 483 647 | |
| Single | Используется для записи десятичных дробей (с плавающей точкой обычной точности). От -3 4032823 *1038 до 3 4032823 *1038 | |
| Dooble | 8 байт | Используется для записи десятичных дробей (с плавающей точкой двойной точности). Диапазон от -4.940656458411247*10-324 до 4.940656458411247*10-324 |
| String (строка переменной длины) | 10 байт + длина строки | Используется для хранения до 2 миллиардов символов. |
| Object | 4 байта | Любой указатель объекта |
| Variant (числовые подтипы) | 16 байт | Любое числовое значение вплоть до границ диапазона для типа Double |
| Variant (строковые подтипы) | 22 байт +длина строки | Используется как строки String переменной длины |
Префиксы для переменных:
| Тип переменной | Префикс |
| Byte | bin |
| Boolean | byt |
| Currency | cur |
| Date | dat |
| Integer | int |
| Long | lng |
| Single | sng |
| Double | dbl |
| Object | obj |
| String | str |
| Variant | var |
Dim datThisDate As Date
ThisDate = #10/04/08#
Sub addNumbers()
‘Объявление переменных
Dim intNumber1 As Integer
Dim intNumber2 As Integer
Dim intsum As Integer
End Sub
Переменная типа Variant
Dim varMyData
Dim varMyData as Variant
varMyData=12
varMyData= “Текст”
Константы
Const conNumber1 As Integer
Const conDate As Date = #10/04/08#
Модульные переменные
Private
Public
Статические переменные
Sub staticTestProcedure()
Static intcounter As Integer
intcounter = intcounter + 1
Debug.Print intcounter
End Sub
Ввод и вывод
Sub addNumbers()
‘Объявление переменных
Dim intNumber1 As Integer
Dim intNumber2 As Integer
Dim intsum As Integer
intNumber1 = InputBox(‘Введите первое число:’)
intNumber2 = InputBox(‘Введите второе число:’)
intsum = intNumber1+ intNumber2
Debug.print intNumber1 & “+” & intNumber2 & “=”& intsum
End Sub
Управляющие инструкции
Инструкция If… then… else, Elseif
If условие Then [инструкции] [Else инструкции_Else]
Или
If условие Then
[инструкции]
…
[elseif условие –n Then
[инструкции_ elseif]]
…
[else
[инструкции_ else]]
End If
Пример:
Option Compare Database
Option Explicit
Private intNum As Integer
Sub ifTest()
Dim strMessage As String
intNum=InputBox(“Введите любое число между 1 и 15”)
If intNum>=1 and IntNum<=15 Then
Iftest2
Else
MsgBox “Число вне диапазона!”
End If
End Sub
Sub iftest2()
If intNum<10 then
MsgBox “Введенное число” & intNum & “меньше 10!”
Elseif intNum=10 then
MsgBox “Введенное число” & intNum & “равно 10!”
Else
MsgBox “Введенное число” & intNum & “больше 10!”
End If
End Sub