Хамухин А.А. Введение в информатику для инженеров нефтегазового дела:

Подождите немного. Документ загружается.

вызвавшую программу, щелкните кнопку Шаг с выходом. (Step Out). Выполнение

остановится в инструкции, следующей за вызовом.

Чтобы прервать пошаговый режим и завершить программу, выполнив все

оставшиеся инструкции обычным способом, щелкните кнопку Продолжить

(Continue): ее действие аналогично действию кнопки Запуск подпрограммы /

UserForm (Run Sub/User Form). Чтобы остановить программу, щелкните кнопку

Сброс (Reset).

Точки останова и Окно контрольного значения

Можно создавать точки останова (Toggle Breakpoint), в которых нормальное

выполнение программы приостанавливается. Такие точки очень полезны, когда

нужно быстро выполнить код до определенной инструкции, а затем перейти в

пошаговый режим. Для создания точки останова поместите указатель ввода в

нужное место строки программы и щелкните кнопку Точка останова (Toggle

Breakpoint или клавишу F9). Строка будет выделена красным цветом, а справа от

нее появится большая красная точка.

Когда будут выполнены все инструкции до отмеченной, программа остановится.

Чтобы удалить точку останова, выделите строку и снова щелкните кнопку Точка

останова (Toggle Breakpoint или клавишу F9).

Кнопки Контрольное значение (Quick Watch) и Окно контрольного значения

(Watch Window) отображают значения переменных во время выполнения

программы.

Контрольные значения, как и пошаговое выполнение программ, – мощный

инструмент отладки программ. Для его создания выделите любую переменную или

фрагмент кода и щелкните кнопку Контрольное значение (Quick Watch). На экране

появится диалоговое окно Контрольное значение (Quick Watch), в котором

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

Значение переменной в режиме пошаговой отладки (одна из строк программы

подсвечена желтым цветом) можно посмотреть, просто наведя на ее имя курсор

мышки – оно появится во всплывающем окне.

3.3. Объекты, методы и свойства VBA

В нашей жизни мы вправе считать слово «объект» синонимом слова

«вещь». Каждому из них соответствует набор характеристик, представляющих

различные измеримые параметры – свойства. Рассмотрим в качестве примера

автомобиль. Вот его свойства: цвет – красный, год выпуска – 1990, марка –

«Запорожец», число мест – четыре, максимальная скорость – 95 км в час и др. Они

характеризуют все особенности объекта, отличающие его от других подобных

объектов.

Если свойства – прилагательные, описывающие объект, то методы – глаголы,

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

ним. Например, для автомобиля это запуск двигателя, ускорение, торможение,

остановка и т.п.

3.3.1. Объекты в программировании

Объекты объединяются в наборы (классы, семейства, коллекции), которые

имеют общие свойства и методы (в более развитых объектно-ориентированных

языках еще есть и механизмы наследования, инкапсуляции и т.п.). Имя объекта

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

которые он входит в соответствии с принятой иерархией), либо сокращенно (тогда

имя семейств подразумевается по умолчанию, например: открытая книга, активный

лист).

Язык VBA объектно-ориентированный, поэтому оперируют со следующими

понятиями (в дополнение к обычным понятиям процедурно-ориентированных

языков – переменная, массив, оператор, функция и т.п.):

• объект управления и контроля – экранные формы, графические элементы

внутри форм, в том числе текстовые окна, линейки прокрутки, пиктограммы, окна-

списки, командные кнопки и др.;

• свойство (параметр) – характеристика или атрибут объекта управления;

• событие – действие, которое распознается объектом управления;

• метод – оператор, который воздействует всегда на объект, аналогично

понятиям функция;

• событийная процедура – подпрограммы и функции, произвольная

последовательность операторов VBA, запускаются при наступлении некоторого

события (в отличие от общих процедур).

Основные семейства (наборы) объектов, с которыми работает программа на

языке VBA в приложении Excel, представлены в табл. 3.2.

Таблица 3.2

Перечень основных наборов объектов VBA for Excel

Имя набора Вид объектов в наборе

Sheets

Все листы любых типов в рабочей книге

Workbooks

Все текущие открытые рабочие книги

Worksheets

Все таблицы в рабочей книге

Charts

Все листы диаграмм в рабочей книге

Range

Диапазон ячеек таблицы (строк,

столбцов, несмежных ячеек)

Доступ к компоненту набора осуществляется двумя способами:

1. по номеру компонента (листа книги, номерам ячеек):

Wоrkbooks(«File1.xls»). Worksheets(2)

Wоrkbooks(«File1.xls»). Worksheets(1).Cells(1,2)

