Подпрограммы языка basic. Что такое переменная и как правильно её объявить? Изменение значений по умолчанию для типов

20.04.2019

Объявляет переменную или массив.

Если переменные перечислены через запятую (например, DIM sPar1, sPar2, sPar3 AS STRING), можно определить только переменную Variant. В общем случае, каждая переменная должна быть определена на отдельной строке.

DIM sPar1 AS STRING

DIM sPar2 AS STRING

DIM sPar3 AS STRING

Dim объявляет локальные переменные в процедурах. Для объявления глобальных переменных служат операторы PUBLIC и PRIVATE.

Синтаксис:

Dim Переменная [(Начало To Конец)] [, Переменная2 [(Начало To Конец)] [,...]]

Параметры:

Переменная: произвольное имя переменной или массива.

Начало, Конец: числовые значения или константы, определяющие количество элементов (Количество_элементов=(Начало-Конец)+1) и диапазон индексов.

Начало и Конец могут быть и числовыми выражениями, если ReDim применяется на уровне процедуры.

Тип: ключевое слово, объявляющее тип переменной.

Ключевое слово: тип переменной

Bool: переменная типа Boolean (True, False)

Currency: переменная типа Currency (денежная величина с длиной дробной части в 4 позиции)

Date: переменная типа Date

Double: переменная с плавающей точкой двойной точности (1,79769313486232 x 10E308 - 4,94065645841247 x 10E-324)

Integer: переменная типа Integer (-32768 - 32767)

Long: переменная типа Long Integer (-2 147 483 648 - 2 147 483 647)

Object: переменная типа Object (Примечание: эта переменная может быть определена только впоследствии с помощью оператора Set!)

Single: переменная типа Single (3,402823 x 10E38 - 1,401298 x 10E-45)

String: переменная типа String с максимальной длиной 64 000 символов ASCII.

: переменная типа Variant (охватывает все типы, согласно определению). Если ключевое слово не указано, то переменные автоматически определяются как переменные типа Variant, кроме случаев, когда применяется оператор из диапазона DefBool - DefVar.

В языке Basic Lotus® Symphony™ переменные не требуется явно объявлять. Исключение составляют только массивы. Переменную можно объявить с помощью оператора Dim; если операторов объявления несколько, то они разделяются запятыми. Для объявления типа переменной укажите символ объявления типа после ее имени или введите соответствующее ключевое слово.

В языке Basic Lotus Symphony можно определять одномерные или многомерные массивы, задавая соответствующий тип переменной. Массивы удобны для работы со списками и таблицами. К элементам массива можно обращаться по индексу, который можно задавать посредством числового выражения или переменной.

Массивы объявляются оператором Dim. Диапазон индексов можно определить двумя способами:

DIM text(20) as String REM 21 элемент с номерами от 0 до 20

DIM text(5 to 25) as String REM 21 элемент с номерами от 5 до 25

DIM text(-15 to 5) as String REM 21 элемент (включая 0)

REM с номерами от -15 до 5

Двухмерное поле данных

DIM text(20,2) as String REM 63 элемента с номерами от 0 до 20 уровня 1, от 0 до 20 уровня 2 и от 0 до 20 уровня 3

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

Пример:

Dim sVar As String

Dim iVar As Integer

sVar = "Lotus Symphony "

REM Двумерное поле данных

Dim stext(20,2) as String

Const sDim as String = " Размерность:"

stext(i,ii) = str(i) & sDim & str(ii)

Dim первоначально (в BASIC) стоял для Dimension, поскольку он использовался для определения размеров массива.

(Первоначальной реализацией BASIC был Dartmouth BASIC, который произошел от FORTRAN, где указано РАЗМЕРЫ.)

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

2018-06-23 16:01

Dim имели разные значения, приписываемые ему.

Я нашел ссылки на Dim имея в виду «Заявить в память» , более актуальной ссылкой является документ о Инструкция Dim опубликовал Oracle как часть справочника языка Siebel VB. Конечно, вы можете утверждать, что если вы не объявляете переменные в памяти, где вы это делаете? Может быть «Объявить в модуле» является хорошей альтернативой, учитывая, как Dim используется.

По-моему, «Объявить в памяти» на самом деле мнемонический , созданный для упрощения обучения использованию Dim , Я вижу «объявить в памяти» как лучший смысл, поскольку он описывает, что он делает в текущих версиях языка, но это не правильный смысл.

Фактически, при происхождении Basic Dim был использован только для объявления массивов. Для обычных переменных не использовалось ключевое слово, вместо этого их тип был выведен из их имени. Например, если имя переменной заканчивается $ то это строка (это то, что вы могли видеть даже в именах методов до VB6, например Mid$). Итак, вы использовали Dim только дать измерение к массивам (обратите внимание, что ReDim изменяет размеры массивов).

В самом деле, Это имеет значение ? Я имею в виду, что это ключевое слово имеет смысл в искусственном языке. Это не должно быть слово на английском или любом другом естественном языке. Таким образом, это может означать только то, что вы хотите, все, что имеет значение, - это то, что оно работает.

