As single excel vba

Single Variable Type

The VBA Single data type is used to store numbers that require decimal places.  It can store from -3.4028235E+38 through -1.401298E-45 for negative values and from 1.401298E-45 through 3.4028235E+38 for positive values.

To declare an Single variable, you use the Dim Statement (short for Dimension):

Dim sngA as Single 

Then, to assign a value to a variable, simply use the equal sign:

sngA = 3658.25

Putting this in a procedure looks like this:

Sub sngExample()
'declare the double variable
   Dim sngA as Single
'populate the double variable
   sngA = 3658.25
'show the message box
   MsgBox sngA 
End Sub

If you run the code above, the following message box will be shown.

Double Data Type

The Double data type is just a longer version of the Single data type.  Due to this fact, it can effect the rounding when used in a procedure as the Single data type will round to 4 decimal places, while the Double data Type will round to 12 decimal places.  If you need more than 4 decimal places, you can use the Double data type.

Int or Long Data Types

If you do not need a decimal place, you can use either the Int data type or the Long data type.

Dim intA as Integer

Dim lngB as Long

Declare Single Variable at Module or Global Level

In the previous examples, we’ve declared the Single variable within a procedure. Variables declared with a procedure can only be used within that procedure.

Instead, you can declare Single variables at the module or global level.

Module Level

Module level variables are declared at the top of code modules with the Dim statement.

These variables can be used with any procedure in that code module.

Global Level

Global level variables are also declare at the top of code modules. However, instead of using the Dim statement, use the Public statement to indicate that the Single variable is available to be used throughout your VBA Project.

Public SngA as Single

If you were to declare the Single variable at a module level and then try to use it in a different module, an error would occur.

However, if you had used the Public keyword to declare the Single variable, the error would not occur and the procedure would run perfectly.

Format Single Stored as String

There may be a time where you wish to format a single data type to a string – for example you might want to display a currency symbol and round the number to 2 decimal places.

To achieve this, you use the Format function.

The  following procedure

Sub TestSingleToCurrencyString()
'declare the string variable
Dim strMoney As String
'declare the single and populate the value
Dim sngValue As Single
sngValue  = 44055.256
'convert the single to a string with a currency symbol with 2 decimal places
strMoney = Format(sngValue , "$#,##0.00")
'view the result
MsgBox strMoney
End Sub

would return this result:

Similarly, you may want to display a number as a formatted phone number.

This procedure:

Sub TestSingleToPhone()
'declare the string variable
Dim strPhone As String
'declare the single and populate the value
Dim sglValue As single 
sglValue = 555968541
'convert the single to a string with a currency symbol
strPhone = Format(sglValue , "(000)-000 0000")
'view the result
MsgBox strPhone
End Sub

would return this result:

Байт

Dim Value As Byte

Байт представляет собой неподписанный 8-битный тип данных. Он может представлять целые числа от 0 до 255, и попытка сохранить значение за пределами этого диапазона приведет к ошибке времени выполнения 6: Overflow . Байт является единственным внутренним беззнаковым типом, доступным в VBA.

Функция кастинга для преобразования в байт — CByte() . Для бросков из типов с плавающей точкой результат округляется до ближайшего целочисленного значения с округлением .5.

Байт-массивы и строки

Строки и байтовые массивы могут быть заменены друг на друга посредством простого присваивания (необязательные функции преобразования).

Например:

Sub ByteToStringAndBack()

Dim str As String
str = "Hello, World!"

Dim byt() As Byte
byt = str

Debug.Print byt(0)  ' 72

Dim str2 As String
str2 = byt

Debug.Print str2    ' Hello, World!

End Sub

Чтобы иметь возможность кодировать символы Unicode , каждый символ в строке занимает два байта в массиве с первым младшим байтом. Например:

Sub UnicodeExample()

Dim str As String
str = ChrW(&H2123) & "."  ' Versicle character and a dot

Dim byt() As Byte
byt = str

Debug.Print byt(0), byt(1), byt(2), byt(3)  ' Prints: 35,33,46,0

End Sub

целое число

Dim Value As Integer

Целое число — это подписанный 16-битный тип данных. Он может хранить целые числа в диапазоне от -32,768 до 32,767, и попытка сохранить значение за пределами этого диапазона приведет к ошибке времени выполнения 6: переполнение.

Целые числа хранятся в памяти как малозначные значения с отрицаниями, представленными как дополнение к двум .

Обратите внимание, что в целом лучше использовать Long, а не Integer, если меньший тип не является членом типа или не требуется (либо по API-вызову, либо по другой причине), чтобы быть 2 байтами. В большинстве случаев VBA обрабатывает целые числа как 32-битные внутри, поэтому обычно нет преимуществ при использовании меньшего типа. Кроме того, каждый раз, когда используется тип Integer, он выполняет штраф за производительность, поскольку он бесшумно применяется как Long.

Функция кастинга для преобразования в Integer — это CInt() . Для бросков из типов с плавающей точкой результат округляется до ближайшего целочисленного значения с округлением .5.

логический

Dim Value As Boolean

Логическое значение используется для хранения значений, которые могут быть представлены как True или False. Внутренне тип данных сохраняется как 16-битное значение с 0, представляющим False, и любое другое значение, представляющее True.

Следует отметить, что когда Boolean применяется к числовому типу, все биты имеют значение 1. Это приводит к внутреннему представлению -1 для подписанных типов и максимальному значению для неподписанного типа (байт).

Dim Example As Boolean
Example = True
Debug.Print CInt(Example)  'Prints -1
Debug.Print CBool(42)      'Prints True
Debug.Print CByte(True)    'Prints 255

Функция кастинга для преобразования в булевское значение — CBool() . Несмотря на то, что он представлен внутренне как 16-битное число, отбрасывание в Boolean из значений вне этого диапазона безопасно от переполнения, хотя оно устанавливает все 16 бит в 1:

Dim Example As Boolean
Example = CBool(2 ^ 17)
Debug.Print CInt(Example)   'Prints -1
Debug.Print CByte(Example)  'Prints 255

Долго

Dim Value As Long

A Long — это подписанный 32-битный тип данных. Он может хранить целые числа в диапазоне от -2,147,483,648 до 2,147,483,647, и попытка сохранить значение за пределами этого диапазона приведет к ошибке времени выполнения 6: переполнение.

Длинны хранятся в памяти как малозначные значения с отрицаниями, представленными как дополнение к двум .

Обратите внимание, что поскольку Long соответствует ширине указателя в 32-разрядной операционной системе, Longs обычно используются для хранения и передачи указателей на и из функций API.

Функция кастинга для преобразования в Long — CLng() . Для бросков из типов с плавающей точкой результат округляется до ближайшего целочисленного значения с округлением .5.

не замужем

Dim Value As Single

A Single — это подписанный 32-битный тип данных с плавающей точкой. Он хранится внутренне с использованием малогабаритной схемы памяти IEEE 754 . Таким образом, не существует фиксированного диапазона значений, которые могут быть представлены типом данных. Ограничение — это точность сохраненного значения. Единица может хранить значения целочисленных значений в диапазоне от -16,777,216 до 16,777,216 без потери точности. Точность чисел с плавающей запятой зависит от экспоненты.

Единица будет переполняться при назначении значения, превышающего примерно 2 ¹²⁸ . Он не будет переполняться отрицательными показателями, хотя допустимая точность будет сомнительной до того, как будет достигнут верхний предел.

Как и во всех числах с плавающей запятой, следует соблюдать осторожность при проведении сравнений равенства. Лучшей практикой является включение значения дельта, соответствующего требуемой точности.

Функция кастинга для преобразования в Single — это CSng() .

двойной

Dim Value As Double

A Double — это подписанный 64-битный тип данных с плавающей точкой. Подобно Single , он хранится внутренне с использованием малогабаритной схемы памяти IEEE 754, и должны быть приняты те же меры предосторожности в отношении точности. Двойной объект может хранить целые значения в диапазоне от -9,007,199,254,740,992 до 9,007,199,254,740,992 без потери точности. Точность чисел с плавающей запятой зависит от экспоненты.

Двойной переполняется при назначении значения, превышающего примерно 2 ¹⁰²⁴ . Он не будет переполняться отрицательными показателями, хотя допустимая точность будет сомнительной до того, как будет достигнут верхний предел.

Функция кастинга для преобразования в Double — это CDbl() .

валюта

Dim Value As Currency

Валюта — это подписанный 64-битный тип данных с плавающей точкой, аналогичный Double , но масштабированный на 10 000, чтобы обеспечить большую точность для 4 цифр справа от десятичной точки. Переменная Currency может хранить значения от -922,337,203,685,477.5808 до 922,337,203,685,477.5807, предоставляя ей наибольшую емкость любого встроенного типа в 32-битном приложении. Как следует из названия типа данных, считается, что наилучшим образом использовать этот тип данных при представлении денежных расчетов, поскольку масштабирование помогает избежать ошибок округления.

Функция кастинга для преобразования в валюту — CCur() .

Дата

Dim Value As Date

Тип Даты представлен внутренне в качестве подписанного 64 бит с плавающей точкой типа данных со значением слева от десятичного представляющего количества дней с момента эпохи декабря 30 — ^го, 1899 (хотя см примечания ниже). Значение справа от десятичного знака представляет время как дробный день. Таким образом, целочисленная дата будет иметь временной компонент в 12:00:00 AM, а x.5 будет иметь временной компонент в 12:00:00 PM.

Допустимые значения Даты находятся между 1 ^января 100 года и 31 декабря 9999. ^й Поскольку двойной имеет больший диапазон, можно переполнять Дата путем присвоения значения вне этого диапазона.

Таким образом, его можно использовать взаимозаменяемо с расчетами Double for Date:

Dim MyDate As Double
MyDate = 0                                  'Epoch date.
Debug.Print Format$(MyDate, "yyyy-mm-dd")   'Prints 1899-12-30.
MyDate = MyDate + 365
Debug.Print Format$(MyDate, "yyyy-mm-dd")   'Prints 1900-12-30.

Функция кастинга для преобразования в дату — это CDate() , которая принимает любое числовое представление даты / времени с числовым типом. Важно отметить, что строковые представления дат будут преобразованы на основе текущей настройки локали, используемой, поэтому следует избегать прямых бросков, если код предназначен для переносимости.

строка

Строка представляет последовательность символов и поставляется в двух вариантах:

Переменная длина

Dim Value As String

Строка переменной длины позволяет добавлять и усекать и хранится в памяти как COM BSTR . Это состоит из 4-байтового беззнакового целого числа, которое хранит длину строки в байтах, за которой следуют строковые данные в виде широких символов (2 байта на символ) и заканчивается двумя нулевыми байтами. Таким образом, максимальная длина строки, которую может обрабатывать VBA, составляет 2 147 483 647 символов.

Внутренний указатель на структуру (восстанавливаемый StrPtr() ) указывает на расположение памяти данных , а не на префикс длины. Это означает, что VBA String может быть передана непосредственно API-функциям, которым требуется указатель на массив символов.

Поскольку длина может изменяться, VBA перераспределяет память для String каждый раз, когда назначается переменная , которая может налагать штрафы за производительность для процедур, которые изменяют их повторно.

Фиксированная длина

Dim Value As String * 1024    'Declares a fixed length string of 1024 characters.

Строки фиксированной длины выделяются по 2 байта для каждого символа и сохраняются в памяти как простой массив байтов. После выделения длина строки неизменна. Они не имеют нулевой конец в памяти, поэтому строка, заполняющая память, выделенную ненулевыми символами, непригодна для передачи функциям API, ожидающих нулевую завершаемую строку.

