Файл: Лабораторная работа 9 Массивы Массив.pdf

Для добавления рабочего листа в рабочую книгу используется метод Add
рабочей книги.
Прежде чем применять свойства и методы некоторого объекта, их следует сначала определить.
В операторах VBA используется следующий общий синтаксис для определения свойства или метода объекта:
<Имя обьекта>.<свойство или метод>
В таблице 1 приведены несколько из наиболее важных объектов (с точки зрения программиста VBA) в Excel. В таблице показано имя объекта и краткое описание этого объекта. (Excel содержит намного больше объектов, чем перечислено в табл 1.)
Таблица 1
Объект
Описание
Application
Само приложение Excel (host-приложение)
Chart
Диаграмма в рабочей книге
Font
Этот объект содержит атрибуты шрифта и стиля для текста, отображаемого в рабочем листе
Name
Заданное имя для диапазона ячеек рабочего листа
Range
Диапазон ячеек (одна или более) или именованный диапазон в рабочем листе
Window
Любое окно в Excel; окна используются для отображения рабочих листов, диаграмм и т.д.
Workbook
Открытая рабочая книга
Worksheet
Рабочая таблица в книге
Использование свойств объектов
Свойства объектов можно использовать только двумя способами:
получать значение свойства или устанавливать его. Следует отметить, что не все свойства объекта изменяемы. Свойства объектов, которые нельзя из- менять, называют свойствами, доступными только на чтение (read-only);
свойства, которые можно устанавливать, называют свойствами, доступными
на чтение/запись (read-write).
Свойства обычно содержат численные, строковые, значения типа Boolean, хотя некоторые свойства могут возвращать значения типа Object или другие типы данных.
Свойства используются в выражениях так же, как любое другое значение переменной или константы. Можно присваивать значение свойства переменной, использовать свойства объектов в выражениях как аргументы к функциям и процедурам или как аргументы для методов какого-либо объекта.
Чтобы присвоить некоторой переменной значение свойства объекта, используйте следующий синтаксис:
Переменная=Обьект.Свойство

Можно также использовать свойство объекта непосредственно в каком- либо выражении или в качестве аргумента функции или процедуры.
Пример использования свойств объекта
AnyStr = aSheet.Name
В этом примере строка, сохраняемая в свойстве

котором сохранен объект
Workbook
Saved
Boolean: сохранялась ли рабочая книга после последних изменений
Workbook
Selection
Object: текущий выделенный фрагмент
Application, Window
StatusBar
String: сообщение в статусной строке
Application
ThisWorkBook Object: рабочая книга, из которой выполняется текущая процедура
Application
Visible
Boolean: отображается или нет объект на экране
Application,
Worksheet,
Range и в других объектах
Value
(варьируется): действительное значение, отображаемое в ячейке
Range
Использование методов объекта
Методы объекта используются в операторах VBA так, как использовались бы любые встроенные процедуры VBA.
Метод объекта имеет следующий синтаксис:
ИмяОбъекта.Метод
Для методов объектов, имеющих обязательные и необязательные аргументы, используется такой синтаксис:
ИмяОбъетк.Метод Аргумент1, Аргумент2,…
Во второй строке синтаксиса Аргумент1, Аргумент2 и так далее представляют аргументы в списке аргументов метода. Необходимо перечис- лять аргументы метода в определенном порядке, отделяя каждый аргумент в списке запятой и включая отмечающие запятые {place holding commas) для пропущенных необязательных аргументов. Метод может иметь один или не- сколько аргументов в своем списке или не иметь их совсем; аргументы метода могут быть обязательными или необязательными.
Еще один способ вызова метода заключается в использовании
именованных аргументов и является, пожалуй, наиболее простым и очевидным. При вызове метода указываются названия аргументов, за которыми следует оператор := и сами передаваемые значения:
ИмяОбъекта.Метод Аргумент1:=Значение1, Аргумент2:=Значение2, …
Вызов метода с использованием именованных аргументов имеет два преимущества. Прежде всего, это наглядность кодов программы. Второе преимущество – в его простоте. С этом случае указывать необходимо только те аргументы, значения которых определяются вызывающей программой.
Примеры использования методов объекта
InstBook.Activate