Во всяком случае, это не совсем так. Поскольку BASIC является частью нашей культуры и понимает, почему это так, как я, надеюсь, поможет улучшить наше видение мира.

Я сижу с моего компьютера с желанием помочь сохранить этот маленький кусочек нашей культуры, который кажется потерянным, замененным нашим предположением о том, что это было. Итак, я выкопал MSDN как текущие, так и старые компакт-диски из версии 1998 года. Я также искал документацию для старого QBasic [должен был использовать DOSBox] и сумел получить руководство по Дартмуту, чтобы узнать, как они говорят Dim , Для моего разочарования они не говорят, что делает Dim стоять, и только сказать, как он используется.

Но прежде чем моя надежда была тусклой, мне удалось найти это Руководство по использованию микрокомпьютера BBC (который утверждает, что с 1984 года, и я не хочу сомневаться в этом). Микрокомпьютер BBC использовал вариант BASIC под названием BBC BASIC, и он описан в документе. Хотя, он не говорит, что делает Dim стенд, он говорит (на странице 104):

Вы можете измерить N $, чтобы иметь столько записей, сколько хотите. Для Например, DIM N $ (1000) создаст строковый массив с пространством для 1000 разные имена.

Как я уже сказал, он не говорит, что Dim означает измерение, но служит доказательством того, что ассоциация Dim с Dimension было обычным явлением на момент написания этого документа.

Теперь я получил дополнительный сюрприз (на странице 208), заголовок раздела, в котором описывается ключевое слово DIM (примечание: это не указано в содержимом) говорит:

Размер DIM массива

Итак, я не получил цитату «Dim стоит...», но, я думаю, ясно, что любой достойный человек, способный читать этот документ, будет считать, что Dim означает измерение.

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

Прежде чем вы сможете использовать массив, вы должны определить его в инструкции DIM (измерение).

Вы можете найти это как часть Истинные руководства пользователя BASIC Online на веб-странице True BASIC inc, компании, основанной Томас Юджин Курц , соавтором BASIC.

Итак, Dim является сокращением для DIMENSION , и да. Это существовало в FORTRAN раньше, поэтому вполне вероятно, что он был выбран из-за влияния FORTRAN как Патрик Макдональд сказал в своем ответе ,

Dim sum as string = "this is not a chinese meal" REM example usage in VB.NET ;)

2017-10-05 01:19

Это сокращение для Dimension, поскольку оно первоначально использовалось в BASIC для указания размера массивов.

DIM - (сокращение от размера) определяет размер массивов

Часть исходного исходного кода компилятора BASIC, где он будет прыгать при поиске DIM команда, в которой вы можете четко видеть исходное намерение для ключевого слова:

DIM LDA XR01 BACK OFF OBJECT POINTER SUB N3 STA RX01 LDA L 2 GET VARIABLE TO BE DIMENSIONED STA 3 LDA S 3 CAB N36 CHECK FOR $ ARRAY BRU *+7 NOT $ ...

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

2018-06-23 16:02

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

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

Для чего нужна переменная? Чтобы хранить значение и применить его позже в любой момент. Например, в ячейке А1 записана сумма, а нажатием на кнопку запускается обновление отчета. После обновления отчета сумма в А1 изменится. Необходимо сверить сумму до обновления с суммой после и в зависимости от этого сделать какое-либо действие. Переменная как раз позволит запомнить значение ячейки до того, как она обновится и использовать именно это значение после обновления.

Требования к переменным:

В качестве имен переменных можно использовать символы букв и числа, но первой в имени переменной всегда должна быть буква. Не допускается использование точки, запятой, пробела и иных знаков препинания, кроме нижнего подчеркивания. Длина имени не должна превышать 254 символов. Так же нельзя использовать в качестве имен для переменных зарезервированные константы редактора VBA(например Sub, Msgbox, ubound, Date и т.п.) . Так же для переменных неважен регистр букв.

Теперь рассмотрим основные декларированные в VBA типы данных, которые можно хранить в переменных:

Тип данных	Занимает байт в памяти	Пределы значений
Byte	1	Целые числа от 0 до 255
Boolean	2	True или False
Integer	2	Целые числа от (-32768 ) до 32767
Long	4	Целые числа от (-2147483648 ) до 2147483647
Single	4	От (–3.402823Е+38 ) до (–1.401298Е-45 ) и от 1.401298Е-45 до 3.402823Е+38
Double	8	От ±1.79769313486232Е+308 до ±4.94065645841247Е-324
Decimal	12	От ±79228162514264337593543950335 без десятичных знаков до ±7,9228162514264337593543950335 с 28-ю знаками после запятой
Currency	8	От (–922337203685477.5808 ) до 922337203685477.5807
Date	8	От 01.01.100 до 31.12.9999 (не надо путать с датами в Excel - 01.01.1900 до 31.12.2078)
String	1	От 0 до 65400 символов для фиксированных строк и чуть более 2 млрд. для строк переменной длины
Object	4	Любой объект
Array	Определяется кол-вом и размером элементов	-
Variant	от 16-ти	Любой из встроенных типов данных

