Язык программирования VBA. Основные понятия и область применения

Обращение к функции (находящееся в программе) имеет вид:

название (фактические_ параметры)

где фактические_параметры - массивы, переменные, константы, числа и/или строки, перечисленные через запятую.

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

Sub Program1 ()

Dim L Аs Long

Dim W Аs Double

L = Fact(12)

W = 4.2 + Fact(10) / 2

End Sub

Function Fact(N) Аs Long

Dim I Аs Byte

Dim J Аs Long

J = 1

For I = 1 То N

J = J * I

Next I

Fact = J

End Function

Первая группа операторов - это программа Program1. Вторая группа операторов - описание функции Fact, которая рассчитывает факториал целого положительного числа N, являющегося формальным параметром.

В программе два обращения к функции Fact, С фактическими параметрами 12 и 10.

1. Обращение к функции Fact фигурирует в правой части оператора присваивания L=Fact(12). в результате выполнения этого оператора значение функции Fact при N=12 (Т. е. значение, возвращаемое функцией Fact в программу) присваивается переменной L.

2. Обращение к функции Fact фигурирует в арифметическом выражении 4 .2 + Fact(10)/2. Значение этого арифметического выражения присваивается переменной W.

Описание пользовательской подпрограммы имеет следующий синтаксис:

Sub название (формальные_параметры)

операторы

End Sub

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

Имеется два эквивалентных оператора обращения к подпрограмме:

Call название (фактические_параметры)

название фактические_параметры

где фактические_параметры- список фактических параметров, как в обращении к функции. При наличии ключевого слова Call список фактические_параметры заключается в скобки, в отсутствие Call скобки не ставятся. Пример кода программы и описания подпрограммы, находящихся в одном модуле:



Sub Program2()

Dim аа As Single

Dim ЬЬ As Single

Dim eel As Single

Dim ес2 As Single

Dim сеЗ As Single

аа = З

bb = 4

Call Hypotenuse(aa, bb, сc1) 'l-e обращение к подпрограмме

Call Нуроtепusе(З, 4, сс2) '2-е обращение к подпрограмме

Hypotenuse аа, bb, cc3 'З-е обращение к подцрограмме

End Sub

Sub Hypotenuse (ByVal А, ByVal В, ByRef С)

С = Sqr(A^2+В^2)

End Sub

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

Формальные параметры А и В (в описании подпрограммы) являются входными. Это - длины катетов. Ключевое слово ByVal перед А и В в первой строке подпрограммы означает, что эти параметры вызываются по значению (value - значение). В этом случае при обращении к подпрограмме ей передаются значения А и В. Это - соответственно З и 4 при всех трех обращениях к подпрограмме Hypotenuse.