Строки фиксированной длины несут на себе устаревшее ограничение на 16 бит, поэтому длина может составлять до 65 535 символов. Попытка присвоить значение дольше, чем доступное пространство памяти, не приведет к ошибке выполнения — вместо этого результирующее значение будет просто усечено:

Dim Foobar As String * 5
Foobar = "Foo" & "bar"
Debug.Print Foobar          'Prints "Fooba"

Функция каста для преобразования в строку любого типа — CStr() .

Долго долго

Dim Value As LongLong

LongLong — это подписанный 64-битный тип данных и доступен только в 64-битных приложениях. Он не доступен в 32 — разрядных приложений , работающих на 64 — разрядных операционных системах. Он может хранить целые значения в диапазоне от -9,223,372,036,854,775,808 до 9,223,372,036,854,775,807, и попытка сохранить значение за пределами этого диапазона приведет к ошибке времени выполнения 6: переполнение.

LongLongs хранятся в памяти как малозначные значения с отрицаниями, представленными как дополнение к двум .

Тип данных LongLong был представлен как часть поддержки 64-битной операционной системы VBA. В 64-битных приложениях это значение может использоваться для хранения и передачи указателей на 64-битные API.

Функция литья для преобразования в LongLong — CLngLng() . Для бросков из типов с плавающей точкой результат округляется до ближайшего целочисленного значения с округлением .5.

Вариант

Dim Value As Variant    'Explicit
Dim Value               'Implicit

A Variant — это тип данных COM, который используется для хранения и обмена значениями произвольных типов, а любой другой тип в VBA может быть назначен Variant. Переменные, объявленные без явного типа, указанные As [Type] умолчанию для варианта.

Варианты хранятся в памяти как структура VARIANT, которая состоит из дескриптора байтового типа ( VARTYPE ), за которым следуют 6 зарезервированных байтов, а затем 8-байтовая область данных. Для числовых типов (включая Date и Boolean) базовое значение сохраняется в самом Variant. Для всех других типов область данных содержит указатель на базовое значение.

Основной тип Variant может быть определен с помощью функции VarType() которая возвращает числовое значение, хранящееся в дескрипторе типа, или функцию TypeName() которая возвращает строковое представление:

Dim Example As Variant
Example = 42
Debug.Print VarType(Example)    'Prints 2 (VT_I2)
Debug.Print TypeName(Example)   'Prints "Integer"
Example = "Some text"
Debug.Print VarType(Example)    'Prints 8 (VT_BSTR)
Debug.Print TypeName(Example)   'Prints "String"

Поскольку Variant может хранить значения любого типа, назначения из литералов без подсказок типа будут неявно отнесены к варианту соответствующего типа в соответствии с приведенной ниже таблицей. Литералы с типом намеков будут приведены к варианту намеченного типа.

Примечание. Если не существует конкретной причины использовать вариант (т.е. итератор в цикле For Each или требование API), тип обычно следует избегать для обычных задач по следующим причинам:

• Они не безопасны для типов, что увеличивает вероятность ошибок во время выполнения. Например, вариант, содержащий значение Integer, беззвучно изменяет себя на Long, а не на переполнение.
• Они вносят накладные расходы на обработку, требуя, по крайней мере, одного дополнительного разыменования указателя.
• Требование к памяти для Variant всегда на 8 байт выше, чем требуется для хранения базового типа.

Функция кастинга для преобразования в вариант — это CVar() .

LongPtr

Dim Value As LongPtr

LongPtr был представлен в VBA для поддержки 64-битных платформ. В 32-битной системе он рассматривается как Long и на 64-битных системах, он рассматривается как LongLong .

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

Хотя он обрабатывается операционной системой как адрес памяти при использовании в вызовах API, следует отметить, что VBA рассматривает его как подписанный тип (и, следовательно, подвержен неподписанному сигналу переполнения). По этой причине любая арифметика указателя, выполняемая с использованием LongPtrs, не должна использовать > или < сравнения. Этот «quirk» также позволяет добавлять простые смещения, указывающие на действительные адреса в памяти, может привести к ошибкам переполнения, поэтому следует соблюдать осторожность при работе с указателями в VBA.

Функция кастинга для преобразования в LongPtr — CLngPtr() . Для бросков из типов с плавающей точкой результат округляется до ближайшего целочисленного значения с округлением .5 (хотя, поскольку он обычно является адресом памяти, использование его в качестве целевой цели для расчета с плавающей точкой в ​​лучшем случае опасно).

Десятичный

Dim Value As Variant
Value = CDec(1.234)

'Set Value to the smallest possible Decimal value
Value = CDec("0.0000000000000000000000000001")

Тип данных Decimal доступен только в качестве CDec Variant , поэтому вы должны объявить любую переменную, которая должна содержать Decimal как Variant а затем назначить Decimal значение с CDec функции CDec . Ключевое слово Decimal является зарезервированным словом (которое предполагает, что VBA в конечном итоге будет добавлять поддержку первого класса для этого типа), поэтому Decimal нельзя использовать как имя переменной или процедуры.

Для типа Decimal требуется 14 байт памяти (в дополнение к байтам, которые требуются родительскому варианту), и может хранить номера до 28 знаков после запятой. Для чисел без знаков после запятой диапазон допустимых значений составляет -79,228,162,514,264,337,593,543,950,335 до +79,228,162,514,264,337,593,543,950,335 включительно. Для чисел с максимальным числом знаков в 28 знаков после запятой диапазон допустимых значений составляет -7.9228162514264337593543950335 по +7.9228162514264337593543950335 включительно.

Из этой части вы
узнаете о типах данных, которыми можно
управлять VBA,
как в VBA
хранятся временные данные, как объединять
переменные и константы для создания
новых значений, научитесь включать
встроенные функции в выражения.

Лабораторная
работа № 3. Обзор
типов данных VB.
Переменные и

константы.
Совместимость типов данных. Оператор
присваивания. Арифметические и логические
операторы. Встроенные функции

Цель занятия:
Знать типы
данных. Уметь создавать переменные.
Уметь задавать типы данных переменным.
Уметь создавать именованные константы.
Знать область действия

38

переменных и
констант. Знать преобразование типов.
Уметь использовать оператор присваивания.
Знать арифметические и логические
операции. Уметь использовать конкатенацию
строк. Уметь использовать встроенные
функции VBA.
Материалы к
занятию: MS
Excel
2003.

Обзор типов
данных Visual
Basic
(VB)

Перед изучением
переменных, следует понять, как VBA
сохраняет различные виды информации.
VBA,
как и большинство других систем
программирования, разделяет обрабатываемые
данные на числа, даты, текст и другие
типы. Тип
данных (data
type)
– это термин, относящийся к определенным
видам данных, которые VBA
сохраняет и которыми может манипулировать.
В табл. 9 обобщены типы данных VBA,
показано, какой объем памяти занимает
каждый тип, кратко описаны типы данных
и дан диапазон значений, которые данный
тип может сохранять.

Таблица 9 –
Типы данных VBA

39

В табл. 9 вы
встретились с представлением данных,
называемым экспоненциальным
представлением (scientific
notation),
которое используется для отображения
на внешних устройствах (монитор, принтер
и т.д.) очень больших и очень малых чисел
в компактном формате. В экспоненциальном
представлении значения записываются
без начальных и конечных нулей и слева
от десятичного знака имеется только
одна цифра. Число умножается на 10 в
некоторой степени, чтобы показать, где
на самом деле находится десятичный
знак.

VBA
имеет шесть различных численных типов
данных: Byte,
Integer,
Long,
Single,
Double
и Currency.
Численные
типы данных используются для хранения
(и манипулирования) чисел в различных
форматах, в зависимости от конкретного
типа.

Обычно VBA-программа
(как и любые другие программы) «принимает»
решения, проверяя, являются ли истинными
различные условия. Для упрощения
тестирования условий и обеспечения
сохранения результатов такого тестирования
в VBA
имеется логический тип данных. Логические
значения True
и False
называют
булевыми
(Boolean)
значениями. Их название связано с именем
математика, разработавшего систему
математической логики. Логический тип
данных VBA
называют также типом Boolean.
Boolean-тип
VBA
требует двух байтов памяти и может иметь
одно из двух значений: True
или False.
Если вы
отображаете тип Boolean
на экране,
VBA
автоматически преобразует его в строку,
содержащую либо слово True,
либо False.
Булевы значения получают как

40

результат операции
сравнения.

VBA
использует тип Date
для хранения
дат и времени. Нет необходимости
беспокоиться о том, как VBA
хранит данные типа Date,
– можно просто отображать, сохранять
или манипулировать датами; VBA
автоматически управляет всеми деталями
преобразования последовательного числа
в год, месяц, день и время. VBA-тип Date
является
типом последовательных
дат (serial
Dates).
Последовательные даты сохраняют дату
как число дней от заданной стартовой
даты. Базовой датой для VBA-типа Date
является 30
декабря 1899.
VBA
использует отрицательные числа для
представления дат ранее 30.12.1899 и
положительные – для дат после 30.12.1899.
Число 0 представляет саму дату 30.12.1899.
По этой схеме 1 января 1900 записывается
числом 2 (1.1.1990 – это 2 дня после 30.12.1899),
однако число –2 является датой 28.12.1899
(два дня до 30.12.1899). Чтобы убедиться в
этом, напишите простую процедуру.

Задание 1. Напишите
процедуру, выводящую сообщение даты.

Для этого:

ь
напишите
процедуру (листинг 3):

Листинг
3 –
Процедура
DateTest

1 Sub DateTest()

2 Dim d As Date
3

1. d = 1

2. MsgBox d

6 End Sub

В результате работы
этой процедуры на экран будет выдана
базовая дата (рис. 15).