Как видно из таблицы больше всего памяти занимает Variant . Притом этом если он хранит числовые данные. Если же такая переменная будет хранить данные строкового типа(текст), то размер занимаемой памяти будет измеряться уже начиная с 22 байт + длина строки, хранящейся в переменной. Чем больше памяти занимает переменная, тем дольше она инициализируется в памяти и тем медленнее код будет выполняться. Вот поэтому и важно явно задавать тип данных, хранимых в переменной - это называется объявить переменную .

Тип данных Decimal больше не используется, поэтому объявить переменную данного типа в VBA не получится - подобная попытка приведет к синтаксической ошибке. Для работы с данными типа Decimal переменную необходимо изначально объявить как Variant или вообще без типа (например Dim a), т.к. тип данных Variant используется в VBA по умолчанию и принимает любой тип данных.

Так же переменным можно назначать и другие типы данных, которых нет в таблице выше - это типы, которые поддерживаются объектной моделью приложений, к которым "подключен" VBA. Например, если зайти в VBA из Excel, то библиотека типов объектной модели Excel подключена по умолчанию и для переменных становится доступно множество типов этой объектной модели. Многие из них знакомы всем: Workbook, Worksheet, Range, Cells, Chart и т.д. Т.е. это книги, листы, ячейки, диаграммы. Типов много, почти на каждый объект и коллекцию. Рассматривать здесь все бессмысленно. Могу лишь привести пару строк кода:

"Имя моей программы"

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

Как объявлять переменные
На самом деле все очень просто. Это делается при помощи операторов области действия: Dim , Public ,Static и оператора присвоения типа As . Самый распространенный оператор - Dim . Его и возьмем в качестве примера. Синтаксис объявления:

[оператор области действия] Имя_переменной As [тип данных]

Очень частая ошибка при объявлении переменных, совершаемая начинающими изучать VBA:

Dim MyVar1, MyVar2, MyVar3 As Integer

Вроде бы исходя из логики всем переменным присвоен тип данных Integer . Но это ошибочное суждение. Тип Integer присвоен только последней переменной, к которой он "привязан" оператором As - MyVar3 . Все остальные переменные имеют тип данных Variant . Т.е. если Вы не задаете переменной тип хранимых данных явно(т.е. не указываете для неё тип данных) , то VBA сам присваивает такой переменной тип данных Variant , т.к. он может хранить любой тип данных. А вот так выглядит правильное присвоение типа данных:

Dim MyVar1%, MyVar2%, MyVar3%

Всего шесть типов, которые можно объявить подобным методом:
! - Single
# - Double
$ - String
% - Integer
& - Long
@ - Currency
На что стоит обратить внимание, при объявлении переменных подобным образом: между именем переменной и знаком типа не должно быть пробелов.
Я лично предпочитаю использовать первый метод, т.е. полное указание типа. Это читабельнее и понятнее. Но это мои предпочтения и в своих кодах Вы вправе использовать удобный Вам метод - ошибки не будет.

Теперь разберемся с операторами области действия(Dim , Public и Static):

Dim - данный оператор используется для объявления переменной, значение которой будет храниться только в той процедуре, внутри которой данная переменная объявлена. Во время запуска процедуры такая переменная инициализируется в памяти, Вы можете использовать её значение внутри только этой процедуры и по завершению процедуры переменная выгружается из памяти(обнуляется) и данные по ней теряются. Переменную, объявленную подобным образом еще называют локальной переменной . Однако с помощью данного оператора можно объявить переменную, которая будет доступна в любой процедуре модуля. Необходимо объявить переменную вне процедуры - в области объявлений(читать как первой строкой в модуле, после строк объявлений типа - Option Explicit). Тогда значение переменной будет доступно в любой процедуре лишь того модуля, в котором данная переменная была объявлена. Такие переменные называются переменными уровня модуля .
Static - данный оператор используется для объявления переменной, значение которой предполагается использовать внутри процедуры, но не теряя значения данной переменной по завершении процедуры. Переменные данного типа обычно используют в качестве накопительных счетчиков. Такая переменная инициализируется в памяти при первом запуске процедуры, в которой она объявлена. По завершении процедуры данные по переменной не выгружаются из памяти, но однако они не доступны в других процедурах. Как только Вы запустите процедуру с этой переменной еще раз - данные по такой переменной будут доступны в том виде, в котором были до завершения процедуры. Выгружается из памяти такая переменная только после закрытия проекта(книги с кодом) . В простонародье такие переменные чаще называют глобальными (возможно из-за того, что раньше подобные переменные объявлялись при помощи оператора Global, который в настоящее время устарел и не используется)

Public - данный оператор используется для объявления переменной, значение которой будет храниться в любой процедуре проекта. Переменная, объявленная подобным образом, должна быть объявлена вне процедуры - в области объявлений. Такая переменная загружается в память во время загрузки проекта(при открытии книги) и хранит значение до выгрузки проекта(закрытия книги) . Использовать её можно в любом модуле и любой процедуре проекта. Важно: объявлять подобным образом переменную необходимо строго в стандартном модуле . Такие переменные называются переменными уровня проекта .
Для большего понимания того, где и как объявлять переменные уровня проекта два небольших примера.
Неправильное объявление