Формальный параметр С является выходным. Это - длина гипотенузы. Ключевое слово ByRef перед С в первой строке подпрограммы означает, что параметр С вызывается по ссылке (reference - ссылка). В этом случае при обращении к подпрограмме ей передается адрес ячейки оперативной памяти, соответствующей переменной cc1 (при первом обращении к подпрограмме Hypotenuse, сс2 (при втором обращении) или ccЗ (при третьем обращении).

Ключевое слово ByRef можно опускать.

Если параметрами подпрограммы являются массивы, то все они (и входные, и выходные) вызываются по ссылке.

Dim N1 As Integer

Sub Program3 ()

Dim хх(50) As Double, уу(50) As Double

Dim i As Integer

N1 = 3

For i = N1 То 30

xx(i) = 0.1 * i

Next i

Call ХSINХ(30, хх, уу) 'обращение к подпрограмме

End Sub

Sub XSINX(ByVal N2, ByRef Х() As Double, ByRef F() As Double)

Dim j As Integer

For j = Nl То N2

F(j) = X(j) * Sin(X(j))

Next j

End Sub

Это сделано для того, чтобы переменная Nl была «видима» (в плане возможности использования) и в программе, и в подпрограмме. Переменные можно объявлять в двух местах:

· внутри программы или процедуры;

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

Если переменная объявлена в процедуре (как переменная j в последнем коде), то только эта процедура ее видит. Другие процедуры (если они есть) и программа не могут использовать значение этой переменной и менять его. Такую переменную называют локальной. Говорят также, что переменная видима на уровне процедуры.

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

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

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

Пример:

Sub Program4 ()

Dim vntA As Byte

Dim vntB As Byte

Dim С As Integer

vntA = 5

vntB = 10

С = Apt(vntA, vntB) 'Результат: vntB = 6, С = 625

vntB = 10

С = Apt(vntA) 'Результат: vntB = 10, С = 625

End Sub

Function Apt(ByVal а, Optional b As Variant)

If Not IsMissing(b) Then b = а + 1

Apt = а^4

End Function

В этом примере параметр b функции Apt является необязательным, о чем говорит Optional перед b. Словосочетание As Variant после b можно опустить.

В описании функции Apt:

* Not - логическая операция;

* IsMissing -функция.

Значение IsMissing(b) равно True при отсутствии второго параметра в обращении к Apt и False при наличии этого параметра.

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

Пример:

Sub Program5 ()

Dim vntA As Byte

Dim vnt~ As Byte

Dim vntC Аs Byte

vntA = 5

vntB = 10

Call Opt(vntA, vntC, vntB) 'Результат: vntC = 15

vntB = 10

Call Opt(vntA, vntC) 'Результат: vntC = 8

End Sub

Sub Opt(ByVal а, с, Optional b = З)

с = а + b

End Sub

В приведенном примере параметр b подпрограммы Opt является необязательным, причем, если в обращении к Opt присутствуют только два фактических параметра, то при выполнении оператора с = а + b полагается b = 3.

Контрольные понятия для изучения.

1. Пользовательские функции.

2. Пользовательские процедуры.

3. Понятие формальных и фактических параметров.

Порядок выполнения.

1. Изучить теоретическую часть и занести в протокол основные положения.

2. Переделать процедуры созданные в предыдущей работе с применением пользовательских процедур или функций и применением диалоговых окон InputBox и MsgBox.

3. Отладить и запустить эти программы на выполнение в среде Microsoft Word. Занести текст созданных процедур в протокол.

4. Отобразить в протоколе основные трудности, возникшие у Вас при создании программы.

Лабораторная работа №6

Понятие объектно-ориентированного языка программирования. Объекты и события

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

Основные вопросы.

1. Понятие объекта.

2. Классы объектов и отдельные объекты.

3. Объектная модель.

Понятие объекта.

Все современные алгоритмические языки, в частности Visual Basic и VBA, являются объектно- и событийно-ориентированными. Простейший способ понять суть объектов - рассматривать их как часть приложения VВA и документов. Ячейка рабочего листа Ехсеl является объектом, так же как и именованный диапазон ячеек. То же касается отдельных рабочих листов и рабочих книг, в которые входят ячейки, диапазоны и листы. Во всех офисных приложениях VВA панели управления и меню (так же, как кнопки и элементы меню) являются объектами.

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

Объект - это именованный элемент, обладающий:

· свойствами (настройки, которые может проверять и изменять пользователь);

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

а также в некоторых случаях

· событиями (то, что происходит с объектом и на что он может отреагировать, автоматически предпринимая заранее заданные действия).

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

Алан Кёртис Кей (Alan Curtis Kay - американский учёный в области теории вычислительных систем. Один из пионеров в областях объектно-ориентированного программирования и графического интерфейса) в свое время вывел пять основных черт объекно-ориентированного языка программирования:

1. Все является объектом. Объект как хранит информацию, так и способен ее преобразовывать. В принципе любой элемент решаемой задачи (дом, собака, услуга, химическая реакция, город, космический корабль и т. д.) может представлять собой объект. Объект можно представить себе как швейцарский нож: он является набором различных ножей и «открывашек» (хранение), но в то же самое время им мы можем резать или открывать что-либо (преобразование).

2. Программа -- совокупность объектов, указывающих друг другу что делать. Для обращения к одному объекту другой объект «посылает ему сообщение». Как вариант возможно и «ответное сообщение». Программу можно представить себе как совокупность к примеру 3 объектов: писателя, ручки и листа бумаги. Писатель «посылает сообщение» ручке, которая в свою очередь «посылает сообщение» листу бумаги -- в результате мы видим текст (посыл сообщения от листа к писателю).

3. Каждый объект имеет свою собственную «память» состоящую из других объектов. Таким образом, программист может скрыть сложность программы за довольно простыми объектами. К примеру, дом (достаточно сложный объект) состоит из дверей, комнат, окон, проводки и отопления. Дверь, в свою очередь, может состоять из собственно двери, ручки, замка и петель.

4. У каждого объекта есть тип. Иногда тип называют еще и классом. Класс (тип) определяет какие сообщения объекты могут посылать друг другу.

5. Все объекты одного типа могут получать одинаковые сообщения. К примеру у нас есть 2 объекта: синяя и красная кружки. Обе разные по форме и материалу. Но из обеих мы можем пить (или не пить, если они пустые). В данном случае кружка -- это тип объекта.

Самое лаконичное описание объекта предложил Гради Буч (Grady Booch - американский инженер, руководитель исследований в IBM Research): «Объект обладает состоянием, поведением и индивидуальностью».

Классы объектов и отдельные объекты.

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

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

Объектная модель

Программирование на VBA можно рассматривать, как управление объектами приложения. Объектом является почти все - таблицы, книги, ячейки, диапазоны ячеек, даже сам Excel. У объектов есть свойства (например, ширина, высота, цвет) и методы (такие как Select например). Доступ к свойствам и методам осуществляется через точку. Например так: Cells(1,1).Select - выделить первую ячейку первой страки в текущей таблице. Объекты могут быть вложенными один в другой. Ячейка вложена в таблицу, таблица в книгу, книга в окно Excel. На VBA это выглядит вот так:

Application.ActiveWorkbook.ActiveSheet.Cells(1,1) = 123

Записываем значение 123 в первую ячейку первой строки текущей таблицы.

В этом случае иерархия выглядит так:

Application

Workbook

........

Worksheets

......

Cell

Задача программиста на VBA сводится к изменению свойств объектов и вызову их методов.

Контрольные понятия для изучения.

1. Объект, как основное понятие VBA.

2. Инкапсуляция объекта.

3. Основные черты объектно-ориентированного языка программирования

4. Классы (типы) объектов.

5. Объектная модель программы.

Порядок выполнения.

1. Изучить теоретическую часть и занести в протокол основные положения.

2. Для студентов с номером по списку кратному трём, создать в Microsoft Word процедуру возведения числа в квадрат методом суммирования нечётных чисел (метод Пифагора) с применением диалоговых окон InputBox и MsgBox.

3. Для студентов с номером по списку кратному четырём (кроме номеров кратных трём), создать в Microsoft Word процедуру вычисления чисел Фибоначчии в заданном диапазоне с применением диалоговых окон InputBox и MsgBox.

4. Оставшимся студентам с нечётными номерами создать в Microsoft Word процедуру вычисления числа Фибоначчи по его порядковому номеру с применением диалоговых окон InputBox и MsgBox.

5. Остальным студентам создать в Microsoft Word процедуру вычисления числа (пи) с применением диалоговых окон InputBox и MsgBox и использованием структуры Do Until … Loop.

6. Отладить и запустить эти программы на выполнение в среде Microsoft Word..

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

8. Отобразить в протоколе основные трудности, возникшие у Вас при создании программы.

Лабораторная работа №7

Особенности применения VBA в Microsoft Excel

Цель: изучить основные приёмы создания процедур в Microsoft Excel.

Основные вопросы.

1. Объекты OLE и ActiveX.

2. Объекты. Методы и свойства объектов.

3. Классы.

4. Иерархия объектов.

Семейство (объект Collection) представляет собой объект, содержащий несколько других объектов, как правило одного типа. Например, объект WorkBooks (Рабочие книги) содержит все открытые объекты WorkBook (Рабочая книга). Каждый элемент семейства нумеруется и может быть идентифицирован либо по номеру, либо по имени. Например, worksheets (1) обозначает первый рабочий лист активной книги, a worksheets (Лист1) - рабочий лист с именем Лист1.

Объекты OLE и ActiveX.

В VBA используется механизм OLE (Object Linking and Embedding - связывание и внедрение объектов), который позволяет взаимодействовать с любыми программами, поддерживающими OLE. Примером элементов, которые можно интегрировать при помощи механизма OLE, являются вставляемые объекты OLEObject, создаваемые, например, при помощи программ.

Объекты. Методы и свойства объектов.

WordArt, ClipArt и т. д. Все OLE-объекты рабочего листа образуют семейство OLEObjects. Вручную в рабочий лист OLE-объекты вставляются командой Вставка/Объект с выбором в появившемся диалоговом окне Вставка объекта из списка на вкладке Создание внедряемого объекта. OLE-объект отличается от обычного тем, что при выборе внедренного объекта (при перемещении на него указателя и щелчке кнопкой мыши) активизируется программа, связанная с этим объектом, и меню приложения заменяется меню программы, его создавшей. Теперь можно, не выходя из основного приложения, работать с данным объектом, редактируя и видоизменяя его средствами создавшей его программы. Кроме того, OLE-технология обладает так называемым свойством Automation, с помощью которого можно устанавливать свойства, применять методы и обрабатывать события внедренных объектов как обычных объектов приложения.

С 1996 г. фирма Microsoft ввела новую терминологию, и теперь то, что раньше именовалось OLE-объектом, называется объектом ActiveX, a OLE Automation называется ActiveX Automation.

Классы

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

Иерархия объектов. Ссылки на объект.

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

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

Например, полная ссылка на ячейку А1 рабочего листа Лист1 рабочей книги с именем Кафедра имеет вид:

Application.Workbooks("Кафедра" heets("Листі").Range("Al")

Приводить каждый раз полную ссылку на объект не обязательно. Обычно достаточно ограничиться только неявной ссылкой на объект. В неявной ссылке, в отличие от полной, объекты, которые активны в данный момент, как правило, можно опускать. В рассмотренном случае, если ссылка на ячейку А1 дана в программе, выполняемой в среде Excel, то ссылка на объект Application может быть опущена, т. е. достаточно привести относительную ссылку:

Workbooks("Кафедра").Worksheets("Лист1").Range("А1")

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

Worksheets("Лист1").Range("А1")

Если и рабочий лист Лист1 активен, то в относительной ссылке вполне достаточно ограничиться упоминанием только диапазона А1:

Range("А1")

Методы.

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

Синтаксис применения метода:

Объект.Метод

Например, при помощи метода Quit (Закрыть) закрывается приложение (объект Application):

Application.Quit

Метод можно применять ко всем объектам семейства. Например, к семейству chartobjects (Диаграммы) рабочего листа Лист1 применен метод Delete (Удалить), который приводит к удалению всех диаграмм с рабочего листа Лист1:

Worksheets("Лист!") .ChartObj ects.Delete

Свойства.

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

Синтаксис установки значения свойства:

Объект.Свойство = ЗначениеСвойства

В следующем примере изменяется заголовок окна Excel посредством задания свойства Caption объекту Application:

Application.Caption = "База данных"

Свойство можно изменять сразу у всех объектов семейства. Например, с помощью установки свойству Visible (Видимость) значения False (Ложь) все рабочие листы активной книги (семейство объектов Worksheets) скрываются:

Worksheets.Visible = False

Среди свойств особое место занимают свойства, возвращающие объект:

Ac t іveWindow	Возвращает активное окно Excel
ActiveWorkbook	Возвращает активную рабочую книгу окна Excel
ActiveSheet	Возвращает активный лист активной рабочей книги
ActiveDialog	Возвращает активное диалоговое окно активного рабочего листа
ActiveChart	Возвращает активную диаграмму активного рабочего листа
ActiveCell	Возвращает активную ячейку активного рабочего листа
Свойство АсНуєСєіі	Возвращает активную ячейку активного рабочего листа активной рабочей книги.

Размещено на Allbest.ur

...