2. по имени компонента (листа книги, именам ячеек)

Workbooks(«File1.xls »).Worksheets(«Имя-листа»)

Workbooks(«File1.xls »).Worksheets(1).Range(«Имя диапазона ячеек»)

3.3.2. Свойства

Объекты (наборы объектов) обладают как общими, так и индивидуальными

свойствами. Например, общие свойства объектов Excel:

• Count – определяет число компонентов в наборе;

• Name – определяет имя компонента;

• Parent – определяет имя объекта, включающего набор.

Индивидуальные свойства: например, рабочие книги имеют свойство author (автор

книги), а рабочие листы – свойство visible (= true лист становится видимым, = false

лист становится невидимым), диапазоны ячеек имеют свойство value (значение).

Свойство указывается после имени объекта через точку. Его можно либо

использовать, либо задавать (после знака = указать задаваемое значение), хотя

некоторые свойства доступны только для чтения (например – parent). В табл. 3.3.

приведены примеры обращения к некоторым свойствам объектов.

Таблица 3.3

Примеры обращения к свойствам объектов

Фрагмент

программы

a = Worksheets(1).Name

MsgBox (a)

В переменную a

заносим свойство Name

листа с порядковым

номером 1 и выводим

значение этого свойства в

окне

Результат

После нажатия кнопки

«Выполнить (Run) макрос»

получаем окно, в котором

сообщается имя первого

листа данной книги

Фрагмент

программы

a = Worksheets.Count

MsgBox (a)

В переменную a

заносим свойство Count

рабочих листов открытой

книги и выводим значение

этого свойство в окне

Результат

После нажатия кнопки

«Выполнить (Run) макрос»

получаем окно, в котором

сообщается количество

листов данной книги

Окончание табл. 3.3

Примеры обращения к свойствам объектов

Фрагмент

программы

a = Worksheets.Parent.Name

MsgBox (a)

В переменную a

заносим Parent.Name – имя

объекта-предка рабочих

листов открытой книги и

выводим значение этого

свойства в окне

Результат

После нажатия кнопки

«Выполнить (Run) макрос»

получаем окно, в котором

сообщается имя данной

книги

Фрагмент

программы

Worksheets(1).Name = ”LabRab 4”

MsgBox (Worksheets(1).Name)

В свойство Name листа

с порядковым номером 1

заносим новое имя LabRab

4 и выводим значение

этого свойства в окне

Результат

После нажатия кнопки

«Выполнить (Run) макрос»

получаем окно, в котором

сообщается имя первого

листа данной книги

3.3.3. Методы

Методы являются действиями, которые можно выполнять с объектами. Методы,

так же как и свойства, указываются через точку после имени объекта. В отличие от

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

написания не должно быть знака = как у свойств.

У методов могут быть аргументы, которые указываются через пробел после

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

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

каждый аргумент должен находиться на своей позиции) или по имени (в этом

случае порядок расположения аргументов не имеет значения).

В последнем случае порядок следования аргументов безразличен, а имя от

значения отделяется знаком «присвоить» : =. Значения некоторых (в том числе и

всех) аргументов можно опускать, тогда они используются по умолчанию (но

запятые до заданного аргумента оставить необходимо).

В табл. 3.4 приведены примеры обращения к некоторым методам. Для

добавления и удаления компонентов набора используют методы Add и Delete. Для

очистки содержимого ячеек – метод ClearContents.

Таблица 3.4

Примеры обращения к методам объектов

Фрагмент программы Пояснение

Workbooks(“Ivanov.xls”).Close True, “Lab2.xls”,

False

Вызывается метод Close

(закрыть книгу) c тремя

аргументами по позиции:

сохранить изменения (первый

аргумент), на диске в текущем

каталоге под именем Lab2.xls

(второй аргумент), не

спрашивать, если такой файл

уже есть на диске (третий

аргумент)

Workbooks(“Ivanov.xls”).Close saveChanges :=

True

Вызывается метод Close –

закрыть книгу Ivanov.xls c

одним аргументом по имени

(сохранить изменения)

Workbooks(“Ivanov.xls”).Close

Вызывается метод Close –

закрыть книгу Ivanov.xls,

вызов сделан без аргументов,

поэтому применяются их

значения по умолчанию

Worksheets(1).Protect

Вызывается метод Protect –

защита, лист 1 текущей

(активной) рабочей книги

становится защищенным от

записи в любую ячейку

Worksheets(1).Unprotect

Вызывается метод Unrotect –

снять защиту, лист 1 текущей

(активной) рабочей книги

становится доступным для

записи в любую ячейку

Worksheets("Sheet2").Activate