Рис. 15 В значении
последовательной даты целая часть
(цифры слева от десятичного знака) –
это общее число дней от базовой даты.
Последовательная дата VBA
может иметь цифры справа от десятичного
знака; эти цифры обозначают время дня
как часть дня. Один час – это 1/24 дня
(приблизительно 0,0416. Аналогично, одна
минута – это 1/1440 дня, а секунда – 1/86400
дня. Вы можете вычитать одну дату из
другой, добавлять к дате или вычитать
числа для изменения ее значения. Например,
если вам необходимо определить количество
дней между двумя датами, просто вычитайте
более раннюю дату из более поздней.
Поскольку это значения типа Date,
VBA
«знает», что целью вычисления является
получение разности в днях между двумя
этими датами. Аналогично, если вам
необходимо определить дату через 60 дней
после данной даты, просто прибавьте 60
к этой дате.

41

В VBA
имеется несколько встроенных процедур
(описанных в этой части) для отдельного
извлечения года, месяца, дня, часов,
минут и секунд из переменной типа Date.

Любые текстовые
данные, сохраняемые в программе VBA,
называются строками
(strings).
Строки в VBA
сохраняются с использованием типа
данных String.
Строки
получили такое название, потому что
текстовые данные обычно рассматриваются
как строки символов. Строка может
содержать текстовые символы любых
типов: буквы алфавита, цифры, знаки
пунктуации или различные символы.
Существуют две категории строк: строки
переменной длины, размер которых растет
или уменьшается, и строки фиксированной
длины, размер которых всегда остается
одним и тем же. Все строки в VBA
являются строками переменной длины,
если только вы не задаете фиксированную.
Большинство данных ввода пользователей
(в диалоговых окнах, ячейках рабочих
листов) – это строковые данные. Кроме
того, поскольку вы можете отображать
на экране только текст, все другие типы
данных должны быть преобразованы в
строковые данные перед тем, как вы
сможете их вывести на экран. Многие
встроенные процедуры VBA
(подобные Msgbox)
используют строковые данные во всех
или в некоторых своих аргументах.VBA
предоставляет несколько операторов
для конкатенации
(concatenate),
то есть для соединения вместе и для
сравнения строк. VBA
имеет также несколько встроенных
процедур, помогающих извлекать подстроки
из более длинных строк, находить символы
или слова в строке, изменять регистр
букв в строке и так далее. В этой части
описываются строковые операторы VBA
и процедуры для манипулирования строками
VBA.

Тип данных Variant
– это особый
тип данных, который может сохранять
любые типы, приведенные в табл. 9, за
исключением типа Object.
VBA
использует тип Variant
для всех
переменных, если только вы не объявляете
явно тип переменной, как будет описано
далее в этой части. Данные типа Variant
принимают
характеристики определенного типа,
который они сохраняют в данный момент.
Например, если данные типа Variant
содержат
строковые данные, Variant
принимает
характеристики типа String.
Если данные типа Variant
содержат
численные данные, Variant
принимает
характеристики какого-либо численного
типа, обычно – Double,
хотя типы Variant
могут также
иметь характеристики типов Integer,
Long,
Single
или Currency.
Несмотря на то, что типы Variant
удобны и
избавляют от некоторой части работы
при написании процедур, они требуют
большего объема памяти, чем любой другой
тип данных, за исключением больших
строк. Кроме того, математические
операции и операции сравнения над
данными типа Variant
выполняются
медленнее, чем подобные операции над
данными любого другого типа. В общем,
следует избегать использования переменных
Variant:
если вы будете полагаться на переменные
типа Variant,
может сформироваться привычка
неаккуратного программирования и вам
будет трудно находить и устранять ошибки
в программах.

Переменные

Переменная
(variable)
– это имя, которое программист дает
области

42

компьютерной
памяти, используемой для хранения данных
какого-либо типа. Переменные VBA
могут хранить любые типы данных,
перечисленные в табл. 9.

Идентификатор
(identifier)
– это имя, которое вы даете элементам
в создаваемых вами процедурах и модулях,
таким как переменные. Термин идентификатор
основывается на том факте, что имена,
которые вы создаете, определяют конкретные
участки памяти (в случае имени переменной),
группы инструкций (в случае имени макроса
или процедуры) или другие элементы
программы.

Имена переменных
не «чувствительны»
к состоянию регистра (not
case—sensitive),
то есть написание имени переменной
прописными или заглавными буквами не
имеет значения.

Самым простым
способом создания переменной является
использование ее в операторе VBA.
VBA
создает переменную и резервирует память
для ячейки памяти переменной, когда эта
переменная в первый раз появляется в
операторе (обычно в операторе, сохраняющем
значение данных в переменной).

Сохранение значения
данных в переменной называется
присваиванием
переменной (assigning
the
variable
или making
an
assignment).
Присваивание выполняется с помощью
оператора присваивания, представляемого
знаком равенства (=). Следующая строка
является примером присваивания значения
переменной:

MyVar
= 25

Этот оператор
сохраняет численное значение 25 в ячейке
памяти, заданной именем переменной
MyVar.

Создание переменной
путем ее использования в операторе
называется неявным
объявлением переменной (implicit
variable
declaration).
Используя переменную в операторе, вы
неявно указываете (объявляете) VBA,
что хотите создать эту переменную. Все
переменные, которые VBA
создает неявным объявлением переменной,
имеют тип данных Variant.
Неявное
объявление переменных известно также
как объявление переменных «на
лету» (on—the—fly).

Неявное объявление
переменных удобно, но имеет потенциальные
проблемы. Например, когда вы имеете
переменную с именем MyVar
и сделаете
позже ошибку в имени, набирая MVar.
В зависимости от того, где появится в
вашем коде неправильное имя переменной,
VBA
может выдать ошибку времени исполнения
или просто создать новую переменную.
Если VBA
создаст новую переменную, у вас могут
возникнуть проблемы, которые очень
трудно обнаружить.

По этим и другим
причинам VBA
предоставляет вам возможность выполнять
явное
(explicit)
объявление переменных.

Для явного объявления
переменных используйте VBA-оператор Dim
со следующим
синтаксисом:

Dim
name1
[, name2]

nameN
– это любой
допустимый идентификатор переменной.
Все переменные, которые вы создаете с
этой формой ключевого слова Dim,
являются переменными

43

типа Variant.

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

Задание 2.
Модифицируйте
процедуру HelloExcel
из предыдущей
части, используя явное определение
переменной.

Для этого:

ь
измените
процедуру HelloExcel
(листинг 4):

Листинг
4 –
Процедура
HelloExcel

1 Sub HelloExcel()

2 Dim
HelloMsg
‘ переменная для MsgBox
3

1. HelloMsg =
   «Здравствуй,
   Excel!»

2. MsgBox
   HelloMsg,
   , «Моя первая программа»

6 End
Sub

Оператор Dim
(в строке 2)
листинга 4 объявляет переменную HelloMsg
и резервирует
для нее область памяти (в данной
подпрограмме HelloMsg
– это
переменная типа Variant).
Строка 2 включает конечный комментарий,
указывающий назначение этой переменной.
В строке 4 выполняется присваивание
переменной HelloMsg
строки
«Здравствуй,
Excel!».
Далее (в строке 5) переменная HelloMsg
используется как один из аргументов
для процедуры MsgBox.
Функция MsgBox
отображает
то же окно сообщения, что и раньше. Хотя
MsgBox
получает
теперь свой первый аргумент из переменной,
эта переменная содержит ту же строковую
информацию, что была ранее (в листингах
предыдущей части) записана непосредственно
в оператор MsgBox.

Все переменные в
VBA,
независимо от того, объявляются ли они
неявно или явно, являются переменными
типа Variant,
если только вы не задаете тип переменной
в объявляющем ее операторе. Для объявления
типизированной
переменной
и ее типа с помощью оператора Dim
добавьте
ключевое слово As
после переменной, а затем введите имя
типа данных для этой переменной. Вот
общий синтаксис для использования
оператора Dim
при объявлении
типизированных переменных:

Dim
varnamel
[As
typel]
[, varname2
[As
type2]
]

varnameN
представляет
любое допустимое имя переменной VBA,
a
typeN
– любое из
имен типов данных VBA.

После объявления
типизированной переменной, независимо
от того, объявляется ли эта переменная
явно или неявно, и как задается тип, эта
переменная сохраняет тот же самый тип
столько времени, сколько она существует.
Нельзя переобъявить переменную или
переопределить ее тип.

При неявном
объявлении можно также задавать тип
переменной, добавляя

44

специальный
символ, называемый символом
определения типа (type—definition
character),
в конец имени переменной. В табл.
10 приводятся символы определения
типа VBA
и типы, которые они обозначают. Таблица
10 – Символы
определения типа

Тип

Single

Символ
определения

Тип

String

$ %

Символ
определения

@ #

Integer
Long

&

Currency
Double

Символы определения
типа могут находиться только в конце
имени переменной. Несмотря на то, что
следует знать, что такое символы
определения типа и как они используются,
необходимость в их применении бывает
редкой — использование оператора Dim
с ключевым словом As
намного легче и понятнее. Большинство
программистов, работающих на VBA,
не используют символы определения типа.

Задание 3.
Модифицируйте
процедуру HelloExcel
из задания
3, используя определение типизированной
переменной.

Для этого:

ь
измените
процедуру HelloExcel
(листинг 5):

Листинг
5 –
Процедура
HelloExcel

1 Sub HelloExcel()

2 Dim
HelloMsg As String
3

1. HelloMsg =
   «Здравствуй,
   Excel!»

2. Title$ =
   «Моя
   первая программа»

3. MsgBox HelloMsg, , Title$

7 End Sub

Эта версия процедуры
HelloExcel
работает во
многом так же, как и предыдущие. Строка
1 содержит объявление процедуры. В строке
2 оператор Dim
явно объявляет
переменную HelloMsg.
Поскольку оператор Dim
включает
ключевое слово As
и имя типа
String,
переменная HelloMsg
имеет тип
String.
Строка 4 присваивает текст сообщения
строковой переменной HelloMsg.
Строка 5 неявно объявляет переменную
Title$ и
в то же время присваивает переменной
текст заголовка окна сообщения. Поскольку
имя переменной Title$
имеет на
конце символ определения типа для
строки, эта переменная также имеет тип
String.
Наконец, строка 6 использует оператор
MsgBox
для отображения
окна сообщения; в этом операторе и текст
сообщения, и строка заголовка окна
являются переменными: HelloMsg
и Title$,
соответственно.

После добавления
символа определения типа к переменной
необходимо включать символ определения
типа каждый раз, когда вы используете
имя переменной.

Независимо от
того, объявляются ли переменные типа
String
с помощью
оператора Dim
или добавлением
символа определения типа $, создаваемые
вами строковые переменные по умолчанию
являются строками переменной длины.

45

Строковые переменные
переменной длины изменяют длину, в
зависимости от длины строки, сохраняемой
переменной. Иногда может понадобиться
использовать строку фиксированной
длины (fixed—length).
Строки фиксированной длины всегда имеют
одну и ту же длину. Следующая строка
показывает общий синтаксис для создания
строки фиксированной длины:

Dim
varname
As
String
* N

varname
– это любое
допустимое имя переменной, a
N
– это любое
число от 1 до 65400 символов

Область действия:
доступность переменных

Термин область
действия (scope)
относится к области процедуры или модуля
VBA,
где данная переменная, процедура или
другой идентификатор, являются доступными.
В этом части описываются два базовых
уровня области действия: процедурный
и модульный. Переменные, процедуры и
идентификаторы, которые доступны только
в процедуре, имеют область действия
процедурного уровня, а те, которые
доступны для всех процедур в модуле,
имеют область действия модульного
уровня.

Переменная,
объявленная в процедуре, является
доступной только в этой процедуре.
Например, переменная HelloMsg
из строки 2
листинга 5, является доступной только
в процедуре HelloExcel;
никакая другая процедура не имеет
доступа к этой переменной.

Поэтому говорят,
что переменная HelloMsg
имеет область
действия процедурного уровня
(procedure—level
scope).
В действительности, переменная HelloMsg
реально
существует только в то время, когда VBA
фактически выполняет процедуру
HelloExcel.

Задание 4. Создайте
две процедуры, область действия переменных
которых процедурного уровня.

Для этого:

ь
введите
две законченные процедуры (листинг 6):

Листинг
6 –
Процедура
HelloExcel

1 Sub HelloExcel()

2 Dim
HelloMsg As String
3

1. HelloMsg =
   «Здравствуй,
   Excel!»

2. MsgBox
   HelloMsg,
   , «Моя первая программа»

6 End
Sub
7

8 Sub HelloDave()

9 Dim
HelloMsg As String
10

1. HelloMsg =
   «Добрый
   день, Excel!»

2. MsgBox
   HelloMsg,
   , «Другое окно сообщения»

13 End
Sub

46

Строки 1–6 содержат
ту же процедуру HelloExcel
из листинга
4, которая работает точно так же. В модуль
была добавлена процедура HelloDave,
которая и начинается в строке 8 листинга
6. Процедура HelloDave
работает
так же, как процедура HelloExcel,
просто она отображает другое текстовое
сообщение и заголовок в своем диалоговом
окне. В строках 2 и 9 обе процедуры
используют оператор Dim
для объявления
локально переменных с именем HelloMsg.

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

VBA
позволяет объявлять переменные, доступные
для нескольких процедур. Когда какая-либо
переменная доступна всем процедурам в
модуле, говорят, что эта переменная
имеет область действия модульного
уровня (module
level).
VBA
ограничивает область действия переменной
модульного уровня модулем, в котором
объявляется эта переменная (VBA
предоставляет способы еще большего
расширения области действия переменной;
эти методы описываются далее).

Для того чтобы
переменная была доступной для всех
процедур в определенном модуле, поместите
оператор Dim
для нее в
начало модуля перед любыми объявлениями
процедур.

Упражнение 1

Создайте две
процедуры и единственное объявление
переменной модульного уровня (перенесите
в строку 1 оператор Dim
с переменной
HelloMsg
убрав строки
2 и 9 из листинга 6).

Имя переменной
должно быть уникальным в ее области
действия. Однако можно иметь переменные
с одним и тем же именем на разных
уровнях
области действия. Когда переменные
имеют одно имя, но разные области
действия, VBA
использует переменную с наиболее
локальной
(local)
областью действия.

Требование явного
объявления переменных

Хотя неявное
объявление переменных (объявление
переменных просто их использованием)
удобно, с ним связаны некоторые проблемы.
Когда переменные объявляются неявно,
существует риск нечаянно создать новую
переменную, когда на самом деле необходимо
использовать уже существующую, или
использовать существующую переменную,
когда пользователь намеревается создать
новую. Обе эти ситуации приводят к
ошибкам в коде, которые очень трудно
отслеживать.

Чтобы легче было
в любое время обнаруживать ошибки,
связанные с неявным объявлением
переменных, VBA
предоставляет команду Option
Explicit.
При использовании Option
Explicit
VBA
требует объявления всех переменных (с
помощью оператора Dim)
перед их использованием в модуле.

Чтобы установить
режим, при котором VBA
требует явного объявления для всех
переменных в модуле, добавьте команду
Option
Explicit
в область
объявлений модуля, то есть в начало
модуля перед любыми объявлениями
переменных или процедур. Такие команды,
как Option
Explicit,
называются директивами
компилятора (compiler
directives).

47

Команда Option
Explicit
действует
только на модуль, в котором она появляется.
Если проект, содержащий этот модуль,
содержит также другие модули, на них не
действует команда Option
Explicit.
Необходимо включать команду Option
Explicit
в каждый модуль, для которого требуются
явные объявления переменных.

Поскольку включение
Option
Explicit
во все модули
является очень полезным, Редактор VB
предоставляет способ автоматически
включать эту команду в каждый новый
модуль при его создании. Для того чтобы
Редактор VB
добавлял команду Option
Explicit
в каждый
новый модуль выполните следующие шаги:

ь
выберите
команду Tools/Options
(Сервис/Параметры);
Редактор VB
отображает диалоговое окно Options;

ь
щелкните
на вкладке Editor
(Редактор)
для отображения параметров редактирования,
если необходимо;

ь
выберите
флажок Require
Variable
Declaration
(Явное
описание переменных);

ь
выберите
ОК.
Редактор VB
закрывает диалоговое окно Options.

Упражнение 2

Установите
автоматическое включение команды Option
Explicit
в каждый
новый модуль при его создании.

Константы

Константа
(constant)
– это значение в программе VBA,
которое не меняется. Примеры процедур,
уже приведенные выше, используют
строковые константы типа «Здравствуй,
Excel!»
и «Моя
первая программа».
Константы, подобные им, называют
литеральными
константами (literal
constants),
потому что литеральное значение
записывается непосредственно в код.

В коде VBA
можно также писать литеральные численные
константы и даты; примеры численных
литеральных констант включают числа
25,
3.14.
Примеры литеральных констант-дат
включают даты #12/31/96#
или #октябрь
28, 1997# (вы
узнаете подробнее о написании констант-дат
далее в этой части).