Option Explicit Sub main() Public MyVariable As String MyVariable = "Глобальная переменная" "показываем текущее значение переменной MsgBox MyVariable "пробуем изменить значение переменной Call sub_main "показываем измененное значение переменной MsgBox MyVariable End Sub "доп.процедура изменения значения переменной Sub ChangeMyVariable() MyVariable = "Изменили её значение" End Sub

переменные не будут видны во всех модулях всех процедур и функций проекта, потому что:
1. Оператор Public недопустим внутри процедуры(между Sub и End Sub), поэтому VBA при попытке выполнения такой процедуры обязательно выдаст ошибку - Invalid Attribut in Sub or Function .
2. Даже если Public заменить на Dim - это уже будет переменная уровня процедуры и для других процедур будет недоступна.
3. Т.к. объявление неверное - вторая процедура(ChangeMyVariable) ничего не знает о переменной MyVariable и естественно, не сможет изменить именно её.
Правильное объявление

"выше глобальных переменных и констант могут быть только декларации: Option Explicit "принудительное объявление переменных Option Base 1 "нижняя граница объявляемых массивов начинается с 1 Option Compare Text "сравнение текста без учета регистра "глобальная переменная - первой строкой, выше всех процедур Public MyVariable As String "далее процедуры и функции Sub main() MyVariable = "Глобальная переменная" "показываем текущее значение переменной MsgBox MyVariable, vbInformation, "www.сайт" "пробуем изменить значение переменной Call ChangeMyVariable "показываем измененное значение переменной MsgBox MyVariable, vbInformation, "www.сайт" End Sub "доп.процедура изменения значения переменной Sub ChangeMyVariable() MyVariable = "Изменили её значение" End Sub

"выше глобальных переменных и констант могут быть только декларации: Option Explicit "принудительное объявление переменных Option Base 1 "нижняя граница объявляемых массивов начинается с 1 Option Compare Text "сравнение текста без учета регистра "глобальная переменная - первой строкой, выше всех процедур Public MyVariable As String "далее процедуры и функции Sub main() MyVariable = "Глобальная переменная" "показываем текущее значение переменной MsgBox MyVariable, vbInformation, "www.сайт" "пробуем изменить значение переменной Call ChangeMyVariable "показываем измененное значение переменной MsgBox MyVariable, vbInformation, "www..процедура изменения значения переменной Sub ChangeMyVariable() MyVariable = "Изменили её значение" End Sub

Операторы области действия так же могут применяться и к процедурам. Для процедур доступен еще один оператор области действия - Private . Объявленная подобным образом процедура доступна только из того модуля, в котором записана и такая процедура не видна в диалоговом окне вызова макросов(Alt +F8 )

Как правильно назвать переменную:

"Что самое сложное в работе программиста? - выдумывать имена переменным." :-) А ведь придумать имя переменной тоже не так-то просто. Можно, конечно, давать им имена типа: a , d , f , x , y и т.д.(я сам иногда так делаю, но либо в простых кодах, либо для специального запутывания кода). Но стоит задуматься: а как Вы с ними будете управляться в большом коде? Код строк на 10 еще потерпит такие имена, а вот более крупные проекты - не советовал бы я в них оперировать такими переменными. Вы сами запутаетесь какая переменная как объявлена и какой тип данных может хранить и что за значение ей присвоено. Поэтому лучше всего давать переменным осмысленные имена и следовать соглашению об именовании переменных. Что за соглашение? Все очень просто: перед основным названием переменной ставится префикс, указывающий на тип данных, который мы предполагаем хранить в данной переменной. Про имеющиеся типы данных я уже рассказал выше. А ниже приведена примерная таблица соответствий префиксов типам данных:

Префикс	Тип хранимых данных
b	Boolean
bt	Byte
i	Integer
l	Long
s	Single
d	Double
c	Currency
dt	Date
str	String
obj	Object
v	Variant

Лично я немного для себя её переделал, т.к. некоторые обозначения мне кажутся скудными. Например Double я обозначаю как dbl , а Single как sgl . Это мне кажется более наглядным.

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

DefBool B-C Sub test() Dim bCheck, cCheck End Sub

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

DefBool B DefStr S Sub test() Dim bCheck, sCheck End Sub

Ниже приведен полный перечень операторов типов и данные, которые задает каждый из них:
DefBool - Задает тип Boolean
DefByte - Задает тип Byte
DefCur - Задает тип Currency
DefDate - Задает тип Date
DefDbl - Задает тип Double
DefInt - Задает тип Integer
DefLng - Задает тип Long
DefObj - Задает тип Object
DefSng - Задает тип Single
DefStr - Задает тип String
DefVar - Задает тип Variant
По умолчанию в VBA применена инструкция DefVar для всех переменных.

