IWSCount = Worksheets.Count
Можно найти много применений свойству Count. Предположим, вы создаете приложение, где рабочая книга должна содержать отдельный лист на каждый рабочий день недели. С помощью свойства Count можно проверить, содержит ли рабочая книга ровно пять рабочих листов. Код процедуры представлен в листинге 8.4.
Листинг 8.4. Применение свойства Count
Sub КоличРабЛистов()
Dim iWSCount As Integer
Dim sMessage As String
4:
5: iWSCount = Worksheets.Count
6:
7: If iWSCount <> 5 Then
8: sMessage = "Книга содержит " & iWSCount
9: sMessage = sMessage & " листов. Должно быть 5 листов."
MsgBox sMessage
End If
End Sub
Резюме
В этом часе мы рассмотрели важные понятия VBA; объекты, свойства и методы. Вы узнали, как использовать методы и свойства для управления поведением и внешним видом объектов. В последующих часах вы изучите новые объекты и их свойства и методы.
Вопросы и ответы
Вопрос. Что определяет объекты Excel?
Ответ. Все объекты имеют свойства и методы. Свойства управляют атрибутами, внешним видом и поведением объектов. Методы - это действия, которые может выполнять объект.
Вопрос. Почему объектная модель Excel имеет иерархическую структуру?
Ответ. Это отражение концепции вложения объектов. Многие объекты имеют вложенные объекты и сами являются подмножеством других объектов более высокого уровня. Отсюда вытекает иерархическая структура объектной модели Excel.