VBA
позволяет создавать именованные
константы (named
constants).
Именованная константа, подобно переменной,
имеет заданное ей имя; это имя представляет
конкретное неизменяемое значение.
Однако в отличие от переменной значение
именованной константы никогда не
изменяется. Следующая строка показывает
общий синтаксис для объявления именованных
констант:

Const
namel
= valuel
[operator
name2…]
_

[, патеЗ
= value3
[operator
name4]
… ]

nameN
представляет
любой допустимый идентификатор, valueN
– любое
значение данных: численное, строковое
или дата, a
operator
– арифметическая
или операция сравнения между двумя
именами ранее описанных констант.
Следующие строки показывают несколько
объявлений именованных констант: Const
Pi
= 3.14, text
= «Здравствуй, Excel!»

48

Const
Pi2
= 2*Pi

Область действия
констант

Как и в случае с
переменными, можно объявлять именованные
константы в процедурах или в области
объявлений в начале модуля. Константа,
объявляемая в процедуре, имеет область
действия процедурного уровня, а константа,
объявляемая в области объявлений модуля,
– область действия модульного уровня.
Для именованных констант выполняются
те же правила области действия, что и
для переменных.

Написание
литеральных констант

При написании
литеральных строковых констант в коде
VBA
выполняйте следующие правила:

ь
строковые
константы должны быть заключены в
двойные кавычки («);

ь
пустая
строковая константа (называемая нулевой
строкой –
null
string
или empty
string)
обозначается двумя двойными кавычками,
между которыми ничего нет («»);

ь
строковая
константа должна вся находиться на
одной и той же строке.

При написании
литеральных численных констант в коде
VBA
выполняйте следующие правила:

ь
численные
константы должны состоять только из
числовых символов от 0 до 9;

ь
численная
константа может начинаться со знака
(–) и может содержать десятичную точку;

ь
можно
использовать экспоненциальное
представление для численных констант.

VBA
распознает константы даты в любом
из нескольких различных форматов;
необходимо помещать все константы даты
между знаками фунта (#). Следующие строки
показывают некоторые из форматов
констант дат, которые распознает VBA:
#2-5-97 21:17:34# #February
5, 1997 9:17:34pm#
#Маг-31-97# #15 April
1997#

Независимо от
того, в каком из указанных форматов
записывается литеральная константа
типа Date,
VBA
переформатирует эту константу (когда
курсор вставки будет убран со строки
после записи константы) для соответствия
одному из двух следующих форматов, в
зависимости от того, содержит ли константа
Date
информацию о времени: #2/5/1997 9:17:34 PM#
#2/5/1997# Существует только две правильные
константы типа Boolean:
True
и False.

Задание типа
константы

Когда вы объявляете
именованную константу или используете
литеральную константу, VBA
«считает», что значение, представленное
этой константой, имеет

49

тип данных, наиболее
согласующийся с выражением, присвоенным
константе.

В VBA
можно задать тип константы. Общий
синтаксис для объявления типизированной
константы следующий:

Const name
As
type
= value [,
name
As
type
= value ]

name
– это любое
допустимое имя константы, type
– имя любого
из типов данных VBA
и value
– значение,
которое вы присваиваете константе.

Следующая строка
иллюстрирует правильное объявление
константы с определенным типом:

Const Pi As Double = 3.14

Внутренние
константы

VBA
предоставляет несколько внутренних
констант (intrinsic
constants),
называемых также предопределенными
константами (predefined
constants).
Внутренняя константа – это именованная
константа, которая была определена
разработчиками VBA.
Внутренние константы, определяемые
VBA,
все начинаются с букв vb
для указания
того, что они определяются языком Visual
Basic
for
Applications
(или Visual
Basic).
Например, константы vbOKOnly,
vbOKCancel
определяются
VBA.
Внутренние константы Excel
2002 начинаются с букв xl,
чтобы было понятно, что они определяются
Excel.
Благодаря внутренним константам, легче
использовать некоторые встроенные
процедуры VBA,
такие как оператор MsgBox,
о котором вы уже знаете, и оператор
InputBox,
о которых
рассказывается далее в этой части.

Отображение окон
сообщений. Получение данных от пользователя

Получение данных
от пользователя, сохранение их в
переменной и отображение результатов
действий, выполненных над ними, являются
основными элементами, необходимыми для
написания интерактивных процедур.
Интерактивная
(interactive)
процедура – это процедура, обменивающаяся
информацией с пользователем, то есть
процедура взаимодействует с пользователем,
отображая сообщения и получая ввод.

Функция MsgBox
отображающая
окно с сообщением имеет следующий
синтаксис:

MsgBox
(Prompt
[,
Buttons]
[, Title]
[, HelpFile,
Context])

аргумент Prompt
представляет
любое строковое значение (литерал,
константу или переменную). MsgBox
отображает
эту строку в диалоговом окне; необходимо
всегда предоставлять аргумент Prompt,
поскольку это – обязательный
аргумент (required
argument).
Аргумент Buttons
(необязательный
аргумент), является численным выражением,
определяет отображаемые в диалоговом
окне кнопки и сообщений. Аргумент Title
представляет
любое строковое значение (литерал,
константу или переменную). MsgBox
отображает
текст этой строки в строке заголовка
диалогового окна. Если опустить аргумент
Title,
VBA
отображает в строке заголовка диалогового
окна MsgBox
слово
«Microsoft
Excel«.
Аргумент HelpFile
– файл
справки, Context
– раздел в
справочном файле. Текст сообщения можно
заключать в скобки, но скобки необязательны,
когда функция MsgBox

50

используется как
оператор.

Данные, вводимые
пользователем, называются входными
данными (input).
Чтобы получить входные данные от
пользователя процедуры, используйте
функцию InputBox.
Функция
(function)
– это особый тип процедуры VBA,
возвращающей значение. Функция InputBox
отображает
диалоговое окно, содержащее текст,
который запрашивает пользователя ввести
некоторое значение, и текстовое окно
для ввода этого значения. Диалоговое
окно, отображаемое InputBox,
содержит
также командные кнопки ОК
и Cancel.

Функция InputBox
имеет
следующий синтаксис:

stringvar
=
InputBox (Prompt
[,
Title]
[, Default]
[, XPos]
[, YPos]
_

[, HelpFile,
Context])

Здесь stringvar
представляет
любую переменную, которая может сохранять
строку (либо переменную типа String,
либо – Variant).
Аргумент Prompt
представляет
любое строковое значение (литерал,
константу или переменную). InputBox
отображает
эту строку как запрос в диалоговом окне;
необходимо всегда предоставлять аргумент
Prompt,
поскольку это – обязательный
аргумент;
все остальные – необязательные. Аргумент
Title
является
вторым аргументом для InputBox.
Title
представляет
любое строковое значение (литерал,
константу или переменную). InputBox
отображает
текст этой строки в строке заголовка
диалогового окна. Если опустить аргумент
Title,
VBA
отображает в строке заголовка диалогового
окна InputBox
слово
«Microsoft
Excel«.
Аргумент Default
– строковое
выражение, отображаемое в поле ввода
как используемое по умолчанию, если
пользователь не введет другую строку;
если это аргумент опущен, поле ввода
изображается пустым. Аргументы XPos
и YPos
могут быть
любыми численными выражениями. Эти
аргументы позволяют указать, где в
активном окне появляется окно ввода, и
являются координатами верхнего левого
угла диалогового окна: XPos
– горизонтальное
расстояние от левого края окна; YPos
– это
вертикальное расстояние от верхнего
края окна. Оба расстояния измеряются в
твипах (twips);
один твип равен 1/20 точки (точка – это
измерение шрифта печати). Поскольку
точка составляет 1/72 часть дюйма, то один
твип приблизительно равен 0,0007 дюйма.
Последние два необязательных аргумента
для функции InputBox
– это HelpFile
и Context.
Они имеют то же назначение, что и подобные
аргументы функции MsgBox.

Использование
именованных аргументов функций

Как вы могли уже
заметить, легко нечаянно опустить
отмечающие запятые или переставить
значения аргументов в функциях, имеющих
необязательные аргументы или несколько
аргументов, несмотря на помощь свойства
Auto
Quick
(Краткие
сведения)
Редактора VB.
Пропуск или перестановка аргументов в
списке аргументов функции могут привести
к ошибкам несовпадения типов. Ошибка
(что еще хуже) может быть не обнаружена.
Чтобы предотвратить ошибки программирования
и сделать более легким использование
функций, имеющих необязательные
аргументы, VBA
предоставляет альтернативу перечислению
значений в списке аргументов в определенном
порядке. Можно также передавать

51

значения аргументов
функции, используя именованные
аргументы (named
arguments)
функций. Следующие строки показывают
два оператора MsgBox,
которые имеют один и тот же результат;
первый оператор использует обычный
метод перечисления аргументов, а второй
– метод именованных аргументов:

MsgBox AnyMsg, , AnyTitle

MsgBox Prompt:=AnyMsg,
Title:=AnyTitle

Символ, который
присваивает значение именованному
аргументу (:=), не является в точности
тем же обычным оператором присваивания
(=). Если опустить двоеточие (:) во время
присваивания значения именованному
аргументу, VBA
не обязательно обнаружит ошибку
синтаксиса, но не может интерпретировать
этот оператор правильно. Когда VBA
выполняет этот оператор, он отображает
одну из нескольких возможных ошибок
времени исполнения, часто – ошибку
несовпадения типов.

Нельзя смешивать
именованные аргументы с обычным списком
аргументов в одном и том же вызове
функции. Необходимо использовать либо
именованные аргументы, либо список
обычных аргументов для каждого отдельного
вызова функции.

Задание 5. Напишите
процедуру, вычисляющую площадь круга,
но радиус круга получает от пользователя
процедуры.

Для этого:

ь
введите
процедуру (листинг 7):

Листинг 7 –
Получение входных данных при помощи
оператора InputBox

1. Const Pi
   As Single =3.14 ‘ аппроксимация
   значения
   pi

2. Dim
   CircleArea
   As
   Single
   ‘ сохраняет вычисленную площадь круга
   3

4 Sub
List3_07 ()

1. Const
   BoxTitle = «Площадь
   круга»

2. Dim Radius As Single, Temp As
   String 7

1. Temp =
   InputBox(«Введите радиус
   » & Chr(13) & «круга»,
   BoxTitle)

2. Radius = CSng(Temp)

3. CircleArea = Pi * Radius *
   Radius

4. MsgBox
   CircleArea, vbInformation +
   vbOKCancel,
   BoxTitle

Строки 1 и 2 листинга
7 объявляют константу Pi
и переменную
CircleArea
модульного
уровня. Строка 4 содержит фактическое
объявление процедуры. Строка 5 объявляет
константу процедурного уровня BoxTitle;
эта константа имеет только локальный
доступ в процедуре List3_07.
На строке 8 оператор вызывает функцию
InputBox.
Она отображает свой первый аргумент
как текст в диалоговом окне, запрашивая
у пользователя ввести значения
какого-либо типа. В этом операторе
InputBox
отображает
текст «Введите радиус круга»
(функция Chr(13)
– символ перехода на новую строку),
чтобы сообщить пользователям процедуры,
какое значение они должны ввести.
InputBox
использует
второй аргумент,

52

12 End
Sub

представленный
константой BoxTitle,
в качестве заголовка диалогового окна.
При выполнении оператора InputBox
отображается
диалоговое окно (рис. 16)

Площадь
круга

Введите
радиус круга

_Р

ОК

Cancel

]