Ну и немаловажный момент это непосредственно осмысленное имя переменной. Имя переменной должно примерно отражать то, что в ней будет храниться. Например, Вы создаете отчет и Вам надо объявить две переменные: одна имя листа, другая имя книги. Можно было сделать так: str1 , str2 . Коротко, здорово. Но если подумать - и как можно понять, какая из этих переменных что хранит? Никак. Надо просматривать код и вспоминать, какой переменной какое значение было присвоено. Не совсем удобно, правда? А если бы Вы задали имена так: strBookName , strSheetName , то вроде как более понятно, что мы в них будем хранить.Это удобно не только вам самим при работе с кодом, но и другим людям, которые, возможно в будущем будут пользоваться Вашим кодом. Им будет удобнее читать код, если он будет оформлен грамотно, а переменные названы осмысленно. И не стоит экономить на длине имени - имя должно быть понятным. Без фанатизма, конечно:-). Хоть VBA и позволяет нам создавать переменные длиной до 254 символов, но читать такую переменную так же неудобно, как и с одним символом. Но здесь уже все зависит от Ваших предпочтений и фантазии.
Небольшое дополнение: лучше привыкать давать названия переменным на латинице(т.е. английский алфавит), т.к. для VBA английский язык "родной" и лучше использовать его.

Небольшой пример использования переменных в кодах:

Sub main() "объявляем переменные с назначением конкретных типов "As String - текст "As Long - целое число Dim sAddress As String , sNewAddress As String , sShName As String Dim lRow As Long Dim rRange as Range "присвоили переменной rRange ссылку на текущую выделенную ячейку Set rRange = Selection "меняем выделение - выделяем ячейку D9 Range("D9" ).Select "назначаем переменной адрес выделенных ячеек sAddress = Selection.Address "назначаем переменной lRow значение первой строки выделенной области lRow = Selection.Row "показываем сообщение MsgBox "Адрес выделенной области: " & sAddress, vbInformation, "www.сайт" MsgBox "Номер первой строки: " & lRow, vbInformation, "www.сайт" "назначаем другой переменной значение адреса ячейки A1 sNewAddress = "A1" "выделяем ячейку, заданную переменной sNewAddres Range(sNewAddress).Select MsgBox "Адрес выделенной области: " & sNewAddress, vbInformation, "www.сайт" "выделяем изначально выделенную ячейку, используя переменную rRange rRange.Select MsgBox "Адрес выделенной области: " & rRange.Address, vbInformation, "www.сайт" "задаем значение переменной sShName = "excel-vba" "переименовываем активный лист на имя, заданное переменной ActiveSheet.Name = sShName End Sub

Sub main() "объявляем переменные с назначением конкретных типов "As String - текст "As Long - целое число Dim sAddress As String, sNewAddress As String, sShName As String Dim lRow As Long Dim rRange as Range "назначили переменной тип ячейка/диапазон "присвоили переменной rRange ссылку на текущую выделенную ячейку Set rRange = Selection "меняем выделение - выделяем ячейку D9 Range("D9").Select "назначаем переменной адрес выделенных ячеек sAddress = Selection.Address "назначаем переменной lRow значение первой строки выделенной области lRow = Selection.Row "показываем сообщение MsgBox "Адрес выделенной области: " & sAddress, vbInformation, "www..сайт" "назначаем другой переменной значение адреса ячейки A1 sNewAddress = "A1" "выделяем ячейку, заданную переменной sNewAddres Range(sNewAddress).Select MsgBox "Адрес выделенной области: " & sNewAddress, vbInformation, "www.сайт" "выделяем изначально выделенную ячейку, используя переменную rRange rRange.Select MsgBox "Адрес выделенной области: " & rRange.Address, vbInformation, "www.сайт" "задаем значение переменной sShName = "excel-vba" "переименовываем активный лист на имя, заданное переменной ActiveSheet.Name = sShName End Sub

Просмотреть пошагово выполнение данного кода поможет статья: Отлов ошибок и отладка кода VBA
Важно! Если переменной назначается ссылка на ячейку(Set var = Range("A1")), то обращение к переменной идентично обращению к самой ячейке А1 когда бы это ни происходило. Такое назначение не запоминает свойства ячейки до или после - в переменной хранится ссылка на конкретную ячейку и доступ есть исключительно к свойствам ячейки на текущий момент. Чтобы запомнить значение, цвет ячейки или даже адрес (а так же и другие свойства) до изменения ячейки и применить их даже после изменения/перемещения самой ячейки - необходимо запоминать в переменные именно свойства ячейки:

Sub main() Dim val, l_InteriorColor As Long , l_FontColor As Long Dim rRange As Range "назначили переменной тип ячейка/диапазон "присвоили переменной rRange ссылку на активную ячейку Set rRange = ActiveCell "запоминаем свойства ячейки val = rRange.Value "значение l_InteriorColor = rRange.Interior.Color "цвет заливки l_FontColor = rRange.Font.Color "цвет шрифта "копируем другую ячейку и вставляем на место активной ActiveSheet.Range("D1" ).Copy rRange "проверяем, что rRange теперь имеет совершенно другие свойста - как у D1 "Цвет заливки rRange: " "Цвет шрифта rRange: " & rRange.Font.Color & vbNewLine, vbInformation, "www.сайт" "назначаем свойства из сохраненных в переменных rRange.Value = val "значение rRange.Interior.Color = l_InteriorColor "цвет заливки rRange.Font.Color = l_FontColor "цвет шрифта "проверяем, что rRange возвращены параметры до копирования MsgBox "Значение rRange: " & rRange.Value & vbNewLine & _ "Цвет заливки rRange: " & rRange.Interior.Color & vbNewLine & _ "Цвет шрифта rRange: " & rRange.Font.Color & vbNewLine, vbInformation, "www.сайт" End Sub