ActiveWorkbook.SaveAs
Filename:="D:\VBA2000\NEWFILE.xls",
FileFormat:=xlNormal
Многие объекты имеют методы, которые возвращают значения так же, как это делает функция. Чтобы использовать значение, возвращаемое методом, необходимо поместить список аргументов метода в круглые скобки и включить вызов метода в оператор присваивания или другое выражение, точно так же, как при использовании функции. Можно также игнорировать результат, возвращаемый методом. Чтобы игнорировать результат метода
(если он имеет результат), вызовите метод без круглых скобок вокруг списка аргументов, как если бы метод не возвращал результата.
Примеры использования возвращаемых значений методов объекта
MsgBox myRange.Address
MsgBox myRange.Address(, , xlRlCl)
Метод Address в Excel (который принадлежит объекту Range) возвра- щает адрес диапазона ячеек в рабочем листе как строку. Если переменная myRange ссылается на первую ячейку в рабочем листе, то оператор MsgBox в приведенной выше строке примера отображает строку $А$1.
Хотя в этом примере метод Address вызывается без каких-либо аргументов, он, на самом деле, имеет несколько необязательных аргументов.
Эти необязательные аргументы определяют стиль адреса ячеек рабочего листа, возвращаемого методом, а также, являются ли координаты ячеек абсолютными или относительными. Во втором примере показан вызов метода
Address с его третьим необязательным аргументом (который определяет стиль возвращаемых координат ячеек):
В таблице 3 приведены некоторые из наиболее употребительных или полезных методов в Excel. В таблице представлено имя, краткое описание метода и объекты, имеющие этот метод.
Таблица 3
Метод
Назначение
Имеется в объектах
Activate
Активизирует объект
Window,
Workbook,
Worksheet, Range и в других объектах
Calculate
Выполняет вычисления в открытой рабочей книге, рабочем листе или диапазоне
Application,
Range,
Worksheet
Clear
Удаляет данные, сохраненные в указанном объекте
Range
Close
Закрывает указанный объект
Window,
Workbook,
Workbooks
Save
Сохраняет файл рабочей книги
Application, Workbook
SaveAs
Сохраняет указанный объект в другом файле
Workbook, Worksheet
Select
Выбирает указанный объект
Range,
Sheets,

