Организация документооборота с помощью "Visual Basic for Application"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ходятся в диапазоне от 0 до 56(0 означает отсутствие заливки). Эти значения соответствуют палитре цветов рабочей книги. К сожалению, порядок, в котором отображаются цвета, совершенно не связан с системой нумерации значений свойства Colorindex, поэтому для определения с помощью ColorIndex конкретного цвета лучше записать макрос, Однако даже в этом случае не будет гарантии, что пользователь не изменил цветовую палитру рабочей книги. В последнем случае свойство Colorindex выдаст далеко не тот результат, который вы ожидали.
При использовании свойства Color можно определить значение цвета с помощью функции RGB. Однако помните, что фактически отображаемый цвет будет всего лишь ближайшим цветом на палитре рабочей книги, который соответствует заданному вами значению.
Кстати, чтобы изменить цвет текста в примечании, обратитесь к объекту TextFrame
объекта Comment, который содержит объект Characters, включающий, в свою очередь, объект Font. Далее обратитесь к свойствам Color или Colorindex объекта Font. Ниже приведен пример, устанавливающий свойство Colorindex в значение 5:
Worksheets ("Лист1") . Comments (1). _
Shape.TextFrame.Characters.Font.Colorindex = 5
Содержит ли ячейка примечание
Следующий оператор отображает примечание ячейки А1 активного листа:
MsgBox Range("Al").Comment.Text
Если в ячейке А1 примечание отсутствует, при выполнении этого оператора возникнет не- понятное сообщение об ошибке:
Object v a r i a b l e or With block v a r i a b l e not set.
Чтобы определить, содержит ли конкретная ячейка примечание, напишите код, проверяющий, не пустой ли объект Comment, т.е. равен ли он N o t h i n g (это корректное ключевое слово VBA). Следующий оператор отображает True, если в ячейке А1 примечание отсутствует:
MsgBox Range("Al").Comment Is Nothing
Обратите внимание, что в этом примере используется ключевое слово I s , а не знак равенства.
Добавление нового объекта Comment
В списке методов объекта Comment нет метода для добавления нового примечания. Это объясняется тем, что метод AddComment принадлежит объекту Range. Следующий оператор добавляет примечание (пустое) в ячейку А1 активного рабочего листа:
Range("Al").AddComment
Обратившись в справочную систему, вы обнаружите, что метод AddComment имеет аргумент, представляющий текст примечания. Следовательно, можно добавить примечание и текст в нем с помощью всего одного оператора:
Range("Al").AddComment "Формула разработана JW"
Метод AddComment генерирует ошибку, если ячейка уже содержит примечание.
Если вы хотите увидеть рассмотренные свойства и методы объекта Comment в действии, посмотрите пример на Web-уэле. Рабочая книга в соответствующем файле содержит несколько примеров управления объектами Comment с помощью кода VBA. Скорее всего, вы не поймете весь код, но на данном этапе осознаете, как можно использовать VBA для работы с объектом.
Полезные свойства объекта Application
Как известно, при работе в Excel активной одновременно может быть только одна рабочая книга. И если вы управляете рабочим листом, то активна на нем только одна ячейка (даже если выделен диапазон).
VBA это известно, поэтому вы можете ссылаться на активные объекты более простым методом. Это удобно, так как вы не всегда знаете, с какой именно рабочей книгой, рабочим листом или ячейкой будете работать. VBA представляет свойства объекта Application для определения этого. Например, объект Application обладает свойством ActiveCell, возвращающим ссылку на активную ячейку. Следующая инструкция присваивает значение 1 активной ячейке:
ActiveCell.Value = 1
Обратите внимание, что в этом примере пропущена ссылка на объект
A p p l i c a t i o n , так как это само собой разумеется. Важно понять, что такая инструкция может выдать ошибку, если активный лист не является рабочим. Например, если VBA выполняет этот оператор, когда активен лист диаграммы, то процедура прекращает выполняться, а на экране отображается сообщение об ошибке.
Если на рабочем листе выделен диапазон ячеек, то активная ячейка будет находиться в выделенном диапазоне. Другими словами, активная ячейка всегда одна (их никогда не бывает несколько).
Объект A p p l i c a t i o n также обладает свойством S e l e c t i o n , возвращающим ссылку на выделенный объект, т.е. отдельную ячейку (активную), диапазон ячеек или объект типа ChartObject, TextBox или Shape.
В табл. 2 перечислены свойства объекта A p p l i c a t i o n , которые полезны при работе с ячейками и диапазонами ячеек.
Таблица 2. Некоторые полезные свойства объекта Application
Свойство Возвращаемый объект
ActiveCell Активная ячейка
ActiveChart Активный лист диаграммы или объект диаграммы на рабочем листе. Если диаграмма не активна, то свойство равно Nothing
Activesheet Активный лист (рабочий лист или лист диаграммы)
Activewindow Активное окно
ActiveWorkbook Активная рабочая книга
RangeSeiection Выделенные ячейки на рабочем листе в заданном окне, даже если выделен графический объект (на самом деле это свойство объекта Window)
Selection Выделенный объект (объект Range, Shape, и т.д. ) ChartObject
Thisworkbook Рабочая книга, содержащая выполняемую процедуру
Преимущество использования этих свойств для получения объекта заключается в том, что совершенно не обязательно знать, какая ячейка, рабочий лист или книга являются активными и вводить конкретную ссылку на этот объект. Данный факт позволяет создавать код VBA, который не ограничивается конкретной книгой, листом или яче