Вызывается метод Activate,

открывается (создается) лист с

именем Sheet2

Worksheets(1).Range("B5").Select

Вызывается метод Select,

курсор устанавливается в

ячейку B5 листа 1 текущей

(активной) рабочей книги

Отдельные ячейки таблицы Excel доступны через объект Range и его свойства и

методы.

1. Range – работа с прямоугольной областью ячеек, в качестве аргументов

используется одна или две ссылки на ячейки таблицы в стиле А1, либо на блок ячеек

по их имени.

Worksheets(1).Range("A1:B2").Value = 10

Присвоение блоку ячеек постоянного значения 10.

Range("D15").Value = "Test"

Присвоение ячейке текущего рабочего листа активной рабочей книги значения

"Test".

Range("A1:B2").ClearContents

Очистка содержимого диапазона ячеек от А1 до В2

Range("Name").ClearContents

Очистка содержимого именованного блока ячеек текущего рабочего листа

активной рабочей книги. (Напомним, чтобы именовать группу ячеек их нужно

выделить и нажать меню Вставка-Имя-Присвоить).

2. Cells – в качестве аргументов указываются два целых числа, определяющих

место положения отдельной ячейки таблицы – Cells (число1, число2) Число1 –

номер строки, число2 – номер столбца

Cells(1,2).Value=5

Присваивает ячейке B1 активного рабочего листа активной рабочей книги

значение 5;

Cells(2, 1).Formula = "=SUM(B1:B5)"

Записывает в ячейку А2 формулу суммирования значений в ячейках В1:В5.

Можно использовать форму записи:

Range(Cells(1, 1), Cells(2, 2)).Value = 4

3. Offset – смещение активной ячейки. В качестве аргументов передаются два

числа, указывающие местоположение ячейки относительно текущей активной

ячейки

Selection.Offset(2,5).Select

Относительно текущей ячейки (например, А1) происходит смещение на 2 строки

и 5 столбцов (в ячейку F3).

3.4. Встроенные типы данных VBA

VBA использует 12 встроенных типов данных. К представленным ранее

числовым типам данных (Byte, Integer, Long, Single, Double, Currency) добавим

следующие типы: Boolean (для логических переменных), Date (для переменных,

содержащих дату и время), String (для текстовых переменных), Object (для

объектных переменных), Variant (используется всегда, когда явно не указан какой-

либо другой тип; может соответствовать любому другому разрешенному типу

данных). Полный перечень типов данных VBA приведен в табл. 3.5.

Таблица 3.5

Полная таблица типов данных VBA

Тип (занимаемая

память)

Пояснение

Boolean (2 байта)

Принимает значения True или False

Byte (1 байт)

Целое число без знака. Пределы: от 0 до 255

Currency (8 байт)

Денежная единица. Применяется в вычислениях с

фиксированной точкой, когда важна высокая точность.

Пределы: от -922 337 203 685 477,5808 до 922 337 203 685

477,5807

Date (8 байт)

Дата и время. Пределы: от 1 января 100 года до 31

декабря 9999 года

Double (8 байт)

Действительное число двойной точности. Пределы

отрицательных значений: от -1,79769313486232Е308 до -

4,94065645841247Е-324. Пределы положительных

значений: от 4,94065645841247Е-324 до

1,79769313486232Е308, а также ноль

Integer (2 байта)

Целое число. Пределы: от -32 768 до 32 767

Long (4 байта)

Целое число. Пределы: от -2 147 483 648 до 2 147

483 647

Object (4 байта)

Объектная переменная для ссылки на любой объект

Excel

Single (4 байта)

Действительное число простой (одинарной) точности.

Пределы

отрицательных значений: от -3,402823Е38 до -1,401298Е-

45. Пределы положительных значений: от 1,401298Е-45

до 3,402823Е38, а также ноль

String (по 1 байту на

символ)

Строка, содержащая от 0 до более чем 2 миллиарда

символов

Variant (16 байт)

Переменная любого типа (за исключением

пользовательского). Используется по умолчанию

Пользовательский

тип данных

Подобен структуре или записи в других языках

программирования. Позволяет хранить в одной

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

3.5. Переменные и константы VBA

3.5.1.Переменные уровня проекта, модуля, процедуры

В языках программирования каждой переменной при описании указывается тип.

В VBA переменные можно не описывать, в этом случае они по умолчанию

принимают тип Variant. Все используемые в программе переменные (и константы)

имеют различный уровень видимости (доступности).

Переменную уровня модуля можно использовать в любой подпрограмме или

функции того модуля, где эта переменная была определена. Чтобы сделать