Worksheets
Многие методы имеют большое количество аргументов. Чтобы получить список параметров метода, можно воспользоваться системой Auto Quick
Info. Эта система работает следующим образом: как только вы наберете строку, например
ActiveSheet.SaveAs( система подсказки выдаст на экран список всех параметров метода SaveAs,
как это обычно делается для обычных функций.
Согласно выданному системой Auto Quick Info всплывающему окну метод SaveAs имеет довольно много аргументов, хотя все они — необязательные. Если интуитивно вам непонятно назначение параметров какой-либо функции в окне Auto Quick Info, обратитесь за помощью к справочной системе. Для этого либо выделите, например, строку
ActiveDocument.SaveAs и нажмите клавишу F1.
В справочной системе очень подробно приведено описание каждого метода, и следует почаще прибегать к ее услугам. Впрочем, Редактор VBA постоянно предлагает эту помощь в процессе вашей работы с ним.
Объектные переменные
В дополнение к типам Byte, Integer, Long, Single, Double и String VBA также имеет тип Object. Переменные или выражения типа Object ссылаются на объект VBA или на объект, принадлежащий приложению, например Excel- объекты Workbook, Worksheet и Range.
Как и в случае с другими типами VBA, можно объявлять переменные в модулях, процедурах и функциях с определенным типом Object, что показано в следующем операторе:
Dim myObject As Object
Можно задавать переменную myObject, создаваемую предшествующим оператором Dim, чтобы она содержала ссылку на любой объект VBA или объект приложения. Если вы собираетесь использовать переменную типа
Object для некоторых специфических типов объектов, можно также объявлять объектную переменную для этого специфического типа объекта:
Dim InstBook As Workbook
Объектную переменную InstBook, создаваемую этим оператором Dim,
можно использовать только для сохранения ссылок на объекты Workbook;
при попытке присвоить переменной InstBook ссылку на объект Range или
Worksheet
VBA отображает сообщение об ошибке несовпадения типов.
Аналогично, следующее предложение объявляет объектную переменную, которая может сохранять только объекты Document:
Dim InstDoc As Document
Объектное выражение (object expression) — это любое выражение VBA, которое определяет отдельный объект. Все объектные выражения должны вычисляться до единственной объектной ссылки {ссылки на объект);

объектные выражения используются с единственной целью — создание ссылок на специфические объекты в ваших программах VBA.
Объектное выражение может состоять из объектных переменных, объектных ссылок или объектного метода или свойства, которое возвращает объект. Нельзя использовать переменные типа Object или объектные выражения в арифметических, логических или операциях сравнения.
Объектная ссылка, созданная с помощью объектного выражения или сохраненная в объектной переменной, в действительности, является только адресом, указывающим место в памяти компьютера, где сохранен объект, на который выполняется ссылка. Поскольку объектная ссылка — это адрес памяти, арифметические, логические операторы и операторы сравнения не имеют смысла.
Перед использованием объектной переменной для ссылки на объект необходимо задать эту переменную, чтобы она содержала ссылку на нужный объект. Присваивание объектной ссылки объектной переменной отличается от присваиваний других переменных; чтобы присвоить объектную ссылку объектной переменной, используйте оператор Set.
Оператор Set имеет следующий синтаксис:
Set Переменная=Объект
Переменная
— это любая объектная переменная или переменная типа
Variant. Объект — любая допустимая объектная ссылка; это может быть другая объектная переменная или объектное выражение. Если Переменная
— переменная, объявленная с каким-либо определенным типом (например,
Range или Workbook), этот тип должен быть совместим с объектом, на который ссылается Объект.
Пример использования объектных переменных
Dim InstSheet As Worksheet
Set InstSheet = Application.ActiveSheet
Чтобы задать отдельный объект в выражении или объектную переменную для ссылки на этот объект, используйте методы и свойства, возвращающие объекты, такие как свойства ActiveWorkbook и ActiveSheet объекта
Application или метод Cells объекта Worksheet (в Excel). Аналогичные принципы применимы в Word: используйте свойство ActiveDocument объекта
Application для получения ссылки на текущий документ и так далее.
Ссылка на объекты с помощью With...End With
При написании кода программы можно встретить ссылку на один и тот же объект в нескольких операторах. VBA предоставляет особую структуру
— структуру With...End With, позволяющую ссылаться.на свойства или методы, которые принадлежат одному и тому же объекту, без задания всей объектной ссылки каждый раз.
Структура With...End With имеет следующий синтаксис:
With Object

' операторы, использующие свойства и методы Object
End With
Object
— это любая допустимая объектная ссылка.
Пример использования структуры With...End With.
Dim FName As String
'имя файла-копии
With ActiveWorkbook
' Сформировать новое имя файла из исходного
FName - Left(.Name, InStr(.Name, ".") - 1) & "_bp2.xls"
FName = .Path & "\" & FName
.SaveCopyAs Filename:=FName
End With
End Sub
Сравните этот же код без использования структуры With...End With
Dim FName As String
' имя файла-копии ' Сформировать новое имя файла из исходного
FName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") -
1) _
& "_bp.xls"
FName = ActiveWorkbook.Path & "\" & FName 22
ActiveWorkbook.SaveCopyAs Filename:=FName
End Sub
Работа с коллекциями объектов и контейнерами объектов
Коллекция (collection) объектов — это группа связанных объектов, таких как все рабочие листы в рабочей книге или все символы в параграфе. Объект в коллекции называется элементом (element) этой коллекции.
Сама коллекция является объектом; коллекции имеют собственные свойства и методы. Каждая коллекция, например, имеет свойство Count,
которое возвращает число элементов в коллекции. Если в активной рабочей книге имеется 16 рабочих листов, то следующее выражение вычисляется до числа 16:
Application.ActiveWorkbook.Worksheets.Count
В этом выражении Worksheets — коллекция всех рабочих листов в рабочей книге, ActiveWorkbook — свойство Excel-объекта Application,
возвращающее активную рабочую книгу, a Count — свойство коллекции
Worksheets, возвращающее общее число рабочих листов в коллекции.
Это простое выражение помогает проиллюстрировать то, что одни объекты содержат другие объекты.. Контейнер (container) — это любой объект, содержащий один или несколько других объектов. В данном примере
Application содержит объект, на который ссылается ActiveWorkbook,
содержащий в свою очередь, коллекцию объектов Worksheets. Все контейнерные объектные ссылки соединяются вместе с помощью точки- разделителя (.) для образования одного объектного выражения.
Объект Application включает в себя коллекцию (семейство) объектов Книга
(Workbook). Семейство книг называется Workbooks (в конец добавляется буква ―s‖ в английском языке это обозначает множественное

число). Обратиться с конкретной книге в приложении можно указав название семейства – Workbooks и в скобках имя или номер книги. Например,
Workbooks(―Книга.xls‖) или Workbooks(1). Объект Workbook является частью семейства Workbooks, хотя семейство Workbooks тоже является объектом. Кроме того, существует еще объект ActiveWorkbook – активная книга, который тоже является свойством объекта Application. Объекты и
ActiveWorkbook являются одиночными объектами. Объект Workbooks - семейство.
Объект Workbook содержит набор свойств объектов, которые будут перечислены ниже:
• объект семейство (коллекция) Worksheets – это рабочие листы конкретной рабочей книги.
• объект семейство Sheets – это рабочие листы в активной рабочей книге.
• объект семейство Windows – это все окна в конкретной рабочей книге.
• объект ActiveSheet - это активный рабочий лист в активной рабочей книге.
Объект Worksheet является рабочим листом - элементом семейства
Worksheets, но чтобы обратиться к конкретному листу из семейства надо указать имя или номер рабочего листа в коллекции. Например
Worksheets(‖Лист1‖) или Worksheets(2).
Объект APPLICATION
Объект Application - это главный (корневой) объект в иерархии объектов
Excel, представляющий само приложение Excel. Он имеет огромное число свойств и методов, позволяющих установить общие параметры приложения
Excel. Кроме того, объект Application через свойство WorksheetFunction предоставляет возможность использовать в коде все встроенные функции рабочего листа. Это семейство возвращает WorksheetFunction объект, являющийся контейнером всех функций рабочего листа. Например, в следующем примере находится максимальное знчение из диапазона А1:А4:
Макс=Application.WorksheetFunction. Max(Range("А1:А4"))
Функции рабочего листа можно включать в код непосредственно через объект Application, опуская свойство WorksheetFunction. Например, в следующем примере переменной Pi присваивается значение Пи, а переменной
Сумма присваивается значение суммы из диапазона А1:А4:
Pi = Application.Pi()
Сумма = Application.Sum(Range("A1:А4"))
Свойства объекта APPLICATION
Свойство
Описание
ActiveWorkbook,
ActiveSheet,
ActiveCell,
Activechart
Возвращают активную рабочую книгу, лист ячейку, диаграмму. ActiveCell содержится в ActiveSheet, a
ActiveSheet и ActiveChart в ActiveWorkbook. В следующем примере в активной ячейке устанавливается