Рис. 16 Пользователь
вводит число в текстовое окно и выбирает
командную кнопку ОК
или Cancel,
чтобы закрыть диалоговое окно, как и
любое другое окно Windows.
Всякий раз, когда вы вызываете какую-либо
функцию, необходимо как-то использовать
значение, возвращаемое функцией.
Значение, возвращаемое функцией,
называется результатом
функции (function
result).
Как показано в строке 8 в случае с
функцией InputBox,
результат которой присваивается
переменной Temp.
Результат функции InputBox
всегда
является строкой (вот почему переменная
Temp
была объявлена
как String).
Поскольку переменная Temp
была объявлена
явно как String,
значение строки должно быть преобразовано
в численное значение перед тем, как
можно будет его использовать в
математических вычислениях. Строка 9
листинга 7 выполняет именно это, используя
встроенную VBA-функцию CSng
для
преобразования пользовательских данных
ввода в число с типом Single.

Выражения в
Visual
Basic

Выражение
(expression)
– это значение или группа значений,
выражающая отдельное значение. Каждое
выражение вычисляется
до (или имеет
результатом) отдельного значения.
Выражения состоят из одной или более
следующих частей: константы (литеральные
или именованные), переменные (любого
типа данных), знаки операций, массивы,
элементы массива, функции.

Все выражения
имеют результатом одно значение
определенного типа данных. Выражения
могут также иметь результатом одно из
специальных значений Empty
(неинициализированную
переменную типа Variant
или результат
выражения, содержащий неинициализированную
переменную типа Variant)
или Null
(Null
представляет
выражение, содержащее неверные данные).
Когда вы используете какой-либо знак
в выражении, элементы данных (переменные
или константы), над которыми производится
действие, называются операндами
(operands);
большинству операций требуется два
операнда.

Совместимость
типов данных. Автоматическое преобразование
данных

Не все типы данных
совместимы друг с другом, и нельзя
использовать несовместимые типы данных
в одном и том же выражении. Например,
не имеет смысла арифметическое сложение
строки с числом, так как такое выражение
не является значащим и VBA
не может его оценить.

Многие типы данных
совместимы друг с другом. Например, вы
можете

53

объединять различные
численные типы данных в одном и том же
выражении; VBA
автоматически выполняет необходимые
преобразования типа различных численных
типов. VBA
может также иногда автоматически
преобразовывать другие типы данных
так, чтобы все типы в выражении были
совместимы, хотя это не всегда возможно.
Очень важно контролировать и знать тип
выражения, потому что если выражения
содержат несовместимые типы, VBA
выдает ошибку времени исполнения –
ошибку несовпадения
типов (type—mismatch).
При обработке выражения, содержащего
различные типы данных VBA
сначала «пытается» устранить любое
различие типов, преобразуя значения в
выражении в совместимые типы данных.
Если устранить какие-либо различия
преобразованием типов не удается,
отображается ошибка времени исполнения
и процедура прекращает выполняться.
Например, в выражении 25 & «Информатика»
VBA
всегда выполняет строковую конкатенацию
(соединяет две строки), независимо от
типов переменных; результатом является
тип String;
это выражение никогда не вызывает ошибки
несовпадения типов.

VBA
обычно преобразует все численные типы
данных в выражении в тип наибольшей
точности, а затем дает этот тип результату
выражения. Например, если выражение
содержит численные значения с типами
Integer
и Single,
результат
выражения является типом Single
– тип
наибольшей точности в этом выражении.
Если вы присваиваете результат численного
выражения переменной с наименьшей
точностью, чем фактический тип результата
выражения, VBA
округляет результат выражения до тех
пор, пока его точность не совпадет с
ожидаемым типом. Например, если вы
присваиваете численное выражение,
имеющее результатом число типа Double,
переменной
типа Integer,
VBA
округляет число двойной точности до
типа Integer.

При преобразовании
числа в строку VBA
создает строку, содержащую все цифры
этого числа и десятичный знак (если
число имеет его). Число 3413.72 (точка
используется для записи числа в коде),
например, преобразуется в строку
«3413,72». Если число очень большое
или очень маленькое, VBA
может создать строковое представление
числа в экспоненциальной записи;
например, число 0.0000000004927 преобразуется
в строку «4,927Е–11».

VBA
может преобразовывать строку в число,
если только эта строка содержит символьное
представление числа в десятичном формате
или экспоненциальном. Строки «988,6»,
«812», «-186,7», «1,ЗЕ10»
представляют числа, и VBA
может преобразовать их в числа. Строки
«1.045», «$74.550» и «С добрым
утром!» не могут быть преобразованы
в числа.

Когда VBA
преобразует значения типа Boolean
в числа,
значение True
преобразуется
в 1, а значение False
– в 0. Когда
VBA
преобразует число в тип Boolean,
нуль преобразуется в False,
а любое другое значение преобразуется
в True.
Когда VBA
преобразует значения типа Boolean
в строки,
VBA
использует строку «True»
для True
и «False»
– для False.

Когда VBA
преобразует тип данных Date
в число,
результатом является численное значение
– число типа Double,
которое содержит количество дней от 30
декабря 1899 (отрицательное число
представляет дату, более раннюю, чем
12/30/1899). Десятичная часть числа (если
имеется) выражает время дня как часть

54

дня; 0 — это полночь,
а 0.5 — это полдень. В VBA
преобразование численных типов данных
в типы Date
является
просто обратным преобразованию типа
Date
в число.

Оператор
присваивания (=)

Этот оператор
используется для присваивания результата
выражения переменной. Синтаксис формы
оператора присваивания следующий:

varname
= expression

переменная varname
— любая
переменная, a
expression
— любое
выражение.

При выполнении
оператора присваивания VBA
сначала вычисляет выражение справа от
оператора присваивания (=), а затем
сохраняет результат выражения в
переменной, имя которой находится слева
от оператора присваивания.

Изображение
оператора присваивания на блок-схеме:

varname
= expression

Когда вы присваиваете
результат выражения переменной с
определенным типом данных, этот результат
может иметь тип данных, совместимый с
типом переменной, получающей новое
значение. Во многих случаях, VBA
может преобразовывать тип данных
результата выражения в тип, совместимый
с типом переменной, принимающей новое
значение, если результат выражения и
переменная еще не имеют совместимых
типов. Переменным типа Variant
может быть
присвоен любой тип данных.

Арифметические
операции

VBA
может выполнять все обычные арифметические
операции (реализуемые посредством
арифметических выражений): сложение,
вычитание, умножение и деление, а также
возведение чисел в указанную степень
и предоставляет дополнительные особые
математические операции для целочисленного
деления и деления по модулю (табл. 11).

Таблица 11 —
Знаки операций (обозначения), используемые
в арифметических VBA-выражениях
(Ni
— это любое допустимое численное выражение
VBA)

55

Оба операнда должны
быть численными выражениями или строками,
которые VBA
может преобразовать в число.

Операции сравнения

Операции сравнения
иногда также называют операциями
отношения (relational
operators).
Чаще всего операции сравнения используются
для того, чтобы задать критерии для
принятия решения или сформулировать
описание условий, при которых группа
команд должна быть повторена (организация
циклов).

Результатом любой
операции сравнения является значение
типа Boolean:
True
или False.
Операции сравнения используются для
сравнения литеральных, константных или
переменных значений любого сходного
типа (табл. 12).

Наименование/описание

Равенство.
True,
если El
равно Е2, иначе – False

Меньше,
чем. True,
если El
меньше, чем Е2, иначе – False

Меньше, чем или
равно. True,
если Е1 меньше или равно

Е2, иначе – False

Больше,
чем. True,
если Е1 больше, чем Е2, иначе – False

Больше, чем или
равно. True,
если Е1 больше или равно

Е2, иначе – False

Не равно. True,
если Е1 не равно Е2, иначе – False

Оба операнда
должны быть значениями типа Object.
True,
если El
ссылается на тот же самый объект, что
и Е2, иначе
– False
Подобие.
Оба операнда
должны быть значениями типа

Таблица 12 –
Знаки (обозначения) операций сравнения
(Е в этой таблице представляет любое
действительное выражение VBA)

с

образцом,

String.
True,
если
El
совпадает