Sub main() Dim val, l_InteriorColor As Long, l_FontColor As Long Dim rRange As Range "назначили переменной тип ячейка/диапазон "присвоили переменной rRange ссылку на активную ячейку Set rRange = ActiveCell "запоминаем свойства ячейки val = rRange.Value "значение l_InteriorColor = rRange.Interior.Color "цвет заливки l_FontColor = rRange.Font.Color "цвет шрифта "копируем другую ячейку и вставляем на место активной ActiveSheet.Range("D1").Copy rRange "проверяем, что rRange теперь имеет совершенно другие свойста - как у D1 MsgBox "Значение rRange: " & rRange.Value & vbNewLine & _ "Цвет заливки rRange: " & rRange.Interior.Color & vbNewLine & _ "Цвет шрифта rRange: " & rRange.Font.Color & vbNewLine, vbInformation, "www..Value = val "значение rRange.Interior.Color = l_InteriorColor "цвет заливки rRange.Font.Color = l_FontColor "цвет шрифта "проверяем, что rRange возвращены параметры до копирования MsgBox "Значение rRange: " & rRange.Value & vbNewLine & _ "Цвет заливки rRange: " & rRange.Interior.Color & vbNewLine & _ "Цвет шрифта rRange: " & rRange.Font.Color & vbNewLine, vbInformation, "www.сайт" End Sub

Это так же распространяется на все другие объекты. Т.е. те переменные, значения которым назначаются через оператор Set.

Константы
Так же есть и иной вид "переменных" - константы. Это такая же переменная, только(как следует из её названия) - она не может быть изменена во время выполнения кода, т.к. является величиной постоянной и значение её назначается только один раз - перед выполнением кода.

Const sMyConst As String = "Имя моей программы"

Константам могут быть назначены данные тех же типов, что и для переменных. Для дополнительной области видимости/жизни констант используется только Public . Если область видимости не указана, то константа будет доступна только из того модуля, в котором объявлена. Здесь обращаю внимание на то, что Dim уже не используется, т.к. Dim это идентификатор только для переменных. Пару важных отличий объявления констант от объявления переменных:

при объявлении константы необходимо обязательно указывать явно, что это константа ключевым словом Const
сразу в момент объявления необходимо назначить константе значение: = "Имя моей программы"

Во всем остальном объявление и применение констант идентично объявлению переменных. Коротко приведу пару примеров.
Если константа объявлена внутри процедуры:

Sub TestConst() Const sMyConst As String = "Имя моей программы" MsgBox sMyConst "показываем сообщение с именем программы End Sub Sub TestConst2() MsgBox sMyConst "вызовет ошибку Variable not defined End Sub

Чтобы использовать одну константу во всех процедурах проекта(книги), необходимо объявить её как Public.

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

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

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

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

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

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

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

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

Название типа	Размер в байтах
		Целые положительные числа от 0 до 255
		Целые числа от -32768 до 32767
		Длинные целые числа от -2147483648 до 2147483647
		Вещественные числа обычной точности с плавающей точкой. Отрицательные числа: от -3.402823Е38 до -1.401298Е-45. Положительные числа: от 1.401298Е-45 до 3.402823Е38
		Вещественные числа двойной точности с плавающей точкой. Отрицательные числа: от -1.79769313486232Е308 до 4.94065645841247Е-324. Положительные числа: от 4.94065645841247Е-324 до 1.79769313486232Е308
		Числа, имеющие до 15 цифр до десятичной точки и 4 цифры после нее (денежные единицы). От -922337203685477.5808 до 922337203685477.5807
		Для хранения логических значений; может содержать только значения True (Истина) или False (Ложно)

Название типа	Размер в байтах	Описание и диапазон значения
		Для хранения комбинации информации о дате и времени. Диапазон дат может быть от 1 января 100 года до 31 декабря 9999 года. Диапазон времени от 00:00:00 до 23:59:59
String (строка переменной длины)	10 байт + Используется для хранения текста. Может длина строки содержать от 0 символов до (приблизительно) 2 миллиардов символов
String (строка фиксированной длины)	Длина Используется для хранения текста. Может строки (один содержать от одного до (приблизительно) 65400 байт на один символов символ)
	16 байт + 1 байт/символ	Тип Variant может хранить любой другой тип данных. Диапазон для данных типа Variant зависит от фактически сохраняемых данных. В случае текста диапазон соответствует строковому типу; в случае чисел диапазон такой, как у типа Double
		Используется для доступа к любому объекту, распознаваемому VBA. Сохраняет адрес объекта в памяти