переменную доступной на уровне модуля, поместите ее определение в раздел

описаний перед любыми подпрограммами и функциями, как показано в примере:

Dim Var2 As String

Sub Pro4()

Var2 = "Hello, Tomsk"

Pro5

End Sub

Sub Pro5()

MsgBox Var2

End Sub

В программе Prо5 в окне появляется переменная Var2, значение которой было

присвоено в Рrо4, поскольку Var2 была описана на уровне модуля и сохраняет

значение во всех его программах. Если убрать первую строчку этого примера, то

окно окажется пустым, поскольку Var2 будет считаться переменной уровня

процедуры Рrо4 и будет недоступна в других процедурах модуля, например, в Pro5.

Переменная уровня проекта (или общего уровня) доступна и сохраняет свое

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

переменную доступной на уровне проекта, объявите ее с ключевым словом Public в

разделе описаний любого модуля проекта, перед любыми подпрограммами и

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

Одна из них присваивает значение переменной уровня проекта, а другая выводит

его в информационном окне:

‘This is Module 1

Public Var3 As String

Sub Pro6()

Var3 = «This variable was declared and set in Module 1»

End Sub

‘This is Module 2

Sub Pro7()

Pro6()

MsgBox Var3

End Sub

В этом примере программа Рrо7 вызывает из другого модуля программу Рrо6,

присваивающую значение переменной уровня проекта Var3. Затем значение этой

переменной в Рrо7 выводится на экран.

Переменные, описанные внутри процедуры (после строки со служебным словом

sub), имеют уровень процедуры и доступны только внутри этой процедуры.

3.5.2. Область видимости констант

Константы имеют те же уровни видимости, что и переменные, − процедуры,

модуля и проекта. Но объявляются они на каждом уровне немного иначе.

Константы уровня процедуры доступны лишь в той программе, где они описаны

так, как показано в примере.

Sub Pro8()

Const RU As String = "Moscow"

MsgBox "The capital of the Russia, is " & RU & "."

End Sub

Константы уровня модуля определяются с помощью того же ключевого слова

Const, но в разделе описаний модуля VBA:

Const Moon As Date = #7/20/69#

Sub Pro9 ()

MsgBox " People first walked on the moon on " & Moon & "."

End Sub

Sub Pro10 ()

MsgBox "I was in Tomsk on " & Moon & "."

End Sub

Здесь показано, что константа уровня модуля доступна всем программам этого

модуля, в частности и в Pro9, и в Pro10. В решетках указано значение константы,

которое она будет сохранять в течение всего проекта. Как и переменные уровня

модуля, константы можно объявлять с ключевым словом Private:

Private Const Moon As Date = #7/20/69#

Область видимости константы, объявленной с ключевым словом Private,

ограничена конкретным модулем. Впрочем, по умолчанию такую область

видимости имеют все константы уровня модуля, поэтому включать слово Private не

обязательно.

Чтобы сделать константу доступной на уровне проекта, опишите ее в разделе

описаний модуля VBA с ключевыми словами Public и Const:

Public Const Color As String = "Blue"

Константы уровня проекта доступны во всех модулях проекта, в котором они

описаны.

3.5.3. Объектные переменные

Объектная переменная используется для ссылки на объект. Когда Вы немного

разберетесь в языке VBA, то поймете неоценимую пользу таких переменных: они

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

помощью, легче читается и гораздо быстрее выполняется.

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

Во фрагменте кода, показанном ниже, приведены инструкции объявления и

присваивания.

Dim R1 As Object

Set R1 = Worksheets(1). Range("A1")

Set − ключевое слово для присваивания значения объектной переменной,

R1 − имя переменной,

Worksheets(l).Range("Al") − объект, присваиваемый переменной R1.

Рассмотрим на примере, что можно делать с переменной типа Object. Зададим с

помощью переменных типа Object и Long свойство Value объекта Range, которое

затем отображается в информационном окне.

Sub Pro11()

Dim N2 As Long

N2 = 100000

Dim R1 As Object

Set R1 = Worksheets(1).Range("A1")

R1.Value = N2

MsgBox R1.Value

End Sub

Здесь переменная R1 равна диапазону Worksheets(1).Range("A1"), в который

сначала заносится значение переменной N2, а затем оно выводится в окне MsgBox.

3.6. Оконный ввод-вывод данных

3.6.1. Функция InputBox

Функция InputBox предназначена для ввода информации в диалоговом окне и

передачи ее в переменную VBA.

Ожидает нажатия пользователем кнопки Ok или Cancel. Аргументы функции

перечислены ниже, а их назначение дано в табл. 3.6.

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])