содержащимся в
Е2, иначе – False
Если оба
операнда в выражении сравнения имеют
один и тот же тип данных, VBA
выполняет простое сравнение для этого
типа. Если, например, оба операнда
являются строками, VBA
выполняет сравнение строк; если оба
операнда являются датами, то VBA
выполняет сравнение дат и так далее.

Двоичное и
текстовое сравнение строк

VBA
предоставляет два различных способа
сравнения символов различных регистров.
Первый метод, который VBA
использует для сравнения строк, называется
бинарным
(binary)
или двоичным
сравнением и является методом сравнения
по умолчанию. Для выбора метода сравнения
строк, имеющегося в VBA
(двоичного или текстового), используйте
директиву Option
Compare:

Option
Compare
[Binary
| Text]

В текстовом
сравнении VBA
«рассматривает» буквы верхнего регистра
как эквивалентные буквы нижнего регистра.

56

Конкатенация
строк

VBA
дает возможность объединять (склеивать)
строки вместе для образования более
длинных строк. Присоединение одной
строки к другой называется конкатенацией
(concatenation)
строк. Знак & можно использовать только
для конкатенации строк. Общий синтаксис
знака & такой:

Operand1
& Operand2
[& Operand3…]

Operand1
и Operand2
– любые
допустимые строковые или численные
выражения. Если один или оба операнда
являются численными выражениями, VBA
преобразует числа в строки перед
выполнением операции конкатенации. Тип
данных результата конкатенации строк
– это всегда тип String.

Логические
операторы

Чаще всего логические
операторы VBA
используются для объединения результатов
отдельных выражений сравнения, чтобы
создать сложные критерии для принятия
решений в процедуре, или для создания
условий, при которых группа операторов
должна повторяться (табл. 13).

Таблица 13 –
Логические операторы (Е в этой таблице
представляет собой любое допустимое
выражение с результатом типа Boolean,
такое как операция сравнения)

Оператор
Синтаксис Имя/Описание

And El
And
E2
Конъюнкция.
True,
если оба Е1 и Е2 имеют значение

True,
иначе – False
Or El
Or
E2 Дизъюнкция.
True,
если одно выражение или оба (Е1 и

Е2) являются
равными True;
иначе – False
Not Not
El Отрицание.
True,
если Е1 имеет значение False;
False,

если El
является
равным True

Исключение.
True,
если Е1 и Е2 имеют разные

значения; иначе
– False

Эквивалентность.
True,
если Е1 имеет то же самое

значение, что и
Е2; иначе – False

Импликация.
False,
когда Е1 является равным True
и

Е2 равно False;
иначе — True.

Приоритеты
выполнения операций при вычислении
сложных выражений

Сложное (составное)
выражение
(complex
expression)
– это любое выражение, образованное из
двух или более выражений. Многие из
записываемых вами выражений – это
сложные выражения, особенно, если они
определяют управление последовательностью
выполнения кода в процедурах или
представляют различные математические
формулы (табл. 14).

57

Таблица 14 –
Иерархия операторов/операций от
наивысшего до самого низкого приоритета

Использование
функций Visual
Basic

Вы уже пользовались
встроенными VBA-функциями: InputBox
и MsgBox.
Функция
(function)
– это встроенная формула, выполняющая
действия над выражениями и генерирующая
значение. Функция всегда возвращает
значение, которое VBA
вставляет в программу в том месте, где
появляется имя функции. Функции VBA
делятся на несколько групп в зависимости
от типа операции или вычисления, которое
они выполняют. Не путайте термины функция
и процедура.
Обычно процедура выполняет определенную
задачу (или группу задач) подобно тому,
как определенная команда меню в Excel,
Word
или другом приложении выполняет
конкретную задачу. Функция оперирует
одним или более значениями и возвращает
некоторое результирующее значение (как
формула в ячейке рабочего листа Excel).
Чтобы использовать функцию, просто
вводите имя функции в оператор VBA
вместе с любыми аргументами, которые
требуются для этой функции, в том месте
в операторе, где вам необходимо
использовать результат функции. Помещение
имени функции в оператор VBA
для активизации функции называют вызовом
(calling)
функции.

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

58

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

VBA
предоставляет стандартный набор
математических функций (табл. 15). Таблица
15 –
Математические функции VBA
(N
означает любое численное выражение)

Возвращает/действие

Функции(ар-

гументы)

Возвращает
абсолютное значение N

Abs(N)

Косинус
угла N,
где N
– это угол, измеренный в радианах

Cos(N)

Возвращает
синус угла; N
– это угол, измеренный в радианах

Sin(N)

Tan(N)

Возвращает
тангенс угла; N
– угол в радианах

Atn(N)

Возвращает
арктангенс N
как угол в радианах

Exp(N)

Возвращает константу
е,
возведенную в степень N
(е –
это основание натуральных логарифмов
и она (приблизительно) равна
2,718282)

Fix(N)

Возвращает целую
часть N.
Fix
не округляет число, а отбрасывает любую
дробную часть. Если N
является отрицательным, Fix
возвращает ближайшее отрицательное
целое большее,
чем или равное N

Int(N)

Log(N)

Возвращает целую
часть N.
Int
не округляет число, а отбрасывает любую
дробную часть. Если N
является отрицательным, Int
возвращает ближайшее отрицательное
целое меньшее,
чем или равное N
Возвращает натуральный логарифм N

Rnd(N)

случайное

число;

аргумент

является

Возвращает

необязательным.
Используйте функцию Rnd
только после

инициализации
VBA-генератора случайных чисел оператором

Sgn(N)
Sqr(N)

Randomize

Возвращает знак
числа: –1, если N
– отрицательное; 1, если N
–

положительное;
0, если N
равно 0

Возвращает корень
квадратный из N.
VBA
отображает ошибку

времени исполнения,
если N
– отрицательное

Функции
преобразования данных

Visual
Basic
предоставляет несколько функций для
преобразования одного типа данных в
другой (табл. 16). Используйте эти функции
для устранения ошибок несовпадения
типов и обеспечения явного контроля за
типами данных в выражениях.

Таблица 16 –
Функции преобразования данных (N
– это любое численное, S
– любое строковое, а Е – выражение
любого типа)

Функция(ар-
Возвращает/действие гументы)

Возвращает число
кода символа, соответствующее первой
букве строки
S.
Буква «А», например, имеет код
символа 65

Asc(S)

59

60

Функции
даты и времени

VBA-функции даты и
времени обычно используются для
получения текущей даты и времени,
разбиения значения даты на ее составляющие
части или для преобразования строк и
чисел в значения типа Date
(табл. 17).

Таблица 17 –
Функции даты и времени (N
– любое допустимое численное выражение,
a
D
– любое допустимое выражения типа Date
(включая
значения типа Date,
числа или строки, которые VBA
может преобразовать в дату); все аргументы
функций являются обязательными, если
только не указано иначе)

Возвращает/действие

Функции(ар-

гументы)

Date

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

Time

Now

Возвращает
системное время компьютера как значение
типа Date.
Можно также использовать эту функцию
как процедуру для установки системных
часов. Более подробно можно узнать из
справочной системы VBA
Возвращает системную дату и время

Year(D)

Month(D) Day(D)

Возвращает целое,
являющееся частью выражения типа Date
и

содержащее год.
Год возвращается как число между 100 и
9999

Возвращает целое,
являющееся частью выражения типа Date,

содержащее месяц.
Месяц возвращается как число между 1 и
12,

включительно

Возвращает целое,
являющееся частью выражения типа Date
и

Weekday(D)
Hour(D)

содержащее день.
День возвращается как число между 1 и
31,

включительно

Возвращает целое,
содержащее день недели для выражения
типа

Date.
День недели возвращается как число
между 1 и 7,

включительно;
1 – это воскресенье, 2 – понедельник и
так далее

Возвращает целое,
содержащее часы как часть времени,

содержащегося в
выражении типа Date.
Часы возвращаются как

число между 0 и
23, включительно. Если выражение D
не

содержит значения
времени, то Hour
возвращает 0

61

Функции(ар-гументы)

Minute(D)

Second(D)

DateAdd(S,
N, D)

DateSerial(N, N, N)

TimeSerial(N,
N,
N)

DateValue(E)

TimeValue(E)

Возвращает/действие

Возвращает целое,
содержащее минуты как часть времени в

выражении типа
Date.
Минуты
возвращаются как число между 0

и 59, включительно.
Если выражение D
не содержит значения

времени, Minute
возвращает 0

Возвращает целое,
содержащее секунды как часть времени
в

выражении типа
Date.
Секунды возвращаются как число между

0 и 59, включительно.
Если выражение D
не содержит значения

времени, Second
возвращает 0

Возвращает значение
[тип Variant
(Date)],
содержащее дату, к

DateDiff(S,
D1,
Возвращает значение [тип Variant
(Long)]
числа временных
D2[,
Nl
[, N2
]]) интервалов между двумя определенными
датами
DatePart(S,
D,
[, Возвращает определенную часть
[тип Variant
(Integer)]
N1
[, N2]]) заданной
даты

которой добавлен заданный
интервал времени

Возвращает значение
последовательной даты для заданной
даты. Слева направо аргументы представляют
год, месяц и день. Аргумент года должен
быть целым числом между 100 и 9999, месяца
— между 1 и 12, дня — между 1 и 31 (все
диапазоны являются
включающими)

Возвращает
значение последовательного времени.
Слева направо аргументы
представляют часы, минуты и секунды.
Аргумент часов должен быть целым числом
между 0 и 23, аргументы минут
и секунд должны оба быть числами от 0 по
59 Возвращает
значение типа Date,
эквивалентное дате, заданной аргументом
Е, который должен быть строкой, числом
или константой,
представляющей дату

Timer

полуночи в
соответствии с системным временем
компьютера Некоторые
из перечисленных функций уже использовались
в примерах этой книги, другие — будут
использоваться далее.

Строковые функции

Строковые функции
VBA
часто применяются для нахождения
заданных строк внутри других строк,
для сравнения одной строки с другой и
копирования выбранных частей строк
(табл. 18).

Возвращает значение типа
Date,
содержащее время, заданное аргументом
Е, который может быть строкой, числом
или

константой, представляющей
время

Возвращает число,
представляющее количество секунд
от

62

Таблица 18 –
Строковые функции (N
– это любое допустимое численное
выражение, a
S
– это любое допустимое строковое
выражение)

Функция(ар-
Возвращает/действие гумент)

InStr([N1,]

S1,

Возвращает
положение S2
в S1.
N1
– начальное положение для

поиска; N2
определяет тип сравнения. N1
и N2
необязательны. Если N2
опускается, то для поиска используется
текущая установка
Option
Compare
InStrRev(Sl,
S2
Возвращает позицию появления
строки
S2 внутри
S1

S2[, N2])

[, Nl[, N2]]) LCase(S)

Left(S, N)

Len(S)
LTrim(S)

Mid(S, N1, N2)

Right(S, N)

RTrim(S)

Space(N)
StrComp(Sl,
S2, N)

StrConv(S,
N)

в направлении от
конца (или N1)
к началу строки. N2
определяет тип сравнения. Если N2
опускается, то для поиска используется

текущая установка Option
Compare

Возвращает строку
(тип String),
содержащую копию S
со всеми символами верхнего регистра,
преобразованными в символы нижнего
регистра

Возвращает строку;
копирует N
символов из S,
начиная с левого крайнего
символа S

Возвращает число
символов в S,
включая начальные и конечные пробелы

Возвращает копию
строки S
после удаления символов пробела из
левой части строки (начальные пробелы)
Возвращает
строку; копирует N2
символов из S,
начиная с позиции символа в S,
заданной аргументом N1.
N2
является необязательным; если N2
опущен, то Mid
возвращает все символы
в строке S
от позиции N1
до конца строки Возвращает
значение типа String;
копирует N
символов из S,