В табл. 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 . Булевы значения получают как

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

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

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

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

В 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 ) – это имя, которое программист дает области

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

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

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

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

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

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

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

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

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

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

Dim name 1 [, name 2 ]

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

типа Variant .

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

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

Для этого:

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

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

1 Sub HelloExcel()

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

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

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

Dim varnamel [, varname2 ]

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

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

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

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

Тип

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

Тип

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

Integer Long

Currency Double

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

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

Для этого:

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

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

1 Sub HelloExcel()

2 Dim HelloMsg As String 3

HelloMsg = "Здравствуй, Excel!"

Title$ = "Моя первая программа"

MsgBox HelloMsg, Title$

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

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

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

Строковые переменные переменной длины изменяют длину, в зависимости от длины строки, сохраняемой переменной. Иногда может понадобиться использовать строку фиксированной длины (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

HelloMsg = "Здравствуй, Excel!"

MsgBox HelloMsg, "Моя первая программа"

8 Sub HelloDave()

9 Dim HelloMsg As String 10

HelloMsg = "Добрый день, Excel!"

MsgBox HelloMsg, "Другое окно сообщения"

Строки 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 ).

Команда 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 name 2… ] _

[, патеЗ = value 3 [operator name 4 ] … ]

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

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 «считает», что значение, представленное этой константой, имеет

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

В 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

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

Данные, вводимые пользователем, называются входными данными (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 предоставляет альтернативу перечислению значений в списке аргументов в определенном порядке. Можно также передавать

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

MsgBox AnyMsg, AnyTitle

MsgBox Prompt:=AnyMsg, Title:=AnyTitle

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

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

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

Для этого:

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

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

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

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

4 Sub List3_07 ()

Const BoxTitle = "Площадь круга"

Dim Radius As Single, Temp As String 7

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

Radius = CSng(Temp)

CircleArea = Pi * Radius * Radius

MsgBox CircleArea, vbInformation + vbOKCancel, BoxTitle

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

12 End Sub

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

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

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

Рис. 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 не может его оценить.

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

объединять различные численные типы данных в одном и том же выражении; 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). Десятичная часть числа (если имеется) выражает время дня как часть

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

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

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

varname = expression

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

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

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

varname = expression

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

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

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

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

Знак	Синтаксис	Имя/Описание
		Сложение . Прибавляет N1 к N2
		Вычитание. Вычитает N2 из N1
		Умножение. Умножает N1 на N2
		Деление. Делит N1 на N2.
		Целочисленное деление. Делит N1 на N2, отбрасывая любую дробную часть так, чтобы результат был целым числом.
		Деление по модулю. Делит N1 на N2, возвращая только остаток операции деления.
		Возведение в степень. Возводит N1 в степень N2.

Оба операнда должны быть численными выражениями или строками, которые 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 совпадает

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

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

Option Compare [Binary | Text ]

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

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

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

Operand 1 & Operand 2 [& Operand 3… ]

Operand 1 и Operand 2 – любые допустимые строковые или численные выражения. Если один или оба операнда являются численными выражениями, 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).

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

Оператор/знак Комментарии
	Возведение в степень, наивысший приоритет
	Унарный минус
	Умножение и деление имеют равные приоритеты; они вычисляются по мере появления в выражении слева направо


	Сложение и вычитание имеют равный приоритет; они вычисляются по мере появления в выражении слева направо
	Всякая конкатенация строк выполняется после любых арифметических операций в выражении и перед любыми операциями сравнения или логическими операциями
<, <=, >, >=, Like, =, <>, Is	Все операторы сравнения имеют равные приоритеты и вычисляются по мере появления в выражении слева направо. Используйте круглые скобки для группирования операторов сравнения в выражениях

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

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

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

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

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

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

Функции(ар-

гументы)

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

Abs (N )

Косинус угла N , где N

Cos (N )

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

Sin (N )

Tan (N )

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

Atn (N )

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

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

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

Log (N )

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

случайное

аргумент

является

Возвращает

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

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

Randomize

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

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

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

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

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

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

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

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

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

Функция(ар-гументы)	Возвращает/действие
	Возвращает строку из одного символа, соответствующего коду символа N, который должен быть числом между 0 и 255, включительно. Код символа 65, например, возвращает букву "А" (Chr(13) – символ возврата каретки, Chr(10) – символ смещения на одну строку)
	Возвращает строку, содержащую значение, представленное выражением Е, в формате в соответствии с инструкциями, содержащимися в S
	Возвращает строку, содержащую шестнадцатиричное представление N
Oct(N) Возвращает строку, содержащую восьмиричное представление N
	Возвращает целое типа Long , представляющее значение основных цветов изображения. N в каждом аргументе должно быть целым в диапазоне 0 – 255, включительно. Аргументы (слева направо) – это значения для красного, зеленого и синего цвета
