 |
Объект Comment: пример использования
|
|
|
|
Чтобы лучше разобраться со свойствами и методами объекта, сосредоточимся на изучении конкретного объекта— Comment. Объект Comment создается с помощью команды Excel Вставка^Примечание и предназначается для вставки комментария в ячейки.
Справочные сведения по объекту Comment можно найти в информации о конкретном объекте в электронной справочной системе.
Использование электронной справочной системы
Самый простой способ получить справку о конкретном объекте, свойстве или методе — ввести ключевое слово в окне кода и нажать <F1>. Если это ключевое слово трактуется неоднозначно, появляется диалоговое окно выбора темы.
К сожалению, элементы, перечисленные в этом диалоговом окне, не всегда понятны, поэтому, чтобы найти нужный раздел, часто приходится обращаться к методу проб и ошибок.
Для случая введения Comment и нажатия <F1> Comment является объектом, однако он может также вести себя как свойство. При щелчке на первой теме отображается раздел, посвященный объекту Comment; если вы щелкнете на второй теме, то увидите раздел для свойства Comment.
Свойства объекта Comment
Объект Comment обладает шестью свойствами. Если свойство доступно только для чтения, это значит, что программа VBA может только получать свойство, но не изменять его.
Свойство Только для Описание
чтения
A p p l i c a t i o n Да Возвращает объект, представляющий приложение, в котором создавалось
примечание (т.е. Excel)
Author Да Возвращает имя человека,
создавшего примечание
Сreator Да Возвращает число, указывающее приложение, в котором создавался объект. Не используется в Excel для Windows (применяется только в Excel для Macintosh)
|
|
|
P a r e n t Да Возвращает родительский объект для примечания (это всегда объект Range)
Shape Да Возвращает объект Shape, который представляет форму, присоединенную к
примечанию
Visible Нет Если это свойство имеет значение True, то примечание отображается на экране
Методы объекта Comment
В таблице приведены методы, которые можно использовать в объекте Comment. Все они выполняют обычные операции, которые производятся над примечанием вручную. Однако вы никогда прежде не рассматривали эти действия как методы.
Таблица 1. Методы объекта Comment
Метод Описание
D e l e t e Удаляет комментарий
Next Возвращает объект Comment, представляющий следующий комментарий
P r e v i o u s Возвращает объект Comment, представляющий предыдущий комментарий
Text Возвращает или определяет текст в комментарии (метод имеет три аргумента)
Возможно, вас удивило, что T e x t — это метод, а не свойство. Этот формат приводит нас к важному умозаключению: различия между свойствами и методами не всегда четкие, а объектная модель не является идеально последовательной. На самом деле неважно, насколько точно вы будете различать свойства и методы.
Пока используется правильный синтаксис, не имеет значения, какую роль в коде выполняет ключевое слово — свойства или метода.
Коллекция Comments
Коллекция — это группа одинаковых объектов. Каждый рабочий лист имеет коллекцию Comments, состоящую из всех объектов Comment рабочего листа. Если на рабочем листе отсутствуют примечания, эта коллекция пуста.
Например, приведенный далее код ссылается на первое примечание листа Лист1 активной рабочей книги
|
|
|
Worksheets("Лист1").Comments(1)
Следующий оператор отображает текст, который содержится в первом примечании листа Лисг1:
MsgBox Worksheets("Лист1").Comments(1).Text
В отличие or большинства объектов, объект Comment не имеет свойства Name. Следовательно, чтобы сослаться на конкретный комментарий, используйте номер, а для получения необходимого комментария обратитесь к свойству Comment объекта Range.
Коллекция Comments — тоже объект, имеющий собственный набор свойств и методов.
Например, следующий пример определяет общее количество комментариев:
MsgBox ActiveSheet.Comments.Count
В данном случае используется свойство Count коллекции Comments, в котором хранится количество объектов Comment на активном рабочем листе. В следующем примере показан адрес ячейки, содержащей первое примечание:
MsgBox ActiveSheet.Comments(1).Parent.Address
В этом примере Comments (1) возвращает первый объект Comment коллекции Comments. Свойство P a r e n t объекта Comment возвращает его контейнер, представленный объектом Range. В окне сообщений отображается свойство A d d r e s s объекта Range. В итоге оператор показывает адрес ячейки, содержащей первое примечание.
Кроме того, вы можете циклически просмотреть все примечания на листе, используя конструкцию For Each-Next. Ниже приведен пример использования отдельных окон для раздельного отображения каждого примечания активного рабочего листа:
For Each cmt in ActiveSheet.Comments
MsgBox cmt.Text
Next cmt
Если вы не хотите, чтобы на экране находилось большое количество диалоговых окон с сообщениями, то используйте следующую процедуру для вывода всех примечаний в одном окне Intermediate:
For Each cmt in ActiveSheet.Comments
Debug.Print cmt.Text
Next cmt
О свойстве Comment
В этом разделе речь идет об объекте Comment. В справочной системе указано, что объект Range обладает свойством Comment. Если ячейка содержит примечание, свойство Comment возвращает объект— объект Comment. Например, следующий оператор ссылается на объект
Comment ячейки Al:
Range("Al").Comment
Если это первое примечание на листе, то на данный объект Comment можно сослаться следующим образом:
Comments(1)
Чтобы отобразить примечание ячейки Al в окне сообщения, используйте оператор MsgBox Range("Al").Comment.Text
Если в ячейке Al нет примечания, то оператор выдаст ошибку.
Тот факт, что свойство может возвращать объект, довольно важен (возможно, это сложно понять, но данная концепция имеет решающее значение в программировании на VBA).
|
|
|