начиная с правого
крайнего символа S

Возвращает копию
строки S
после удаления символов пробела

из правой части
строки (конечные символы)

Возвращает
строку пробелов длиной N
символов

Сравнивает S1
с S2
и возвращает число, обозначающее
результат сравнения: -1, если SI
< S2;
0, если SI
= S2;
1, если SI
> S2.
N
является необязательным и указывает,
следует ли выполнять сравнение с учетом
регистра. Если N
опускается, строки сравниваются с
использованием текущей установки
Option
Compare

Возвращает строку,
преобразованную в новую форму в
зависимости от числового кода, заданного
аргументом N.
VBA
предоставляет внутренние константы
для использования с функцией StrConv;
наиболее полезными являются: vbProperCase
(преобразует
строку так, что каждая буква, начинающая
слово, становится заглавной), vbLowerCase
(преобразует
строку в буквы нижнего регистра) и
vbUpperCase
(преобразует
строку в буквы верхнего регистра)

63

Функция(ар-
Возвращает/действие гумент)

String(N,
S)
Возвращает строку длиной N
символов, состоящую из символа,

заданного первым
символом в S
Trim(S) Возвращает
копию строки S
после удаления начальных и

конечных символов
пробела из этой строки
UCase(S) Возвращает
S
со всеми символами нижнего
регистра,

преобразованными
в символы верхнего регистра Несколько
перечисленных в табл. 16 функций
преобразования типа данных относятся
также к манипулированию строками: Chr,
Format,
CStr,
в частности.

Форматирование
значений данных

Хотя VBA
может автоматически преобразовывать
любой тип данных в строку для отображения
с помощью функции MsgBox
или для вставки в рабочий лист Excel,
формат данных, который выбирает VBA,
может не совпадать с желаемым. При
преобразовании числа в строку VBA
не добавляет в строку разделитель тысяч,
символы доллара или другое числовое
форматирование. Кроме того, если число
очень большое или очень малое, VBA
создает строку, представляющую это
число в экспоненциальном формате. При
преобразовании дат VBA
всегда использует короткий формат даты
и времени, используемый операционной
системой компьютера, и всегда отображает
и дату, и время.

Для получения
почти любого формата дат при преобразовании
чисел или дат в строки можно использовать
функцию Format;
можно даже использовать функцию Format
для
форматирования строковых данных в
соответствии с определенным шаблоном.
Можно также создавать пользовательские
экранные форматы, если вам необходимо,
чтобы данные появлялись в каком-либо
особом формате. Синтаксис оператора
Format:

Format(Expression
[, Format[,
Firstdayofweek
[,
Firstweekofyear]]])

Expression
– любое
допустимое выражение (обязательный);
Format
– допустимое
выражение именованного или определенного
пользователем формата (необязательный);
Firstdayofweek
– константа,
которая определяет первый день недели
(необязательный); Firstweekofyear
– константа,
которая определяет первую неделю года
(необязательный).

Для аргументов
Firstdayofweek
и Firstweekofyear
в VBA
имеются именованные константы, о которых
можно узнать из справочной системы VBA
в разделе Date
Constants.