Str(N) Возвращает строку, эквивалентную численному выражению N
	Возвращает численное значение, соответствующее числу, представленному строкой S, которая должна содержать только цифры и одну десятичную точку, иначе VBA не может преобразовать ее в число. Если VBA не может преобразовать строку в S, то функция Val возвращает 0
CBool(N) Возвращает Boolean-эквивалент численного выражения N
	Byte (от 0 до 255); Е – любое допустимое численное или строковое выражение, которое может быть преобразовано в число
	Возвращает численное значение типа Currency
	Возвращает значение типа Date . E может быть любым допустимым выражением (строкой или числом), представляющим дату в диапазоне 1/1/100 – 12/31/9999 , включительно
	Возвращает численное значение типа Double , которое может быть преобразовано в число
	Возвращает численное значение типа Integer ; E – любое допустимое численное или строковое выражение, которое может быть преобразовано в число
	Возвращает численное значение типа Long ; E – любое допустимое численное или строковое выражение, которое может быть преобразовано в число

Функция(ар-гументы)	Возвращает/действие
	Возвращает численное значение типа Single ; E – любое допустимое численное или строковое выражение, которое может быть преобразовано в число
	Возвращает значение типа String ; E – любое допустимое численное или строковое выражение
	Возвращает значение типа Variant ; E – любое допустимое численное или строковое выражение

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

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

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

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

Функции(ар-

гументы)

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

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

Date и

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

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

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

Weekday(D) Hour(D)

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

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

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

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

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

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

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

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

DateAdd(S, N, D)

DateSerial(N, N, N)

TimeSerial(N, N, N)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

гумент)

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

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

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

Len(S) LTrim(S)

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

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

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

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

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

из левой части строки (начальные пробелы) Возвращает строку; копирует N2 символов из S, начиная с позиции символа в S, заданной аргументом N1. N2 является необязательным; если N2 опущен, то Mid возвращает все символы в строке S от позиции N 1 до конца строки Возвращает значение типа 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 (преобразует строку в буквы верхнего регистра)

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

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 используется

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

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

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

Символ-заполнитель	Действие
	Цифровой символ, отображает цифру, если таковая находится в этой позиции, или 0, если – нет. Можно использовать символ 0 для отображения начальных нулей для целых чисел и конечных нулей в десятичных дробях; 00000.000 отображает 00124,500
	Цифровой символ, отображает цифру, если таковая находится в этой позиции, иначе - не отображает ничего. Символ-заполнитель # эквивалентен 0, кроме того, что начальные и конечные нули не отображаются; #####.### отображает 1234,5
$ Отображает знак доллара; $###,###.00 отображает $1 234,50
	Десятичный символ-заполнитель, отображает десятичную точку в обозначенной позиции в строке символов-заполнителей 0; #.##.## отображает 1234,5
	Символ процента, умножает значение на 100 и добавляет знак процента в позицию, указанную символами-заполнителями 0; #0.00% отображает число 0.12345 как 12,35% (12,345 округляется до 12,35)
, (запятая)	Разделитель тысяч, добавляет запятые как разделители тысяч в строках символов-заполнителей 0 и #; ###,###,###.00 отображает 1 234,50
	Отображает значения в экспоненциальном формате со знаком порядка только для отрицательных значений; #.####Е –00 отображает 1,2345Е03; 0,12345 отображается как 1,2345Е-01
	Отображает значения в экспоненциальном формате со знаком порядка для положительных и отрицательных значений; #.####Е+00 отображает 1,2345Е+03
	Отделяет день, месяц и год для форматирования значений дат. mm / dd / yy отображает 06/06/97. Символы "/" можно заменять на символы дефиса для отображения как 06-06-97
	Указывает, как отображать месяцы в датах; m отображает 2, mm – 02, mmm – фев, mmmm – Февраль
	Указывает, как отображать дни в датах; d отображает 1, dd отображает 01, ddd – Пт, dddd – пятница
y Отображает день года как число от 1 до 366
	Указывает, как отображать годы в датах; yy отображает 99, уууу – 1999
	Отображает квартал года как число от 1 до 4
	Отображает день недели как число (1 – это воскресенье)
	Отображает неделю года как число от 1 до 54

Символ-заполнитель	Действие
: (двоеточие) Отделяет часы, минуты и секунды в значениях формата времени; hh : mm : ss отображает 02:02:02
	Указывает, как отображать часы; для значения времени 02:01:38 h отображает 2, hh отображает 02
	Минутный символ-заполнитель для времени; для значения времени 02:01:08 n отображает 1, а nn отображает 01
	Секундный символ-заполнитель для времени; для значения времени 02:01:08 s отображает 8, и ss отображает 08
	Отображает время в 12-часовом формате времени с добавленными AM и РМ; h : nn АМ/РМ отображает 4:00 РМ. Альтернативные форматы включают am/pm, A/P и а/р
	Символьный заполнитель, отображает пробел, если не имеется соответствующего символа в форматируемой строке (порядок заполнения по умолчанию - справа налево)
	Отображает все символы в верхнем регистре
	Отображает все символы в нижнем регистре

Использование функций 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)

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

Application .

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

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

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

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

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

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

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

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

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

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

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

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

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