Ссылка на объект

Семейства как объекты

End Sub

End If

Exit Sub

Next i

MsgBox "Книга Мои таблицы.xls среди открытых книг не найдена!"

В этом примере обратите внимание на комментарии – текст, расположенный после апострофа ('). Программу с пояснительными комментариями значительно легче отлаживать и вносить в неё изменения. Помните, что в программе без комментариев её детали забываются через удивительно короткое время!

Замечания:

1. Комментарии должны содержать некоторую дополнительную информацию, а не перефразировать программу. С этой точки зрения 1-й и 2-й комментарии правомерны как пояснения только в учебной программе.

2. Обязательно делайте вводные комментарии. Они должны включать в себя следующие пункты:

§ назначение программы;

§ указания по вызову программы и её использованию;

§ список и назначение основных переменных и массивов;

§ указания по вводу-выводу. Список всех файлов;

§ список используемых подпрограмм и их назначение;

§ требования к компьютеру;

§ сведения об авторе;

§ дату написания программы.

3. Для улучшения наглядности программы вставляйте пустые строки и делайте отступы.

Хотя семейство объединяет несколько объектов, оно и само является объектом, причем одиночным. Концепцию семейства лучше проиллюстрировать на конкретном примере.

Семейство Workbooks содержит несколько объектов Workbook, с каждым из которых связан набор свойств и методов. Другой набор свойств и методов связан с семейством Workbooks. Таким образом, в Excel есть тривидаобъектов: одиночный объект, объект семейства и собственно семейство, которое тоже является одиночным объектом.

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

Рассмотрим сначала ссылку на одиночный объект Application. Чтобы задать свойство Caption (заголовок приложения Excel), необходимо обратиться непосредственно к объекту Application:

Application.Caption = "Мое приложение"

Ссылка на семейство рабочих книг Workbooks – тоже одиночный объект – запишется следующим образом:

КолОткрытыхКниг = Workbooks.Count

В данной команде значение свойства Count (количество открытых рабочих книг) присваивается переменной КолОткрытыхКниг.

Обратимся теперь к объекту семейства. Ссылка на рабочую книгу – объект семейства Workbooks – может включать либо номер[5] этой книги в семействе:

Автор = Workbooks(i).Author,

либо её название[6]:

Автор = Workbooks("Мои таблицы.xls").Author

ВНИМАНИЕ! При обращении к объекту семейства обязательно используйте в имени семейства множественное число (Workbooks, Worksheets …). Это правило выполняется для всех семейств Excel, кроме Range и SeriesCollection.

Исключение: объект Range

Один из объектов Excel – Range, оп­ределяющий ссылку на ячейку или диапазон ячеек рабочего листа Excel, – не попадает ни в одну из этих категорий. Это одиночный объект, обладающий, тем не менее, некоторыми свойствами семейства. Например, чтобы обратиться к ячейке или конкретному диапазону ячеек, надо указать его адрес или имя, как в случае с объектом семейства. Например, изменить содержимое ячейки A1 можно с помощью следующей команды:

Range("A1").Value = 1

Команда: Range(1).Value = 1 вызовет сообщение об ошибке

Задавая свойство или вызывая метод объекта Range, можно использовать диапазон из нескольких ячеек. Для задания свойства Value ячеек из интервала адресов B1:E4 применяется следующая инструкция:

Range("B1:E4").Value = 1