Чтобы использовать
функцию Format,
можно либо задать предопределенный
формат (называемый именованным
форматом (named
format),
либо создать образ определенного
формата, используя комбинации особой
группы символов, называемых символами
заполнителями (placeholders).
Если вам необходимо создавать
пользовательские форматы для чисел,
дат или времени, нужно создать строку,
содержащую символы-заполнители, для
задания образа форматирования, который
должна будет использовать функция
Format
при
преобразовании значений в строку (табл.
19). Кроме того, в табл. 19 используется

64

как
пример численное значение 1234,5.

для создания
пользовательских

Таблица 19 –
Символы-заполнители форматов

65

Использование
функций host-приложений

Кроме функций,
встроенных в Visual
Basic
for
Applications,
из кода VBA
доступны некоторые функции host-приложения
VBA.
Host-приложение
– это
приложение, в котором разрабатываются
процедуры VBA
такие, как Word,
Excel,
PowerPoint,
Outlook
или FrontPage.
В Excel,
например, имеются различные функции,
выполняющие математические, логические,
финансовые и статистические операции
над данными в рабочих листах. Многие
(хотя и не все) из этих функции Excel
доступны из кода VBA.
Функции host-приложения, доступные для
VBA,
не являются частью VBA,
они являются частью host-приложения.
Функции, доступные для VBA
в одном host-приложении, могут не быть
доступными в другом.

Чтобы использовать
функцию, принадлежащую какому-либо
host-приложению,
обращайтесь к функции посредством
программного объекта Application.
Объект Application
VBA
представляет host-приложение и все его
ресурсы. Объекты более подробно
описываются в части 6.

Задание 6. Напишите
процедуру, использующую Excel-функцию
Max.

Для этого:

ь
введите
процедуру (листинг 8):

Листинг 8 –
Использование Excel-функции Max

1 Sub
List3_08
()

2 MsgBox
Application.Max(9,
17, -18, 20)

3 End
Sub

За словом Application
следует
точка (.) и затем – имя функции Мах
без пробелов.
Эта точка, называемая точкой-разделителем
(dot
separator),
указывает на то, что оператор ссылается
на функцию Мах,
которая является частью объекта

66

Application.

Результат функции
Excel
нельзя игнорировать. Необходимо всегда
включать круглые скобки в вызов функции
Excel
и всегда каким-либо образом использовать
результат функции: как значение в
выражении, аргумент для другой функции
или процедуры или в операторе присваивания.

Не каждая функция
host-приложения доступна VBA.
Если вы не уверены, доступна ли определенная
функция host-приложения для VBA,
используйте Object
Browser,
чтобы проверить, включает ли список
Members
(Компонент)
эту функцию, при выбранном WorksheetFunction
в списке
Classes
(Классы)
и при выбранном host-приложении в списке
Project/Library
(Проект/
Библиотека).
Если нужной функции нет в списке, то она
недоступна для VBA.

Контрольные
вопросы

1. Определите понятие
   «типы данных». Какие типы данных
   используются в VBA?

2. Что такое
   идентификатор?

3. Что такое переменная?
   Что означает выражение «определить
   переменную неявно», а что – «явно»?

4. Какие константы
   используются в VBA?
   Что такое внутренние константы?

5. Для чего служат
   функции InputBox
   и MsgBox?

6. Что такое выражение?

7. Определите
   синтаксис оператора присваивания.

8. Что такое операции
   отношения?

9. Какова приоритетность
   математических операций?

10. Какие категории
    встроенных функций VBA
    вы знаете?

11. Какое ключевое
    слово существует в VBA,
    которое нужно использовать при получении
    доступа к функциям Excel?
    Для чего можно использовать окно Object
    Browser?

В VBA, как и в любом другом языке программирования, переменные и константы используются для хранения каких-либо значений. Как и следует из названия, переменные могут изменяться, константы же хранят фиксированные значения.

Например, константа Pi хранит значение 3,14159265… Число «Пи» не будет изменяться в ходе выполнения программы, но все же хранить такое значение удобнее как константу.

В то же время мы можем использовать переменную sVAT_Rate для хранения ставки НДС на покупаемые товары. Величина переменной sVAT_Rate может изменяться в зависимости от того, что за товар приобретается.

Типы данных

Все переменные и константы относятся к определённому типу данных. В таблице ниже приведены типы данных, используемые в VBA, с описанием и диапазоном возможных значений:

Очевидно, что пользуясь приведённой выше таблицей и правильно выбирая тип данных, можно использовать память более экономно (например, выбрать тип данных Integer вместо Long или Single вместо Double). Однако, используя более компактные типы данных, нужно внимательно следить за тем, чтобы в коде не было попыток уместить в них не соразмерно большие значения.

Объявление переменных и констант

Примечание переводчика: Говоря о переменных в VBA, стоит упомянуть ещё один очень важный момент. Если мы объявляем переменную, но не присваиваем ей какое-либо значение, то она инициализируется значением по умолчанию:
• текстовые строки — инициализируются пустыми строками;
• числа — значением 0;
• переменные типа Boolean — False;
• даты — 30 декабря 1899.

Прежде чем использовать переменную или константу, её нужно объявить. Для этого в макрос добавляют вот такую простую строку кода:

Dim Имя_Переменной As Тип_Данных

В показанной выше строке кода Имя_Переменной – это имя переменной, которая будет использована в коде, а Тип_Данных – это один из типов данных из таблицы, приведённой чуть ранее в этой статье. Например:

Dim sVAT_Rate As Single
Dim i As Integer

Аналогично объявляются константы, но при объявлении констант обязательно сразу указывается их значение. Например, вот так:

Const iMaxCount = 5000
Const iMaxScore = 100

Объявлять переменные в Excel не обязательно. По умолчанию все введённые, но не объявленные переменные в Excel будут иметь тип Variant и смогут принять как числовое, так и текстовое значение.

Таким образом, программист в любой момент сможет использовать новую переменную (даже если она не была объявлена), и Excel будет рассматривать её как переменную типа Variant. Однако, есть несколько причин, почему так поступать не следует:

1. Использование памяти и скорость вычислений. Если не объявлять переменную с указанием типа данных, то по умолчанию для неё будет установлен тип Variant. Этот тип данных использует больше памяти, чем другие типы данных.Казалось бы, несколько лишних байт на каждую переменную – не так уж много, но на практике в создаваемых программах могут быть тысячи переменных (особенно при работе с массивами). Поэтому излишняя память, используемая переменными типа Variant, по сравнению с переменными типа Integer или Single, может сложится в значительную сумму.К тому же, операции с переменными типа Variant выполняются гораздо медленнее, чем с переменными других типов, соответственно лишняя тысяча переменных типа Variant может значительно замедлить вычисления.
2. Профилактика опечаток в именах переменных. Если все переменные объявляются, то можно использовать оператор VBA — Option Explicit (о нём расскажем далее), чтобы выявить все не объявленные переменные.Таким образом исключается появление в программе ошибки в результате не верно записанного имени переменной. Например, используя в коде переменную с именем sVAT_Rate, можно допустить опечатку и, присваивая значение этой переменной, записать: «VATRate = 0,175». Ожидается, что с этого момента, переменная sVAT_Rate должна содержать значение 0,175 – но, конечно же, этого не происходит. Если же включен режим обязательного объявления всех используемых переменных, то компилятор VBA сразу же укажет на ошибку, так как не найдёт переменную VATRate среди объявленных.
3. Выделение значений, не соответствующих объявленному типу переменной. Если объявить переменную определённого типа и попытаться присвоить ей данные другого типа, то появится ошибка, не исправив которую, можно получить сбой в работе программы.На первый взгляд, это может показаться хорошей причиной, чтобы не объявлять переменные, но на самом деле, чем раньше выяснится, что одна из переменных получила не те данные, которые должна была получить – тем лучше! Иначе, если программа продолжит работу, результаты могут оказаться неверными и неожиданными, а найти причину ошибок будет гораздо сложнее.Возможно также, что макрос будет «успешно» выполнен. В результате ошибка останется незамеченной и работа продолжится с неверными данными!

В связи с этим, неверный тип данных желательно обнаруживать и как можно раньше исправлять такие ошибки в коде. По этим причинам при написании макроса VBA рекомендуется объявлять все переменные.

Option Explicit

Оператор Option Explicit заставляет объявлять все переменные, которые будут использованы в коде VBA, и при компиляции выделяет все не объявленные переменные как ошибки (прежде чем будет запущено выполнение кода). Применить этот оператор не сложно – просто запишите в самом верху файла VBA такую строку:

Option Explicit

Если хотите всегда вставлять Option Explicit в начало каждого нового созданного модуля VBA, то это можно делать автоматически. Для этого необходимо включить параметр Require Variable Declaration в настройках редактора VBA.

Это делается так:

• В меню редактора Visual Basic нажмите Tools > Options
• В появившемся диалоговом окне откройте вкладку Editor
• Отметьте галочкой параметр Require Variable Declaration и нажмите ОК

При включенном параметре строка Option Explicit будет автоматически вставляться в начало каждого нового созданного модуля.

Область действия переменных и констант

Каждая объявленная переменная или константа имеет свою ограниченную область действия, то есть ограниченную часть программы, в которой эта переменная существует. Область действия зависит от того, где было сделано объявление переменной или константы. Возьмём, к примеру, переменную sVAT_Rate, которая используется в функции Total_Cost. В следующей таблице рассмотрены два варианта области действия переменной sVAT_Rate, объявленной в двух различных позициях в модуле:

Option Explicit

Dim sVAT_Rate As Single

Function Total_Cost() As Double


...


End Function

Option Explicit

Function Total_Cost() As Double

Dim sVAT_Rate As Single


...


End Function

В показанном выше примере переменная объявлена на уровне модуля при помощи ключевого слова Dim. Однако, бывает необходимо, чтобы объявленными переменными можно было пользоваться в других модулях. В таких случаях для объявления переменной вместо ключевого слова Dim нужно использовать ключевое слово Public.

Кстати, для того, чтобы объявить переменную на уровне модуля, вместо ключевого слова Dim можно использовать ключевое слово Private, которое укажет на то, что данная переменная предназначена для использования только в текущем модуле.

Для объявления констант также можно использовать ключевые слова Public и Private, но не вместо ключевого слова Const, а вместе с ним.

В следующих примерах показано использование ключевых слов Public и Private в применении к переменным и к константам.

Option Explicit

Public sVAT_Rate As Single

Public Const iMax_Count = 5000

...

Option Explicit

Private sVAT_Rate As Single

Private Const iMax_Count = 5000

...

In Excel VBA, you would often be required to use variables and constants.

When working with VBA, a variable is a location in your computer’s memory where you can store data. The type of data you can store in a variable would depend on the data type of the variable.

For example, if you want to store integers in a variable, your data type would be ‘Integer’ and if you want to store text then your data type would be ‘String’.

More on data types later in this tutorial.

While a variable’s value changes when the code is in progress, a constant holds a value that never changes. As a good coding practice, you should define the data type of both – variable and constant.

Why Use Variables in VBA?

When you code in VBA, you would need variables that you can use to hold a value.

The benefit of using a variable is that you can change the value of the variable within the code and continue to use it in the code.

For example, below is a code that adds the first 10 positive numbers and then displays the result in a message box:

Sub AddFirstTenNumbers()
Dim Var As Integer
Dim i As Integer
Dim k as Integer
For i = 1 To 10
k = k + i
Next i
MsgBox k
End Sub

There are three variables in the above code – Var, i, and k.

The above code uses a For Next loop where all these three variables are changed as the loops are completed.

The usefulness of a variable lies in the fact that it can be changed while your code is in progress.

Below are some rules to keep in mind when naming the variables in VBA:

1. You can use alphabets, numbers, and punctuations, but the first number must be an alphabet.
2. You can not use space or period in the variable name. However, you can use an underscore character to make the variable names more readable (such as Interest_Rate)
3. You can not use special characters (#, $, %, &, or !) in variable names
4. VBA doesn’t distinguish between the case in the variable name. So ‘InterestRate’ and ‘interestrate’ are the same for VBA. You can use mixed case to make the variables more readable.
5. VBA has some reserved names that you can use for a variable name. For example, you can not use the word ‘Next’ as a variable name, as it’s a reserved name for For Next loop.
6. Your variable name can be up to 254 characters long.

Data Type of Variables

To make the best use of variables, it’s a good practice to specify the data type of the variable.

The data type you assign to a variable will be dependent on the type of data you want that variable to hold.

Below is a table that shows all the available data types you can use in Excel VBA:

When you specify a data type for a variable in your code, it tells VBA to how to store this variable and how much space to allocate for it.

For example, if you need to use a variable that is meant to hold the month number, you can use the BYTE data type (which can accommodate values from 0 to 255). Since the month number is not going to be above 12, this will work fine and also reserve less memory for this variable.

On the contrary, if you need a variable to store the row numbers in Excel, you need to use a data type that can accommodate a number up to 1048756. So it’s best to use the Long data type.

Declaring Variable Data Types

As a good coding practice, you should declare the data type of variables (or constants) when writing the code. Doing this makes sure that VBA allocates only the specified memory to the variable and this can make your code run faster.

Below is an example where I have declared different data types to different variables:

Sub DeclaringVariables()
Dim X As Integer
Dim Email As String
Dim FirstName As String
Dim RowCount As Long
Dim TodayDate As Date
End Sub

To declare a variable data type, you need to use the DIM statement (which is short for Dimension).

In ‘Dim X as Integer‘, I have declared the variable X as Integer data type.

Now when I use it in my code, VBA would know that X can hold only integer data type.

If I try to assign a value to it which is not an integer, I will get an error (as shown below):

Note: You can also choose to not declare the data type, in which case, VBA automatically considers the variable of the variant data type. A variant data type can accommodate any data type. While this may seem convenient, it’s not a best practice to use variant data type. It tends to take up more memory and can make your VBA code run slower.

Making Variable Declaration Mandatory (Option Explicit)

While you can code without ever declaring variables, it’s a good practice to do this.

Apart from saving memory and making your code more efficient, declaring variables has another major benefit – it helps trap errors caused by misspelled variable names.

To make sure you’re forced to declare variables, add the following line to the top of your module.

Option Explicit

When you add ‘Option Explicit’, you will be required to declare all the variables before running the code. If there is any variable that has not been declared, VBA would show an error.

There is a huge benefit in using Option Explicit.

Sometimes, you may end up making a typing error and enter a variable name which is incorrect.

Normally, there is no way for VBA to know whether it’s a mistake or is intentional. However, when you use ‘Option Explicit’, VBA would see the misspelled variable name as a new variable that has not been declared and will show you an error. This will help you identify these misspelled variable names, which can be quite hard to spot in a long code.

Below is an example where using ‘Option Explicit’ identifies the error (which couldn’t have been trapped had I not used ‘Option Explicit’)

Sub CommissionCalc()
Dim CommissionRate As Double
If Range("A1").Value > 10000 Then
CommissionRate = 0.1
Else
CommissionRtae = 0.05
End If
MsgBox "Total Commission: " & Range("A1").Value * CommissionRate
End Sub

Note that I have misspelled the word ‘CommissionRate’ once in this code.

If I don’t use Option Explicit, this code would run and give me the wrong total commission value (in case the value in cell A1 is less than 10000).

But if I use Option Explicit at the top of the module, it will not let me run this code before I either correct the misspelled word or declare it as another variable. It will show an error as shown below:

While you can insert the line ‘Option Explicit’ every time you code, here are the steps to make it appear by default:

1. In the VB Editor toolbar, click on Tools.
2. Click on Options.
3. In the Options dialog box, click on Editor tab.
4. Check the option – “Require Variable Declaration”.
5. Click OK.

Once you have enabled this option, whenever you open a new module, VBA would automatically add the line ‘Option Explicit’ to it.

Note: This option will only impact any module you create after this option is enabled. All existing modules are not affected.

Scope of Variables

So far, we have seen how to declare a variable and assign data types to it.

In this section, I will cover the scope of variables and how you can declare a variable to be used in a subroutine only, in an entire module or in all the modules.

The scope of a variable determines where can the variable be used in VBA,

There are three ways to scope a variable in Excel VBA:

1. Within a single subroutine (Local variables)
2. Within a module (Module-level variables)
3. In all modules (Public variables)

Let’s look at each of these in detail.

Within a Single Subroutine (Local Variables)

When you declare a variable within a subroutine/procedure, then that variable is available only for that subroutine.

You can not use it in other subroutines in the module.

As soon as the subroutine ends, the variable gets deleted and the memory used by it is freed.

In the below example, the variables are declared within the subroutine and would be deleted when this subroutine ends.

Within a Module (Module-level Variables)

When you want a variable to be available for all the procedures in a module, you need to declare it at the top of the module (and not in any subroutine).

Once you declare it at the top of the module, you can use that variable in all the procedures in that module.

In the above example, the variable ‘i’ is declared at the top of the module and is available to be used by all the modules.

Note that when the subroutine ends, the module level variables are not deleted (it retains its value).

Below is an example, where I have two codes. When I run the first procedure and then run the second one, the value of ‘i’ becomes 30 (as it carries the value of 10 from the first procedure)

In All Modules (Public Variables)

If you want a variable to be available in all the procedure in the workbook, you need to declare it with the Public keyword (instead of DIM).

The below line of code at the top of the module would make the variable ‘CommissionRate’ available in all the modules in the workbook.

 Public CommissionRate As Double

You can insert the variable declaration (using the Public keyword), in any of the modules (at the top before any procedure).

Static Variables (that retains the value)

When you work with local variables, as soon as the procedure ends, the variable would lose its value and would be deleted from VBA’s memory.

In case you want the variable to retain the value, you need to use the Static keyword.

Let me first show you what happens in a normal case.

In the below code, when I run the procedure multiple times, it will show the value 10 everytime.

Sub Procedure1()
Dim i As Integer
i = i + 10
MsgBox i
End Sub

Now if I use the Static keyword instead of DIM, and run the procedure multiple times, it will keep on showing values in increments of 10. This happens as the variable ‘i’ retains its value and uses it in the calculation.

Sub Procedure1()
Static i As Integer
i = i + 10
MsgBox i
End Sub

Declaring Constants in Excel VBA

While variables can change during the code execution, if you want to have fixed values, you can use constants.

A constant allows you to assign a value to a named string that you can use in your code.

The benefit of using a constant is that it makes it easy to write and comprehend code, and also allows you to control all the fixed values from one place.

For example, if you are calculating commissions and the commission rate is 10%, you can create a constant (CommissionRate) and assign the value 0.1 to it.

In future, if the commission rate changes, you just need to make the change at one place instead of manually changing it in the code everywhere.

Below is a code example where I have assigned a value to the constant:

Sub CalculateCommission()
Dim CommissionValue As Double
Const CommissionRate As Double = 0.1
CommissionValue = Range("A1") * CommissionRate
MsgBox CommissionValue
End Sub

The following line is used to declare the constant:

Const CommissionRate As Double = 0.1

When declaring constants, you need to start with the keyword ‘Const‘, followed by the name of the constant.

Note that I have specified the data type of the constant as Double in this example. Again, it’s a good practice to specify the data type to make your code run faster and be more efficient.

If you don’t declare the data type, it would be considered as a variant data type.

Just like variables, constants can also have scope based on where and how these are declared:

1. Within a single subroutine (Local constants): These are available in the subroutine/procedure in which these are declared. As the procedure ends, these constants are deleted from the system’s memory.
2. Within a module (Module-level constants): These are declared at the top of the module (before any procedure). These are available for all the procedures in the module.
3. In all modules (Public constants): These are declared using the ‘Public’ keyword, at the top of any module (before any procedure). These are available to all the procedures in all the modules.

You May Also Like the Following VBA Tutorials:

• How to Record a Macro in Excel
• Working with Cells and Ranges in Excel VBA
• Working with Worksheets using Excel VBA
• Working with Workbooks in Excel VBA
• VBA Events
• Excel VBA Loops
• How to Run a Macro in Excel
• If Then Else Statement in Excel VBA.