Vba excel создание класса
В VBA наряду с огромным числом встроенных объектов предусмотрена возможность создания пользовательских объектов. Использование таких объектов позволяет сократить текст программы и сделать его более понятным. Пользовательские объекты являются элементами пользовательских классов (или образно говоря, классы являются формами, из которых "пекутся" конкретные объекты). Пользовательские классы конструируются в модулях классов, которые создаются в редакторе Visual Basic выбором команды Вставка, Модуль класса (Insert, Class Module). При создании классов надо предусмотреть его инициализацию, описание свойств и методов, которыми будет наделен объект.
Опишем процесс создания класса в виде следующей последовательности шагов:
- Выберите команду Вставка, Модуль класса (Insert, Class Module). Откроется окно нового модуля класса.
- Нажмите клавишу <F4> и присвойте в появившемся окне свойству Name имя класса. Имя модуля класса является именем класса объектов.
- В разделе описания модуля объявите переменные уровня модуля, которые используются как "значения свойств".
- Инициализируйте класс при помощи процедуры Private Sub Class_Initialize. В этой процедуре надо указать значения, принимаемые по умолчанию переменными уровня модуля, описывающими "значения свойств".
- При помощи процедур Property Let объявите имена свойств, значениями которых являются числовые данные, а при помощи процедур Property set объявите имена свойств, значениями которых являются объекты. Если какое-то свойство — только для чтения, то для него не надо составить процедуру Property Let.
- При помощи процедур Property Get установите возможность считывания значения свойств.
- Создайте методы класса. Методы создаются при помощи обычных процедур и функций. Если метод возвращает число, то для его конструирования используется функция, а в остальных случаях — процедура.
- Допустимо также создание процедуры Private Sub Class_Terminate для удаления объекта из памяти по завершению работы с ним.
Процедуры Property Let, Property Set и Property Get
Процедура Property Let служит для объявления имен свойств, значениями которых являются числовые данные.
Процедура Property set служит для объявления имен свойств, значениями которых являются объекты.
Процедура Property Get обеспечивает возможность считывания значения свойств.
Как видно из приведенного ниже синтаксиса, процедуры Property Let, Property Set и Property Get имеют такую же структуру, что и обычные процедуры. Просто, они предназначены для специфических задач, описанных выше.
[Public | Private] [Static] Property Let имя [(списокАргументов)]
[инструкции] End Property
Public | Private] [Static] Property Set имя.[(списокАргументов)]
[инструкции] End Property
[Public | Private] [Static] Property Get имя [(списокАргументов)] [As тип]
[инструкции] [имя = выражение] [Exit Property]
[инструкции] [имя = выражение] End Property
Пример создания класса
Рассмотрим пример создания класса Вектор, моделирующего двумерный вектор. У объектов класса вектор будут определены три свойства: координата абсциссы, координата ординаты и длина вектора (это свойство является свойством только для чтения). Кроме того, для объектов класса вектор будут определены два метода, первый из которых возвращает вектор, являющийся результатом покомпонентного произведения вектора на число, а второй — результат скалярного произведения двух векторов.
Итак, в модуле класса, у которого установлено свойство Name, равное Вектор, наберите следующий код:
' X - координата абсциссы
' У - координата ординаты
Dim X, Y As Double
Public Property Get Абсцисса() As Double
' Возвращает значение свойства Абсцисса
Абсцисса = X End Property
Public Property Get Ордината () As Double
' Возвращает значение свойства Ордината
Public Property Let Абцисса(ByVal НоваяАбсцисса As Double)
' Устанавливает значение свойства Абсцисса
If Not IsNumeric(НоваяАбсцисса) Then
MsgBox "Абсцисса не является числом", vblnformation, "VBA"
Public Property Let Ордината(ByVal НоваяОрдината As Double)
' Устанавливает значение свойства Ордината
If Not IsNumeric(НоваяОрдината) Then
MsgBox "Ордината не является числом", vblnformation, "VBA"
Y = НоваяОрдината End Property
Public Property Get Длина() As Double
' Возвращает длину вектора. Это свойство только для чтения
Длина = Sqr(X ^ 2 + Y ^ 2)
Public Sub ПрибавитьВектор(ByVal ДругойВектор As Вектор)
' Покоординатное сложение двух векторов
X = X + ДругойВектор.Абсцисса Y = Y + ДругойВектор.Ордината
Public Sub УмножитьНаЧисло(ByVal Число As Double)
' Покоординатное умножение вектора на число
If Not IsNumeric(Число) Then
MsgBox "Число, на которое умножается вектор," & Chr(13) & "на самом деле не число", vblnformation, "VBA"
X = Число * X Y = Число * У
Public Function СкалярноеПроизведение(ByVal ДругойВектор As Вектор)
' Скалярное произведение векторов
СкалярноеПроизведение = X * ДругойВектор.Абсцисса
Private Sub Class_Initialize()
Проверить работу созданного класса можно, например при помощи следующей процедуры, код которой набирается на стандартном листе модуля.
Макросы – это полноценная программа, просто она выполняется на базе другого приложения. Следовательно, все принципы программирования соблюдаются. А все языки программирования разделяются на две категории: процедурные и объектно-ориентированные.
Макросы разрабатываются на базе языка VBA, который является скорее процедурным с возможностью обращения к отдельным объектам. Недостатком такого подхода есть то, что одна процедура не связана тесно с другой.
Объектно-ориентированный подход имеет некоторые принципиальные отличия от процедурного. Сейчас этот тип программирования является наиболее популярным. Поэтому его нужно рассмотреть более детально применительно к макросам Excel.
Общие сведения и определения
Все подпрограммы, которые есть в объектно-ориентированном программировании, тесно связаны между собой. Основное понятие, которое нужно знать на этом этапе – это класс.
Под классом подразумевается тот тип данных, в котором приводится описание структуры объекта. Все программы, написанные с помощью объектно-ориентированных языков, основываются на объектах. В случае с Excel такими служат формы, лист, книги, диаграммы и другие. Класс может объединять в себя целую кучу объектов, каждый из которых является своеобразной его копией с некоторыми доработками.
Выражаясь проще, класс – это шаблон, по которому генерируется объект.
- Поле. Это такой элемент класса, в котором непосредственно содержатся данные.
- Свойство. Это составная часть класса, в которой также хранятся данные, которые в дальнейшем могут быть обработаны.
- Метод. По сути та же процедура или функция, просто в рамках класса. Методы – одно из главных понятий любого объектно-ориентированного языка программирования.
- Событие. Это ситуация, при которой активируется метод. Это может быть изменение содержимого ячеек или выполнение другого метода.
VBA не является полноценным объектно-ориентированным языком программирования, поскольку в нем есть только два принципа:
- Абстракция. С помощью этого метода можно создать объект, который больше всего напоминает некомпьютерный. Например, можно создать объект «собака», в котором будут такие свойства, как «количество ушей», «длина шерсти» и другие.
- Инкапсуляция. Она дает возможность спрятать класс от других процедур, которые не используют его в своей работе. Но этот принцип допускает использование отдельных свойств класса другими процедурами, если это требуется.
Как создать класс в VBA
Переходим к практическим аспектам использования классов в языке программирования VBA. Чтобы создать класс, в редакторе нужно нажать на пункт «Class Module», который можно найти в меню «Insert». Далее нужно классу дать определенное имя. Это можно сделать только одним способом – изменить имя, сгенерированное автоматически.
VBA предусматривает возможность спрятать класс от другой книги, если она ссылается на эту. За эту возможность отвечает свойство Instancing. Если его значение выставлено на Private, то этот класс будет обнаруживаться только той книгой, в которой макрос открыт. Если такой макрос открыт на нескольких документах, то класс будет доступен только той книге, к которой он привязан. Если же установить параметр PublicNotCreateable, то класс будет обнаруживаться в том случае, если он создан в книге, но все равно не будет доступен для других книг.
Способы создания экземпляра класса
Итак, под классом подразумевается описание объекта, но не сам объект. Чтобы на основе класса его создать, необходимо воспользоваться одним из доступных способов.
Способ №1
Вот строка кода, которая демонстрирует первый способ создания объекта на основе существующего класса.
Private Sub TestClass()
Dim cl As ExampleClass
Set cl = New ExampleClass End Sub
Способ №2
Dim cl As ExampleClass
Private Sub TestClass()
Set cl = New ExampleClass End Sub
В этом случае объявление класса осуществляется за пределами процедуры, поэтому работа с ним возможна со всех имеющихся внутри модуля процедур. Если же заменить оператор Dim на Public, то объект будет доступен любой процедуре, которая выполняется в рамках проекта при условии, что объявление осуществляется за пределами объектного модуля.
Способ №3
Dim cl WithEvents As ExampleClass
Private Sub TestClass()
Set cl = New ExampleClass End Sub
В данном примере объект создается с событиями, и только в связи с ними они становятся доступными. Этот метод имеет ограниченную сферу использования, его можно применять лишь в рамках объектного модуля (например, листа или книги).
Способ №4
Private Sub TestClass()
Dim cl As New ExampleClass
End Sub
Этот метод не является самым популярным, и многие про него вообще не знают. В этом случае создание объекта осуществляется через переменную cl. Этот метод несколько хуже, потому что сначала лучше выделить память под определенную переменную, и только потом создавать объект, который будет встроен в эту переменную.
Как удалить экземпляр класса?
Хорошая привычка – очистить выделенную память, если этот объект уже не нужен. Это позволит значительно увеличить быстродействие макроса. Особенно это важно, если он будет использоваться на слабом компьютере.
Чтобы это сделать, нужно воспользоваться следующей строкой кода.
Set cl = Nothing
Конечно, современные версии офисных пакетов (равно как и компьютеры) устроены так, что если проигнорировать эту рекомендацию и не удалять класс, то ничего страшного не случится. Тем не менее, настоятельно рекомендуется это делать на случай, если придется запускать макрос на слабом компьютере (особенно сейчас, когда популярность стал набирать класс устройств, который называется смартбуками).
Как создать поля класса
Созданный нами ранее класс не содержит ничего, ни полей, ни свойств, ни других описанных выше элементов. Следовательно, от него никакой пользы. Поэтому давайте начнем с создания полей класса. Это переменные, которые используются для хранения данных.
Поля бывают двух типов: открытые и закрытые. Основная характеристика последних заключается в том, что они являются недоступными для других процедур, которые не находятся внутри этого модуля. Доступ к открытым может иметь любой модуль и в этом аспекте они не отличаются принципиально от свойств.
Но отличаются другим – невозможно указать значение, которое будет отображаться в поле по умолчанию, а также невозможно запретить средствами VBA его редактирование. Информация в поле хранится до того момента, как она не будет перезаписана или же пока существует соответствующая переменная.
Чтобы создать поле, необходимо выполнить такой код.
Dim sBody As String
Также можно воспользоваться таким вариантом кода, который выдает тот же результат.
Private sBody As String
Оба описанных случая позволяют создать поле закрытого типа. Чтобы создать открытое поле, необходимо написать такую строчку.
Public Head As String
После этих манипуляций становится возможным использование свойства Head у объекта. С ним можно выполнять разные операции, включая запись:
Debug.Print cl.Head
Тип данных для поля строго определен. Поэтому нельзя изменить его на числовой или формат числа с плавающей точкой.
Процесс определения свойств класса
Под свойством подразумевается также элемент, через который можно записывать и читать информацию объекта, но отличие заключается в том, что это функции, а не переменные.
Для чтения данных используется функция Property Get, а для записи – Property Let. Конечно, языком предусмотрена еще и третья конструкция –– Property Set, но на практике она используется редко из-за того, что ссылку на другой объект (а именно для этого и нужна указанная функция) можно записать и с помощью процедуры Property Let.
Давайте детальнее опишем синтаксис всех описанных функций. Итак, вот скриншот, описывающий синтаксис функции Property Get.
А вот таблица, в которой детально описываются элементы свойств класса.
2
При чтении свойства класса нужно учитывать такие нюансы:
- С помощью элемента Exit Property осуществляется выход из метода. Допустимо использование сразу нескольких подобных элементов в рамках одного метода. Это может быть полезным, например, если используются циклы и условные операторы.
- Несмотря на то, что сама функция Property Get может содержать неограниченное количество процедур внутри, она сама не может быть составной частью других функций.
Теперь давайте более подробно рассмотрим синтаксис функции Property Let. Он виден на этом скриншоте.
3
Этой функции касаются все замечания, рассмотренные выше.
Ну и наконец, как выглядит синтаксис функции Property Set. Несмотря на то, что она считается бесполезной, знать, как с ней работать нужно хотя бы потому, что другой человек может использовать именно ее. И нужно уметь читать чужой код. Сам синтаксис приводится на этом скриншоте.
4
Пример создания свойства в модуле класса
А теперь давайте детальнее рассмотрим некоторые практические примеры. Будем приводить фрагменты кода с краткими пояснениями.
5
В данном случае мы можем использовать свойство Height как для чтения, так и для того, чтобы редактировать информацию, которая там указана. Простыми словами, мы имеем фактически открытое поле, потому что имеет все его характеристики. Просто образуется оно немного другим методом – через функцию, а не переменную с процедурой.
Теперь давайте взглянем немного на другой фрагмент кода.
6
В этом случае мы не можем вносить никаких изменений в свойство, поскольку был открыт доступ только для чтения. По умолчанию берется идея, что значение переменной sHeight уже указано в другой процедуре, которая есть в данном модуле.
7
В этом примере свойство не может быть отредактировано, и в нем содержится постоянное значение (константа). Ее можно открыть только из модуля, который находится в данном объекте. Если мы попробуем использовать конструкцию Public Const sHeight As Single = 2, то у нас ничего не получится.
Существует еще множество примеров, но они уже более глубокого уровня и не подходят для новичков. Поэтому давайте сейчас рассмотрим особенности создания методов и событий класса.
Методы класса
В рамках класса можно создавать как процедуры, так и функции. Все они суммарно называются методами, но лишь при одном условии. Чтобы функция считалась методом, она должна быть открыта для других классов. Если же не требуется таких прав для подпрограмм, то нужно обязательно их делать приватными. Это обязательное правило, которое соответствует принципу инкапсуляции.
В целом, процедура создания методов ничем не отличается от того, как создаются процедуры и функции. В них могут содержаться любые аргументы как те, которые нужно обязательно указывать, так и те, в которых смысла нет. При этом отличается вызов. Внимательнее посмотрите на следующий пример.
События класса
Внутри каждого класса содержится уже несколько событий:
- Class_Initialize. Событие, которое осуществляется в момент создания класса. Здесь можно легко настроить значения переменных и свойств, которые будут использоваться всегда, если не указано обратное.
- Class_Terminate. Это событие происходит, когда объект удаляется. Это происходит в двух случаях. Первый – деинициализация объекта. Второй – прекращение работы той процедуры, в рамках которой был объявлен класс.
Как правило, не возникает никаких проблем с тем, чтобы добавлять новые события. При этом есть одно требование. Важно убедиться в том, что объект, к которому привязывается событие, объявлялся только в рамках одного модуля на этом же уровне.
Само же событие указывается в рамках самого модуля.
Синтаксис конструкции, с помощью которой происходит объявление события, следующий.
9
Выводы
Конечно, это нелегкая тема для понимания. Но это всего лишь два принципа объектно-ориентированного программирования. В случае же с другими языками все еще сложнее. VBA вообще-то считается очень легким языком. Поэтому если приложить должное упорство, все должно получиться. Успехов.
Class Module VBA позволяют пользователю создавать свои собственные объекты. Если вы не знакомы с объектами, я настоятельно рекомендую вам сначала ознакомиться с моей статьей Все об объектах VBA Objects.
В VBA у нас есть встроенные объекты, такие как Collection, Workbook, Worksheet и так далее. Целью Class Module VBA является предоставление нам возможности создавать собственные объекты.
Давайте начнем эту статью с рассмотрения того, почему мы используем объекты в первую очередь.
Почему мы используем объекты
Использование объектов позволяет нам создавать наши приложения так же, как мы используем строительные блоки.
Идея состоит в том, что код каждого объекта является автономным. Он полностью независим от любого другого кода в нашем приложении.
Если вам все еще неясно, не волнуйтесь. В остальной части этой статьи мы разберем все это на простые термины.
Преимущества использования объектов
Рассматривая части нашего кода как блоки, мы получаем много больших преимуществ.
- Это позволяет нам создавать приложения по одному блоку за раз.
- Намного проще протестировать отдельные части приложения.
- Обновление кода не вызовет проблем в других частях приложения.
- Легко добавлять объекты между приложениями.
Недостатки использования объектов
У большинства вещей в жизни есть свои плюсы и минусы. Использование Class Module VBA ничем не отличается. Ниже приведены недостатки использования Class Module для создания объектов.
- Первоначально для создания приложений требуется больше времени *.
- Не всегда легко четко определить, что такое объект.
- Люди, плохо знакомые с классами и предметами, могут сначала найти их трудными для понимания.
*Если вы создаете приложение с использованием объектов, на его создание уйдет больше времени, поскольку вам придется тратить больше времени на планирование и проектирование. Однако в долгосрочной перспективе это сэкономит вам огромное количество времени. Вашим кодом будет легче управлять, обновлять и использовать повторно.
Создание простого Class Module
Давайте рассмотрим очень простой пример создания Class Module и использования его в нашем коде.
Чтобы создать Class Module, мы щелкаем правой кнопкой мыши в окне Project и затем выбираем Insert и Class Module.
Наш новый класс называется Class1. Мы можем изменить имя в окне свойств, как показано на следующем скриншоте.
Давайте изменим имя модуля класса на clsCustomer. Затем мы добавим переменную в Class Module следующим образом.
Теперь мы можем использовать этот Class Module в любом модуле (стандартном или классе) в нашей рабочей книге. Например:
Class Module против Объектов
Люди, которые плохо знакомы с использованием классов и модулей классов VBA, часто путаются между тем, что такое класс и что является объектом.
Давайте посмотрим на пример из реального мира. Думайте о предмете массового производства как кофейная кружка. Дизайн кружки создается в первую очередь. Затем тысячи кофейных кружек создаются из этого дизайна.
Это похоже на работу Class Module и объектов.
Class Module можно рассматривать как дизайн.
Объект можно рассматривать как элемент, созданный из дизайна.
Примечание. Мы не используем New для таких элементов, как Workbooks и Worksheets. См. Когда New не требуется для получения дополнительной информации.
Class Module VBA против обычных модулей VBA
Написание кода в Class Module почти такое же, как написание кода в обычном модуле. Мы можем использовать тот же код, который мы используем в обычных модулях. То, как этот код используется, сильно отличается.
Давайте посмотрим на два основных различия между классом и обычным модулем. Это часто вызывает путаницу у новых пользователей.
Если вы хотите использовать подпрограмму / функцию и т.д. Из
Class Module, вы должны сначала создать объект.
Вы заметите, что коды абсолютно одинаковые.
Чтобы использовать подпрограмму PrintCustomer из Class Module, вы должны сначала создать объект этого типа
Чтобы использовать PrintCustomer из обычного модуля, вы можете вызвать его напрямую
Когда вы создаете переменную в обычном модуле, существует только одна ее копия. Для Class Module существует одна копия переменной для каждого создаваемого вами объекта.
Например, представьте, что мы создаем переменную StudentName как в классе, так и в обычном модуле.
Для обычной переменной модуля в нашем приложении будет только одна копия этой переменной.
Для Class Module новая копия переменной StudentName создается каждый раз, когда создается новый объект.
Когда вы полностью поймете Class Module VBA, эти различия будут казаться очевидными.
Части Class Module
В Class Module есть четыре разных предмета. Это:
Вы можете видеть, что они все или функции, подпрограммы или переменные.
Давайте кратко рассмотрим некоторые примеры, прежде чем разбираться с ними по очереди.
Теперь, когда мы увидели примеры, давайте рассмотрим каждый из них по очереди.
Методы Class Module
Методы относятся к процедурам класса. В VBA есть процедуры и функции. Как и переменные-члены, они могут быть Public или Private.
Давайте посмотрим на пример:
Мы можем использовать Class Module clsSimple следующим образом
Переменные-члены Class Module
Переменная-член очень похожа на обычную переменную, которую мы используем в VBA. Разница в том, что мы используем Public или Private вместо Dim.
Примечание: Dim и Private делают одно и то же, но соглашение заключается в том, чтобы использовать Dim в sub / functions и использовать Private за пределами sub / functions.
Ключевое слово Public означает, что переменная может быть доступна вне Class Module. Например:
В приведенном выше примере мы не можем получить доступ к Балансу, потому что он объявлен, как Частный. Мы можем использовать только приватную переменную внутри Class Module. Мы можем использовать функцию / подпрограмму в Class Module, например:
Считается плохой практикой иметь публичные переменные-члены. Это потому, что вы позволяете коду вне объекта мешать работе класса. Цель использования классов состоит в том, чтобы скрыть происходящее от вызывающего.
Чтобы пользователь не общался напрямую с нашими переменными-членами, мы используем Свойства.
Свойства Class Module
Формат свойств VBA
Обычный формат для свойств выглядит следующим образом:
Почему мы используем свойства
Почему мы не можем просто сделать переменные общедоступными и использовать их напрямую?
Давайте объясним с некоторыми примерами. Представьте, что у нас есть класс, который ведет список стран. Мы могли бы сохранить список в виде массива:
Когда пользователь хочет получить количество стран в списке, он может сделать это:
С приведенным выше кодом есть две основные проблемы
- Чтобы узнать количество стран, вам необходимо знать, как хранится список, например, Массив.
- Если мы изменим массив на коллекцию, нам нужно будет изменить весь код, который напрямую ссылается на массив
Для решения этих проблем мы можем создать функцию, возвращающую количество стран:
Затем мы используем это так
Этот код решает две проблемы, которые мы перечислили выше. Мы можем изменить наш массив на коллекцию, и код вызывающего абонента все равно будет работать. Например:
Как мы только что видели, подпрограмма или функция обеспечивает решение вышеуказанных проблем. Однако использование свойства может обеспечить более элегантное решение.
Использование свойства вместо Function/Sub
Вместо создания функции Count мы можем создать свойство Count. Как вы можете видеть ниже, они очень похожи:
В этом сценарии нет большой разницы между использованием свойства и использованием функции. Тем не менее, есть различия. Обычно мы создаем свойство Get и Let так:
Использование Let позволяет нам рассматривать свойство, как переменную. Таким образом, мы можем сделать это:
Второе отличие состоит в том, что использование Let и Get позволяет нам использовать одно и то же имя при обращении к свойству Get или Let. Таким образом, мы можем использовать свойство, как переменную. Это цель использования свойств над подпрограммой и функцией.
Если мы использовали функцию и подпрограмму, то мы не можем получить поведение переменной. Вместо этого мы должны вызвать две разные процедуры, например:
Вы также можете видеть, что когда мы использовали Let, мы можем присвоить значение, как переменную. Когда мы используем SetTotalCost, мы должны были передать его в качестве параметра.
О Свойствах в двух словах
- Свойство скрывает детали реализации от вызывающей стороны.
- Свойство позволяет нам обеспечивать то же поведение, что и переменная.
Типы свойств VBA
Есть три типа свойств. Мы уже видели Get и Let. Но мы еще не рассмотрели Set.
Set похож на Let, но он используется для объекта (подробнее об этом см. Назначение объектов VBA).
Первоначально в Visual Basic ключевое слово Let использовалось для назначения переменной. На самом деле, мы можем использовать его, как захотим.
Поэтому мы используем Let, чтобы присвоить значение переменной, и мы используем Set, чтобы назначить объект переменной объекта.
- Let используется для присвоения значения базовому типу переменной.
- Set используется для назначения объекта переменной объекта
В следующем примере мы используем свойства Get и Let для строковой переменной
Затем мы можем использовать свойства Name так:
В следующем примере мы используем свойства Get и Set для переменной объекта
Затем мы можем использовать свойства так:
Мы используем свойство Get, чтобы вернуть значения для обоих элементов. Обратите внимание, что даже если мы используем свойство Get для возврата коллекции, нам все равно нужно использовать ключевое слово Set для его назначения.
События Class Module
Class Module имеет два события:
В объектно-ориентированных языках, таких как C ++, эти события называются Конструктором и Деструктором. В большинстве языков вы можете передавать параметры конструктору, но не в VBA. Мы можем использовать Class Factory, чтобы обойти эту проблему, как показано ниже.
Давайте создадим очень простой Class Module с именем clsSimple с событиями Initialize и Terminate.
В следующем примере мы используем Dim и New для создания объекта.
В этом случае oSimple не создается, пока мы не ссылаемся на него в первый раз, например:
Когда мы используем Set и New вместе, поведение отличается. В этом случае объект создается при использовании Set, например:
Примечание: Для получения дополнительной информации о различиях между использованием New с Dim и использованием New с Set см. Тонкие различия Dim и Set
Как я уже говорил ранее, вы не можете передать параметр в Initialize. Если вам нужно сделать это, вам нужна функция, чтобы сначала создать объект.
Мы расширим CreateSimpleObject в Примере 2, чтобы создать фабрику классов.
Событие Terminate наступает при удалении класса. Это происходит, когда мы устанавливаем значение Nothing.
Если мы не установим объект в Nothing, VBA автоматически удалит его, когда он выйдет из области видимости.
Это означает, что если мы создадим объект в процедуре, когда эта процедура завершится, VBA удалит все созданные объекты.
Class Module. Пример 1
В этом примере мы рассмотрим очень распространенное использование Class Module.
Представьте, что у нас есть следующие данные:
Мы хотим читать альбомы по разным годам, а затем создавать различные отчеты.
Мы могли бы использовать для этого 2D-массив или коллекцию коллекций, например:
Как вы можете себе представить, этот код очень быстро запутался.
К счастью для нас, у нас есть Class Module VBA, чтобы сделать нашу жизнь проще. Мы можем создать Class Module для хранения элементов.
Каждый раз, когда мы хотим добавить запись, мы можем сделать это следующим образом:
Как видите, это делает наш код более читабельным. Понятно, для чего используются Artist, Title и т.д.
Затем мы можем легко использовать эти данные для создания отчетов, записи в файлы и т.д.
Ниже приведен полный код для этого примера
Class Module. Пример 2
В этом примере мы пойдем дальше. Мы собираемся взглянуть на некоторые хитрые приемы при использовании объектов.
Представьте, что у вас есть список продуктов, как на картинке ниже.
Продукты имеют разные поля, поэтому нам нужно использовать разные модули классов для каждого типа продуктов. Один тип для строки Книги, один тип для строки Фильмы.
Сначала мы создадим наши модули классов. Они очень похожи для обоих типов продуктов.
Когда мы читаем каждую запись, нам нужно определить, книга это или фильм. Затем мы создаем соответствующий объект. Представьте, что нам нужно создать переменную для каждого типа, например:
Если бы у нас было много разных типов, это было бы действительно очень грязно. Хорошей новостью является то, что нам нужно использовать только одну переменную!
В VBA мы можем объявить переменную как вариант. Когда мы используем Variant, мы, по сути, говорим: «Мы определим тип переменной во время выполнения кода».
Это очень полезно при работе с объектами и позволяет нам избежать использования одной переменной, например:
Это действительно полезно, так как нам нужна только одна переменная, независимо от того, сколько у нас объектов.
Второе преимущество использования Variant заключается в следующем. Если у каждого Class Module есть подпрограмма / функция с одинаковым именем и параметрами, мы можем использовать одну и ту же переменную для ее вызова.
Представьте, что в clsBook есть функция InitBook, а в clsFilm есть функция InitFilm. Нам нужно сделать это:
Однако, если они имеют одинаковое имя, например, Init, мы можем заменить строки кода If \ ElseIf одной строкой:
Теперь мы можем создать функцию для создания соответствующего объекта. В объектно-ориентированном программировании мы имеем то, что называется фабрикой классов. Это просто функция, которая создает объект на основе заданного типа.
Ранее мы видели, что событие Initialize не принимает параметры. Мы можем позвонить в Init на фабрике классов, чтобы обойти эту проблему.
Полный код для функции ClassFactory здесь:
Это следующее наше начало. В этом разделе мы читаем таблицу и передаем диапазон в ClassFactory.
Создает объект, передает диапазон в метод Parse объекта. Затем он возвращает объект, который мы добавляем в нашу коллекцию.
Мы также можем использовать вариант объекта для печати элементов. Пока оба объекта имеют подпрограмму с одинаковым именем и параметрами (например, PrintToImmediate), мы можем вызывать ее, используя тип Variant.
Заключение
На этом я заканчиваю свою статью о Class Module VBA. В этой статье мы рассмотрели части Class Module VBA и два примера, в которых вы могли бы их использовать.
Если вы планируете использовать Class Module, то я советую начать с основ и ознакомиться с тем, как создать простой. Как только вы освоите основы, вам будет намного легче переходить к более сложным сценариям.
В данной главе мы рассмотрим порядок работы с основными элементами рабочей области Microsoft Excel – рабочей книгой, рабочим листом и ячейкой (диапазоном). Кроме того, здесь же поговорим о работе с формулами и пользовательскими функциями.
Рабочая книга
Как отмечалось ранее, рабочая книга представляет собой файл Microsoft Excel (обычно с расширением XLSX), в котором хранится и обрабатывается необходимая информация. Используя некоторые несложные приемы, можно расширить возможности рабочей книги. Об этом будет рассказано в текущем разделе.
Автозапуск любимого файла при загрузке Excel
Возможности программы предусматривают автоматический запуск требуемого файла одновременно с открытием Excel. Иначе говоря, при открытии Excel на экране отобразится не пустая рабочая книга (как обычно), а содержимое конкретного файла. Для достижения такого эффекта необходимо поместить требуемый файл в каталог автоматической загрузки – XLStart. Этот каталог расположен в папке с файлами Microsoft Office (например, по адресу С: \ Program Files\Microsoft Office\Office12\XLSTART). При необходимости можно поместить в указанный каталог несколько файлов – в результате при запуске Excel они автоматически будут открыты в разных окнах. Однако для настройки автоматического запуска нескольких файлов удобнее выполнить следующие действия.
1. Открыть все файлы, которые должны автоматически открываться вместе с запуском Excel.
2. На вкладке Вид в группе Окно выбрать команду Сохранить рабочую область и в открывшемся окне по обычным правилам Windows указать путь к каталогу автоматической загрузки (в нашем примере – С: \Program Files\Microsoft Office\Office12\XLStart), после чего нажать кнопку ОК.
В результате в каталог автозагрузки будет помещен файл с расширением XLW (это расширение файла рабочей области). Теперь при запуске Excel будут автоматически запускаться файлы, включенные в эту рабочую область.
Восстановление важной информации из испорченного файла
Использование трюка, описание которого приводится в данном подразделе, позволяет извлечь данные из испорченного файла с помощью встроенного в Excel механизма специальной вставки. Для этого необходимо выполнить следующие действия.
1. Создать две новые пустые книги.
2. В первой книге выделить диапазон ячеек и скопировать его в буфер.
3. Перейти ко второй книге.
4. Во второй книге выделить ячейку А1. На вкладке Главная выбрать из раскрывающегося списка кнопки Вставить (группа Буфер обмена) пункт Вставить связь.
Читайте также: