Что такое worksheets excel

Malcolm Gladwell

Мечтатель начинает с чистого листа бумаги и переосмысливает мир

Эта статья содержит полное руководство по использованию Excel
VBA Worksheet в Excel VBA. Если вы хотите узнать, как что-то сделать быстро, ознакомьтесь с кратким руководством к рабочему листу VBA ниже.

Если вы новичок в VBA, то эта статья — отличное место для начала. Мне нравится разбивать вещи на простые термины и объяснять их на простом языке.

Вы можете прочитать статью от начала до конца, так как она написана в логическом порядке. Или, если предпочитаете, вы можете использовать оглавление ниже и перейти непосредственно к теме по вашему выбору.

Краткое руководство к рабочему листу VBA

В следующей таблице приведен краткий обзор различных методов
Worksheet .

Примечание. Я использую Worksheet в таблице ниже, не указывая рабочую книгу, т.е. Worksheets, а не ThisWorkbook.Worksheets, wk.Worksheets и т.д. Это сделано для того, чтобы примеры были понятными и удобными для чтения. Вы должны всегда указывать рабочую книгу при использовании Worksheets . В противном случае активная рабочая книга будет использоваться по умолчанию.

Вступление

Три наиболее важных элемента VBA — это Рабочая книга, Рабочий лист и Ячейки. Из всего кода, который вы пишете, 90% будут включать один или все из них.

Наиболее распространенное использование Worksheet в VBA для доступа к его ячейкам. Вы можете использовать его для защиты, скрытия, добавления, перемещения или копирования листа.

Тем не менее, вы будете в основном использовать его для выполнения некоторых действий с одной или несколькими ячейками на листе.

Использование Worksheets более простое, чем использование рабочих книг. С книгами вам может потребоваться открыть их, найти, в какой папке они находятся, проверить, используются ли они, и так далее. С рабочим листом он либо существует в рабочей книге, либо его нет.

Доступ к рабочему листу

В VBA каждая рабочая книга имеет коллекцию рабочих листов. В этой коллекции есть запись для каждого рабочего листа. Эта коллекция называется просто Worksheets и используется очень похоже на коллекцию Workbooks. Чтобы получить доступ к рабочему листу, достаточно указать имя.

Приведенный ниже код записывает «Привет Мир» в ячейках A1 на листах: Лист1, Лист2 и Лист3 текущей рабочей книги.

Sub ZapisVYacheiku1()

    ' Запись в ячейку А1 в листе 1, листе 2 и листе 3
    ThisWorkbook.Worksheets("Лист1").Range("A1") = "Привет Мир"
    ThisWorkbook.Worksheets("Лист2").Range("A1") = "Привет Мир"
    ThisWorkbook.Worksheets("Лист3").Range("A1") = "Привет Мир"

End Sub

Коллекция Worksheets всегда принадлежит книге. Если мы не
указываем рабочую книгу, то активная рабочая книга используется по умолчанию.

Sub ZapisVYacheiku1()

    ' Worksheets относятся к рабочим листам в активной рабочей книге.
    Worksheets("Лист1").Range("A1") = "Привет Мир"
    Worksheets("Лист2").Range("A1") = "Привет Мир"
    Worksheets("Лист3").Range("A1") = "Привет Мир"

End Sub

Скрыть рабочий лист

В следующих примерах показано, как скрыть и показать лист.

ThisWorkbook.Worksheets("Лист1").Visible = xlSheetHidden

ThisWorkbook.Worksheets("Лист1").Visible = xlSheetVisible

Если вы хотите запретить пользователю доступ к рабочему
листу, вы можете сделать его «очень скрытым». Это означает, что это может быть
сделано видимым только кодом.

' Скрыть от доступа пользователя
ThisWorkbook.Worksheets("Лист1").Visible = xlVeryHidden

' Это единственный способ сделать лист xlVeryHidden видимым
ThisWorkbook.Worksheets("Лист1").Visible = xlSheetVisible

Защитить рабочий лист

Другой пример использования Worksheet — когда вы хотите защитить его.

ThisWorkbook.Worksheets("Лист1").Protect Password:="Мойпароль"

ThisWorkbook.Worksheets("Лист1").Unprotect Password:="Мойпароль"

Индекс вне диапазона

При использовании Worksheets вы можете получить сообщение об
ошибке:

Run-time Error 9 Subscript out of Range

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

1. Имя Worksheet , присвоенное рабочим листам, написано неправильно.
2. Название листа изменилось.
3. Рабочий лист был удален.
4. Индекс был большим, например Вы использовали рабочие листы (5), но есть только четыре рабочих листа
5. Используется неправильная рабочая книга, например Workbooks(«book1.xlsx»).Worksheets(«Лист1») вместо
   Workbooks(«book3.xlsx»).Worksheets («Лист1»).

Если у вас остались проблемы, используйте один из циклов из раздела «Циклы по рабочим листам», чтобы напечатать имена всех рабочих листов коллекции.

Использование индекса для доступа к рабочему листу

До сих пор мы использовали имя листа для доступа к листу.
Указатель относится к положению вкладки листа в рабочей книге. Поскольку
положение может быть легко изменено пользователем, не рекомендуется
использовать это.

 В следующем коде показаны примеры использования индекса.

' Использование этого кода является плохой идеей, так как
' позиции листа все время меняются
Sub IspIndList()

    With ThisWorkbook
        ' Самый левый лист
        Debug.Print .Worksheets(1).Name
        ' Третий лист слева
        Debug.Print .Worksheets(3).Name
        ' Самый правый лист
        Debug.Print .Worksheets(.Worksheets.Count).Name
    End With

End Sub

В приведенном выше примере я использовал Debug.Print для печати в Immediate Window. Для просмотра этого окна выберите «Вид» -> «Immediate Window » (Ctrl + G).

Использование кодового имени рабочего листа

Лучший способ получить доступ к рабочему листу —
использовать кодовое имя. Каждый лист имеет имя листа и кодовое имя. Имя листа
— это имя, которое отображается на вкладке листа в Excel.

Изменение имени листа не приводит к изменению кодового имени, что означает, что ссылка на лист по кодовому имени — отличная идея.

Если вы посмотрите в окне свойств VBE, вы увидите оба имени.
На рисунке вы можете видеть, что кодовое имя — это имя вне скобок, а имя листа
— в скобках.

Вы можете изменить как имя листа, так и кодовое имя в окне
свойств листа (см. Изображение ниже).

Если ваш код ссылается на кодовое имя, то пользователь может
изменить имя листа, и это не повлияет на ваш код. В приведенном ниже примере мы
ссылаемся на рабочий лист напрямую, используя кодовое имя.

Sub IspKodImya2()

    ' Используя кодовое имя листа
    Debug.Print CodeName.Name
    CodeName.Range("A1") = 45
    CodeName.Visible = True

End Sub

Это делает код легким для чтения и безопасным от изменения
пользователем имени листа.

Кодовое имя в других книгах

Есть один недостаток использования кодового имени. Он относится только к рабочим листам в рабочей книге, которая содержит код, т.е. ThisWorkbook.

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

Sub ИспЛист()

    Dim sh As Worksheet
    ' Получить рабочий лист под кодовым именем
    Set sh = SheetFromCodeName("CodeName", ThisWorkbook)
    ' Используйте рабочий лист
    Debug.Print sh.Name

End Sub

' Эта функция получает объект листа из кодового имени
Public Function SheetFromCodeName(Name As String, bk As Workbook) As Worksheet

    Dim sh As Worksheet
    For Each sh In bk.Worksheets
        If sh.CodeName = Name Then
           Set SheetFromCodeName = sh
           Exit For
        End If
    Next sh

End Function

Использование приведенного выше кода означает, что если
пользователь изменит имя рабочего листа, то на ваш код это не повлияет.

Существует другой способ получения имени листа внешней
рабочей книги с использованием кодового имени. Вы можете использовать элемент
VBProject этой Рабочей книги.

Вы можете увидеть, как это сделать, в примере ниже. Я включил это, как дополнительную информацию, я бы рекомендовал использовать метод из предыдущего примера, а не этот.

Public Function SheetFromCodeName2(codeName As String _
                             , bk As Workbook) As Worksheet

    ' Получить имя листа из CodeName, используя VBProject
    Dim sheetName As String
    sheetName = bk.VBProject.VBComponents(codeName).Properties("Name")

    ' Используйте имя листа, чтобы получить объект листа
    Set SheetFromCodeName2 = bk.Worksheets(sheetName)

End Function

Резюме кодового имени

Ниже приведено краткое описание использования кодового имени:

1. Кодовое имя рабочего листа может быть
   использовано непосредственно в коде, например. Sheet1.Range
2. Кодовое имя будет по-прежнему работать, если имя
   рабочего листа будет изменено.
3. Кодовое имя может использоваться только для
   листов в той же книге, что и код.
4. Везде, где вы видите ThisWorkbook.Worksheets
   («имя листа»), вы можете заменить его кодовым именем рабочего листа.
5. Вы можете использовать функцию SheetFromCodeName
   сверху, чтобы получить кодовое имя рабочих листов в других рабочих книгах.

 Активный лист

Объект ActiveSheet ссылается на рабочий лист, который в данный момент активен. Вы должны использовать ActiveSheet только в том случае, если у вас есть особая необходимость ссылаться на активный лист.

В противном случае вы должны указать рабочий лист, который
вы используете.

Если вы используете метод листа, такой как Range, и не
упоминаете лист, он по умолчанию будет использовать активный лист.

' Написать в ячейку A1 в активном листе
ActiveSheet.Range("A1") = 99

' Активный лист используется по умолчанию, если лист не используется
Range("A1") = 99

Объявление объекта листа

Объявление объекта листа полезно для того, чтобы сделать ваш
код более понятным и легким для чтения.

В следующем примере показан код для обновления диапазонов
ячеек. Первый Sub не объявляет объект листа. Вторая подпрограмма объявляет
объект листа, и поэтому код намного понятнее.

Sub NeObyavObektList()

    Debug.Print ThisWorkbook.Worksheets("Лист1").Name
    ThisWorkbook.Worksheets("Лист1").Range("A1") = 6
    ThisWorkbook.Worksheets("Лист1").Range("B2:B9").Font.Italic = True
    ThisWorkbook.Worksheets("Лист1").Range("B2:B9").Interior.Color = rgbRed

End Sub

Sub ObyavObektList()

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Лист1")

    sht.Range("A1") = 6
    sht.Range("B2:B9").Font.Italic = True
    sht.Range("B2:B9").Interior.Color = rgbRed

End Sub

Вы также можете использовать ключевое слово With с объектом
листа, как показано в следующем примере.

Sub ObyavObektListWith()

    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Лист1")

    With sht
        .Range("A1") = 6
        .Range("B2:B9").Font.Italic = True
        .Range("B2:B9").Interior.Color = rgbRed
    End With

End Sub

Доступ к рабочему листу в двух словах

Из-за множества различных способов доступа к рабочему листу вы можете быть сбитыми с толку. Так что в этом разделе я собираюсь разбить его на простые термины.

1. Если вы хотите использовать тот лист, который активен в данный момент, используйте ActiveSheet.

ActiveSheet.Range("A1") = 55

2. Если лист находится в той же книге, что и код, используйте кодовое имя.

3. Если рабочая таблица находится в другой рабочей книге, сначала получите рабочую книгу, а затем получите рабочую таблицу.

' Получить рабочую книгу
Dim wk As Workbook
Set wk = Workbooks.Open("C:ДокументыСчета.xlsx", ReadOnly:=True)
' Затем получите лист
Dim sh As Worksheet
Set sh = wk.Worksheets("Лист1")

Если вы хотите защитить пользователя от изменения имени листа, используйте функцию SheetFromCodeName из раздела «Имя кода».

' Получить рабочую книгу
Dim wk As Workbook
Set wk = Workbooks.Open("C:ДокументыСчета.xlsx", ReadOnly:=True)

' Затем получите лист
Dim sh As Worksheet
Set sh = SheetFromCodeName("sheetcodename",wk)

Добавить рабочий лист

Примеры в этом разделе показывают, как добавить новую
рабочую таблицу в рабочую книгу. Если вы не предоставите никаких аргументов для
функции Add, то новый
рабочий лист будет помещен перед активным рабочим листом.

Когда вы добавляете рабочий лист, он создается с именем по умолчанию, например «Лист4». Если вы хотите изменить имя, вы можете легко сделать это, используя свойство Name.

В следующем примере добавляется новый рабочий лист и изменяется имя на «Счета». Если лист с именем «Счета» уже существует, вы получите сообщение об ошибке.

Sub DobavitList()

    Dim sht As Worksheet

    ' Добавляет новый лист перед активным листом
    Set sht = ThisWorkbook.Worksheets.Add
    ' Установите название листа
    sht.Name = "Счета"

    ' Добавляет 3 новых листа перед активным листом
    ThisWorkbook.Worksheets.Add Count:=3

End Sub

В предыдущем примере вы добавляете листы по отношению к
активному листу. Вы также можете указать точную позицию для размещения листа.

Для этого вам нужно указать, какой лист новый лист должен
быть вставлен до или после. Следующий код показывает вам, как это сделать.

Sub DobavitListPervPosl()

    Dim shtNew As Worksheet
    Dim shtFirst As Worksheet, shtLast As Worksheet

    With ThisWorkbook

        Set shtFirst = .Worksheets(1)
        Set shtLast = .Worksheets(.Worksheets.Count)

        ' Добавляет новый лист на первую позицию в книге
        Set shtNew = Worksheets.Add(Before:=shtFirst)
        shtNew.Name = "FirstSheet"

        ' Добавляет новый лист к последней позиции в книге
        Set shtNew = Worksheets.Add(After:=shtLast)
        shtNew.Name = "LastSheet"

    End With

End Sub

Удалить рабочий лист

Чтобы удалить лист, просто вызовите Delete.

Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Лист12")
sh.Delete

Excel отобразит предупреждающее сообщение при удалении листа. Если вы хотите скрыть это сообщение, вы можете использовать код ниже:

Application.DisplayAlerts = False
sh.Delete
Application.DisplayAlerts = True

Есть два аспекта, которые нужно учитывать при удалении таблиц.

Если вы попытаетесь получить доступ к рабочему листу после
его удаления, вы получите ошибку «Subscript out of Range», которую мы видели в
разделе «Доступ к рабочему листу».

Dim sh As Worksheet
Set sh = ThisWorkbook.Worksheets("Лист2")
sh.Delete

' Эта строка выдаст «Subscript out of Range», так как «Лист2» не существует
Set sh = ThisWorkbook.Worksheets("Лист2")

Вторая проблема — когда вы назначаете переменную листа. Если вы попытаетесь использовать эту переменную после удаления листа, вы получите ошибку автоматизации, подобную этой:

Run-Time error -21147221080 (800401a8′) Automation Error

Если вы используете кодовое имя рабочего листа, а не
переменную, это приведет к сбою Excel,
а не к ошибке автоматизации.

В следующем примере показано, как происходят ошибки автоматизации.

sh.Delete

' Эта строка выдаст ошибку автоматизации
Debug.Assert sh.Name

Если вы назначите переменную Worksheet действительному рабочему листу, он будет работать нормально.

sh.Delete

' Назначить sh на другой лист
Set sh = Worksheets("Лист3")

' Эта строка будет работать нормально
Debug.Assert sh.Name

Цикл по рабочим листам

Элемент «Worksheets» — это набор рабочих листов, принадлежащих рабочей книге. Вы можете просмотреть каждый лист в коллекции рабочих листов, используя циклы «For Each» или «For».

В следующем примере используется цикл For Each.

Sub CiklForEach()

    ' Записывает «Привет Мир» в ячейку A1 для каждого листа
    Dim sht As Worksheet
    For Each sht In ThisWorkbook.Worksheets
         sht.Range("A1") = "Привет Мир"
    Next sht 

End Sub

В следующем примере используется стандартный цикл For.

Sub CiklFor()
    
    ' Записывает «Привет Мир» в ячейку A1 для каждого листа
    Dim i As Long
    For i = 1 To ThisWorkbook.Worksheets.Count
         ThisWorkbook.Worksheets(i).Range("A1") = "Привет Мир"
    Next sht

End Sub

Вы видели, как получить доступ ко всем открытым рабочим книгам и как получить доступ ко всем рабочим листам в ThisWorkbook. Давайте сделаем еще один шаг вперед — узнаем, как получить доступ ко всем рабочим листам во всех открытых рабочих книгах.

Примечание. Если вы используете код, подобный этому, для записи на листы, то сначала сделайте резервную копию всего, так как в итоге вы можете записать неверные данные на все листы.

Sub NazvVsehStr()

    ' Печатает рабочую книгу и названия листов для
    ' всех листов в открытых рабочих книгах
    Dim wrk As Workbook
    Dim sht As Worksheet
    For Each wrk In Workbooks
        For Each sht In wrk.Worksheets
            Debug.Print wrk.Name + ":" + sht.Name
        Next sht
    Next wrk

End Sub

Использование коллекции листов

Рабочая книга имеет еще одну коллекцию, похожую на Worksheets под названием Sheets. Это иногда путает пользователей. Чтобы понять, в первую очередь, вам нужно знать о типе листа, который является диаграммой.

В Excel есть возможность создать лист, который является диаграммой. Для этого нужно:

1. Создать диаграмму на любом листе.
2. Щелкнуть правой кнопкой мыши на графике и выбрать «Переместить».
3. Выбрать первый вариант «Новый лист» и нажмите «ОК».

Теперь у вас есть рабочая книга, в которой есть типовые листы и лист-диаграмма.

• Коллекция «Worksheets » относится ко всем рабочим листам в рабочей книге. Не включает в себя листы типа диаграммы.
• Коллекция Sheets относится ко всем листам, принадлежащим книге, включая листы типовой диаграммы.

Ниже приведены два примера кода. Первый проходит через все
листы в рабочей книге и печатает название листа и тип листа. Второй пример
делает то же самое с коллекцией Worksheets.

Чтобы опробовать эти примеры, вы должны сначала добавить лист-диаграмму в свою книгу, чтобы увидеть разницу.

Sub KollSheets()

    Dim sht As Variant
    ' Показать название и тип каждого листа
    For Each sht In ThisWorkbook.Sheets
        Debug.Print sht.Name & " is type " & TypeName(sht)
    Next sht

End Sub

Sub KollWorkSheets()

    Dim sht As Variant
    ' Показать название и тип каждого листа
    For Each sht In ThisWorkbook.Worksheets
        Debug.Print sht.Name & " is type " & TypeName(sht)
    Next sht

End Sub

Если у вас нет листов диаграмм, то использование коллекции Sheets — то же самое, что использование коллекции WorkSheets.

Заключение

На этом мы завершаем статью о Worksheet VBA. Я надеюсь, что было полезным.

Три наиболее важных элемента Excel VBA — это рабочие книги, рабочие таблицы, диапазоны и ячейки.

Эти элементы будут использоваться практически во всем, что вы делаете. Понимание их сделает вашу жизнь намного проще и сделает изучение VBA увлекательнее.

1. Семейство
   WorkSheets.
2. Объект
   WorkSheet
3. Пример

Объект WorkSheet и семейство WorkSheets.

В иерархии Excel объект WorkSheet  идет
сразу после объекта Workbook и  представляет
рабочий лист.

MS Excel позволяет оперировать с несколькими типами листов:

•         
Рабочие листы, содержащие ячейки. Эти листы
представляются объектом WorkSheet.

•         
Листы диаграмм, содержащие диаграммы. Такие
листы представляются объектом Chart.

•         
Свойства объекта Worksheets

•         
Application— Когда используется
без объектного спецификатора, это свойство возвращает объект
Application , который представляет приложение Excel Microsoft.

•         
Когда используется с объектным
спецификатором, это свойство возвращает объект Application, который
представляет создателя указанного объекта (Вы можете использовать
это свойство с объектом Automation OLE, чтобы возвратить приложение
того объекта).

•         
Только для чтения.

•         
 Count— Возвращает значение Long ,
которое представляет число объектов в коллекции (т.е. число листов и диаграмм).

•         
Creator— Возвращает 32-разрядное целое
число, которое указывает приложение, в котором был создан этот
объект. Только для чтения Long.

•         
Worksheets (1).Creator

•         
Комментарии: Если объект был создан
в Excel Microsoft, это свойство возвращает строковый XCEL, который
эквивалентен шестнадцатеричному числу 5843454C. Свойство Creator проектировано,
чтобы использоваться в Excel Microsoft для Macintosh,
где у каждого приложения есть четырехсимвольный
код ассоциированного приложения. Например, у Excel Microsoft есть
код ассоциированного приложения XCEL.

•         
HPageBreaks— Возвращает коллекцию
HPageBreaks, которая представляет горизонтальные разрывы страниц на листе.
Только для чтения.

•         
Worksheets (1). HPageBreaks

•         
 

•         
Item— Возвращает единственный объект
из коллекции

•         
Worksheets (1).Item (Index)

•         
Параметры: Index — Название или индекс
объекта.

•         
Пример: Следующие две строки программы
эквивалентны

•         
ActiveWorkbook.Worksheets.Item
(1)

•         
ActiveWorkbook.Worksheets
(1)

VPageBreaks— Возвращает коллекцию VPageBreaks ,
которая представляет вертикальные разрывы страниц на листе. Только
для чтения.

Worksheets (1). VPageBreaks

Этот пример отображает общее количество полноэкранных
и область печати вертикальные разрывы страниц.

For Each pb
in Worksheets (1).VPageBreaks

   If
pb.Extent = xlPageBreakFull Then

       cFull
= cFull + 1

   Else

       cPartial
= cPartial + 1

   End
If

Next

MsgBox cFull & “ полноэкранные разрывы страниц, “ &
cPartial & _

   » разрывы страниц области печати «

Visible— Определяет видимость объекта

Возможные варианты: Valse и True

 Worksheets
(1).Visible = True

Parent— Возвращает родительский объект
для указанного объекта. Только для чтения

Методы семейства WorkSheets.

Add — создает новый рабочий лист.

Синтаксис:

objWorkSheets.Add(Before,
After, Count, Type)

Параметр Before – указывает лист, перед которым будет
размещен новый рабочий лист.

Параметр After
— указывает лист, после которого будет размещен новый рабочий. Если аргументы Before и After опущены, то новый лист размещается
перед активным листом.

Параметр Count
— число добавляемых листов, по умолчанию имеет значение 1

Параметр Туре — указывает тип добавляемого листа.
Допустимые значения: xlWorksheet(по
умолчанию),xlExcel4MacroSheet и хlЕхсеl4IntlMacroSheet.

Например: вставим новый лист перед активным листом активной
рабочей книги.

ActiveWorkbook.Worksheets.Add

Delete
– удаляет рабочий лист.

Copy— Копирует лист в другое местоположение
в рабочей книге.

Worksheets
(1).Copy (Before, After)

Параметры:

Before — Лист, перед которым будет помещен скопированный
лист.

After — Лист, после которого будет помещен скопированный
лист.

Комментарии:

Вы не можете определить Before ,
если Вы определяете After и на оборот.
Если Вы не определяете или Before , чем или After, Excel
Microsoft создаст новую рабочую книгу, которая содержит скопированный лист

Этот пример копирует Sheet1, помещая копию после Sheet3.

Worksheets
( «Sheet1»).Copy After:=Worksheets ( «Sheet3»)

FillAcrossSheets— Копирует выбранный диапазон
в ту же самую область на всех других рабочих листах
в коллекции.

Worksheets
( «Sheet1»).FillAcrossSheets (Range, Type)

Параметры:

Range — Диапазон, который необходимо скопировать
на рабочие листы в коллекции. Диапазон должен быть от рабочего
листа в пределах коллекции.

Type — Определяет, как скопировать диапазон.

Этот пример заполняет диапазон A1:C5 на Sheet1, Sheet5,
и Sheet7 с информационными наполнениями того же самого диапазона
на Sheet1.

x = Array (
«Sheet1», «Sheet5», «Sheet7»)

Sheets
(x).FillAcrossSheets _   

      Worksheets
( «Sheet1»).Range ( «A1:C5»)

Move— Перемещает лист в другое местоположение
в рабочей книге.

Worksheets
( «Sheet1»).Move (Before, After)

Параметры:

Before-Лист, перед которым будет помещен перемещенный лист.

After — Лист, после которого будет помещен перемещенный
лист.

Комментарии:

Вы не можете определить Before,
если Вы определяете After и наоборот.
Если Вы не определяете ни Before, ни After , Excel
Microsoft создаст новую рабочую книгу, которая содержит перемещенный лист.

Этот пример перемещает Sheet1 после Sheet3 в активной
рабочей книге.

Worksheets
( «Sheet1»).Move  after:=Worksheets ( «Sheet3»)

PrintOut— Печатает объект.

Worksheets
( «Sheet1»).PrintOut (From, To, Copies, Preview, ActivePrinter, PrintToFile,
Collate, PrToFileName, IgnorePrintAreas)

Параметры:

From — Число страницы, чтобы запустить печатать.
Если этот параметр опущен, печатается с первой страницы.

To — Число последней страницы, которая напечатает.
Если этот параметр опущен, печатается до последней страницы.

Copies — Число печатаемых копий. Если этот параметр
опущен, печатается одна копия.

Preview — True, чтобы вызвать предварительный просмотр
информации, выводимой на печать прежде, чем напечатать объект. False
(или опущенный), чтобы напечатать объект немедленно.

ActivePrinter — Определяет имя активного принтера.

PrintToFile — True, чтобы напечатать в файл.
Если PrToFileName не определен, Excel Microsoft запрашивает пользователя
имя выходного файла.

Collate — True, чтобы сопоставить множественные копии.

PrToFileName — Если PrintToFile установлен
в True, этот параметр определяет название файла, в который
Вы хотите печатать.

IgnorePrintAreas — True, чтобы проигнорировать области
печати и напечатать весь объект.

Этот пример печатает активный лист.

ActiveSheet.PrintOut

PrintPreview— Показывает предварительный просмотр
объекта, как это смотрелось бы когда печатается.

Worksheets
( «Sheet1»).PrintPreview (EnableChanges)

Параметры:

EnableChanges — Передайте Boolean значение, чтобы
определить, может ли пользователь изменить края и другие опции
Параметров станицы, доступные в предварительном просмотре информации,
выводимой на печать

Этот пример отображает Sheet1 в предварительном
просмотре информации, выводимой на печать.

Worksheets
( «Sheet1»).PrintPreview

Select— Выбирает объект.

Worksheets
( «Sheet1“).Select (Replace)

Параметры:

Replace — (используемый только с листами). True , чтобы
заменить текущий выбор указанным объектом. False , чтобы расширить текущий
выбор, чтобы включать любые ранее выбранные объекты и указанный объект (выбор
нескольких объектов).

Свойства объекта WorkSheet.

Name
– возвращает имя рабочего листа.

Пример: первому листу рабочей книги присваивается имя
“урок1”

ActiveWorkbook.Worksheets(1).Name = «урок1»

Visible—
true (рабочий лист
выводится на экран), false
(рабочий лист не видим, т.е. скрыт, но его можно отобразить на экране с помощью
команды Формат®лист® отобразить (Format, Sheet, Show) и 
xlVeryHidden(рабочий
лист скрыт, и его можно отобразить на экране только программно).

StandardHeight – возвращает стандартную высоту всех
строк рабочего листа.

Пример: устанавливает стандартную высоту 3строки.

Worksheets(1).Rows(3).RowHeight =
Worksheets(1).StandardHeight

ActiveCell
— возвращает активную ячейку активного рабочего листа.

Intersect
– возвращает диапазон, являющийся пересечением нескольких диапазонов.

Синтаксис:

Intersect
(range1, rabge2, …)

Пример: выбирается пересечение диапазонов A1:D3 и C3:D4, т.е. диапазон C3:D3.

Intersect(Range(«A1:D3»),
Range(«C3:D4»)).Select

Union – возвращает диапазон, являющийся объединением
нескольких диапазонов.

Синтаксис:

Union(rangeI, range2, …)

Пример: выбирается объединение двух диапазонов A1:B2 и C3:D4.

Union(Range(«A1:B2»),
Range(«C3:D4»)).Select

Методы объекта WorkSheet.

Activate – активизирует рабочий лист.

Пример: Worksheets(1).Activate

Protect
– защищает рабочий лист от внесенных в него изменений.

Синтаксис:

Protect
(Password, DrawingObjects, Contents,Scenarios, UserInterfaceOnly)

Password -Строка используется в качестве пароля для защиты листа

DrawingObjects -Допустимые значения :true(графические объекты защищены) и false(графические объекты не
защищены).По умолчанию используется значение false.

Contents — Допустимые значения : true(ячейки защищены) и false(ячейки не защищены). По умолчанию используется значение true.

Scenarios — Допустимые значения : 
true(сценарии
защищены) и false(сценарии
не защищены).По умолчанию используется значение true.

UserInterfaceOnly — Допустимые значения: true(лист защищен от изменений со стороны пользователя, но не
подпрограммы VBA) и false(лист защищен от
изменений со стороны как пользователя , так и подпрограммы VBA). По умолчанию используется значение
false.

В примере устанавливается полная защита активного рабочего
листа от любых изщменений со стороны пользователя:

ActiveSheet.Protect
Password:=”Секрет”,
DrawingObjects:=true, Contents:= true, Scenarios:=true

Unprotect
– снятие защиты с рабочего листа.

Синтактис:

Unprotect(Password)

Password — Строка используемая в качестве пароля для защиты листа

Снятие защиты с активного рабочего листа

ActiveSheet.unProtect Password:=”Секрет”

Copy
–копирование рабочего листа в другое место рабочей книги.

Синтаксис:

Copy
(Before, After)

Пример:

Worksheets(«урок1″).Copy after:=Worksheets(3)

Move
– перемещение рабочего листа в другое место рабочей книги.

Move
(Before, After)

Before—
лист рабочей книги, перед которым вставляется данный

 After – лист, после которого вставляется
данный

Одновременно допустимо использование только одного из
аргументов.

В примере Лист1 активной рабочей киги перемещается перед
Лист3 той же рабочейкниги:

Worksheets(“Лист1”).Move Before:= Worksheets(“Лист3”)

Evaluate
— преобразует выражение в объект или значение. Используется при вводе
формул и ячеек из диалоговых окон.

В следующем примере в поле ввода первого появившегося
диалогового окна вводится ссылка на ячейку, например А1, процедура считывает
значение из этой ячейки и отображает его в диалоговом окне.

Sub eva()

Ячейка = InputBox(
«Введите имя ячейки»)         ‘
Ввод адреса ячейки

Значение = Evaluate (Ячейка) .Value ‘ Считывание значения из
ячейки с указанным адресом 1

MsgBox CStr (Значение) ‘ Вывод считанного значения в диалоговое окно

End Sub

 После этого в поле
ввода следующего диалогового окна надо ввести какое-нибудь арифметическое
выражение, например A3*A4. Процедура вычислит
значение этого выражения и отобразит в диалоговом окне.

Sub eva()

функция = InputBox(«введите
имя ячейки»)

значение = Evaluate(функция)

MsgBox CStr(значение)

End Sub

События объекта WorkSheet.

Чтобы создать процедуру обработки события конкретного листа,
следует выбрать этот лист в окне проекта и затем в списке Общая область
выбрать WorkSheet.
После этого перейдите в список Описания и пометьте событие, процедуру
которого необходимо создать.

Calculate происходит после того, как будут произведены вычисления
для всех ячеек рабочего листа.

Change
– происходит после изменения пользователем содержания ячейки рабочего листа.Процедура
обработки события Change содержит один параметр Target , котрый представляет собой объект
Range , содержащий
измененные ячейки.

Примечание: Событие не происходит , если ячейки изменяются в
результате пересчета , а также в результате удаления ячеек.

SelectionChange
– происходит каждый раз при очередной смене выделения на рабочем листе.
Процедура обработки события Change содержит один параметр Target , котрый представляет собой объект
Range , содержащий
выделенные ячейки.

BeforeClose        при закрытии рабочей книги

BeforePrint         перед печатью рабочейкниги

BeforeSave         перед сохранением рабочей книги

Deactivate          когда рабочая книга теряет фокус

NewSheet           придобавлении нового листа

Open                   при открытии рабочейкниги

SheetActivate     при активации любого рабочего листа

SheetDeactivate  когдарабочий лист реряет фокус

Задача: есть таблица, надо пройти по ячейкам и если они
равны некому эталону, то всю строку скопировать на другой лист.

Этот скрипт пробегает по всем ячейкам таблицы размером 10х10, в ячейке (1, 2)
есть некоторое значение, с которым сравнивается содержимое каждой проверяемой
ячейки, если оно совпадает, то всю строку, в которой находится эта ячейка, надо
перекопировать на новый лист Result. Таким образом, на новом листе создастся
новая таблица, в которой будут только необходимые нам строки.

Sub
macros1() 

  Dim i As Integer 

  Dim j As Integer 

  Dim k As Integer  

 On Error Resume Next   

Set
NewSheet = Worksheets.Add  

 With Worksheets(«Sheet1») 

      k = 1    

   For i = 1 To 10        

   For j = 1 To 10          

     If .Cells(i, j) = .Cells(1, 2) Then     

Rows(i).Copy
NewSheet.Rows(k)        

           k = k + 1           

        Exit For           

    End If    

       Next j  

     Next i   

End
With  

 NewSheet.Name = «Result»  

 Worksheets(«Result»).Activate

End Sub

Обмен данными между листами Excel  и переменными (массивами) VBA

 Dim
X(), Y(), N As Variant
‘ объявление переменных уровня модуля

 ‘ фрагмент программы под кнопку «ЧТЕНИЕ С ЛИСТА»

Private Sub
CommandButton1_Click()

N =
Worksheets(1).Range(«B14»).Value ‘ чтение ячейки B14 листа 1 в переменную N

ReDim X(N), Y(N)

‘ цикл считывания N ячеек первого и второго столбца листа
1 в массивы X и Y

For i = 1
To N

X(i) =
Worksheets(1).Cells(i + 1, 1).Value

Y(i) =
Worksheets(1).Cells(i + 1, 2).Value

Next i

End Sub

‘ фрагмент программы под кнопку «ЗАПИСЬ НА ЛИСТ»

Private Sub CommandButton2_Click()

‘ Запись на лист 2 содержимого переменных N (в ячейку
D14), X и Y ( 3 и 4 столбцы)

Worksheets(2).Range(«D14»).Value
= N

For i = 1
To N

Worksheets(2).Cells(i
+ 1, 3).Value = X(i)

Worksheets(2).Cells(i
+ 1, 4).Value = Y(i)

Next i

End Sub

‘ фрагмент программы под кнопку «ОЧИСТКА»

Private Sub CommandButton3_Click()

‘ Очистка на 2 листе ячейки D14, 3 и 4 столбца

Worksheets(2).Range(«D14»).ClearContents

For i = 1
To N

Worksheets(2).Cells(i
+ 1, 3).Value = » »

Worksheets(2).Cells(i
+ 1, 4).Value = » »

Next i

End Sub

Самостоятельно: На лист1 заполнить матрицу чисел размером
3х3.Написать макрос чтения этихчисел в массив ,нахождения максимального и
сохранения результата в ячейку Excel.

Задача: Написать приложение, решающее задачу расчета
амортизации в зависимости от выбранного метода: стандартного или А;-кратного
учета амортизации. На примере данного приложения вы узнаете, что такое:

•         
Финансовые функции расчета амортизации

•         
Управление видимостью отдельных элементов
управления в окне диалога

•         
Программный вывод объектов WordArt на рабочий
лист

•         
Теория

•         
Под амортизацией подразумевается уменьшение
стоимости имущества в процессе эксплуатации. Обычно оценивают величину этого
уменьшения на единицу времени.
Функция рабочего листа AMP (SLN) возвращает величину амортизации имущества за
один период времени, используя метод равномерной амортизации.

•         
Синтаксис:
АМР(стоимость; остаток; время_эксплуатации)
Аргументы:

•         
     Стоимость—
Начальная стоимость имущества

•         
      Остаток — Остаточная стоимость в
конце периода амортизации (иногда называется ликвидной стоимостью имущества)
Время_эксплуатации — Количество периодов, за которые собственность
амортизируется (иногда называется периодом амортизации)

•         
Предположим, вы купили за 6 000 руб. компьютер,
который после 5 лет эксплуатации будет оцениваться в 1 000 руб. Снижение
стоимости для каждого года эксплуатации вычисляется формулой =дмр(6000; 1000;
5), которая определяет 1 000р.

•         
Функция АМГД (SYD) возвращает годовую
амортизацию имущества для указанного периода.

•         
Синтаксис:

•         
АМГД(стоимость; остаток; время_эксплуатации;
период)

•         
Аргументы:

•         
   Стоимость
— Начальная стоимость имущества
Остаток — Остаточная стоимость в конце периода амортизации (иногда
называется ликвидной стоимостью имущества)
Время эксплуатации — Количество периодов, за которые собственность
амортизируется (иногда называется периодом амортизации)
Период— Номер периода для вычисления амортизации (должен измеряться в
тех же единицах, что и время полной амортизации)

•         
Практика

•         
Для решения задачи нахождения вычисления
амортизации оборудования по стандартному методу или методу к-кратного
учета с помощью редактора пользовательских форм создадим диалоговое окно Расчет
амортизации (рис. У4.1).

Рис.
У4.1. Диалоговое окно Расчет амортизации

Обсудим, как приведенная ниже программа решает перечисленные
задачи и что происходит в программе.

UserForm Initialize

1. Активизирует
   диалоговое окно.
2. Запрещает
   ввод данных пользователем в поле Кратность метода.
3. Назначает
   клавише <Esc> функцию кнопки Отмена, а клавише <Enter> —
   Вычислить.
4. Назначает
   кнопке вычислить сочетание клавиш <Alt>+<B>, а кнопке Отмена —
   <Alt>+<O>.
5. В
   группе тип амортизации при инициализации диалогового окна назначает выбор
   переключателя Стандартный метод. За счет выбора этого переключателя при
   инициализации диалогового окна не отображаются надпись кратность метода и
   соответствующие ей поле и счетчик (рис. У4.2).
6. Устанавливает
   для счетчика минимальное значение, равное 2, и шаг изменения значений
   счетчика, также равный 2, для убыстрения прокрутки ; счетчика.
   Промежуточные значения вводятся в i поле Кратность метода не с помощью
   счетчика, i а посредством клавиатуры.
7. Нажатие
   кнопки вычислить запускает на выполнение процедуру
8. CoramandButton1_Click
   Проверяет согласованность вводимых данных. В случае их несогласованности
   отображает соответствующее сообщение (рис. У4.3, а и У4.3, б).
9. Используя
   финансовую функцию рабочего листа SYD (АМГД) и DDB (ДДОБ) вычисляет
   величину амортизации выбранным методом.
10. Удаляет
    с рабочего листа все ранее созданные графические объекты и внедряет объект
    WordArt. Подготавливает рабочий лист для вывода результатов вычислений.
    Выводит полученные данные на рабочий лист и в диалоговое окно (рис. У 4.
    4).

Коллекция WorkSheets и объект WorkSheet

Каждая рабочая книга состоит из листов. Совокупность всех листов рабочей книги задается объектом Sheets. Этот объект, задающий коллекцию, представляет все листы рабочей книги независимо от их типа. При программной работе часто полезно иметь дело с подколлекциями коллекции Sheets, содержащими листы только одного определенного типа. Основных типов листов в рабочей книге два — WorkSheet и Chart, соответственно имеются и две коллекции для этих типов листов. К рассмотрению коллекции WorkSheets мы сейчас и переходим.

Коллекция WorkSheets

Эта коллекция является частью коллекции Sheets, — ее элементами являются объекты класса WorkSheet, представляющие рабочие листы — листы электронных таблиц. По умолчанию при создании каждой новой рабочей книги в ее состав включаются три таких листа. С объектной точки зрения это означает, что при создании новой книги автоматически создается коллекция WorkSheets, содержащая три элемента. Как и всякая коллекция в Excel и Office 2000 данная коллекция содержит типичный набор свойств: Application, Count, Creator, Parent, Item. Кроме этих свойств имеется менее типичное свойство для коллекций свойство Visible, которое позволяет сделать видимыми или невидимыми рабочие листы книги. У коллекции WorkSheets есть еще два свойства VpageBreaks и HpageBreaks, возвращающие одноименные коллекции, элементы которых задают вертикальное и горизонтальное деление рабочего листа на страницы, которые могут быть распечатаны. Дело в том, что рабочий лист Excel имеет большие размеры по ширине и длине, так что его полностью нельзя увидеть ни на экране дисплея, ни при выводе на печать. Поэтому при печати часто приходится делить рабочий лист, вставляя разрывы по горизонтали и вертикали. Коллекции VpageBreaks и HpageBreaks содержат объекты, задающие эти разрывы.

Методов у коллекции WorkSheets немного, и практически все они типичны для коллекций:

• Function Add([Before], [After], [Count], [Type]) As Object — позволяет добавить новый рабочий лист в книгу, возвращая соответствующий объект в качестве результата. Добавленный лист становится активным. Параметры Before и After позволяют указать, куда поместить добавленный лист, — перед или после листа, который до выполнения операции был активным. Параметр Count позволяет одновременно добавить несколько листов, задавая число этих листов. Параметр Type обычно не указывается, ранее он позволял добавлять листы макросов в версии Excel4.
• Sub Copy([Before], [After]) — метод Copy вызывается объектом WorkSheets, чаще всего, для создания копии рабочей книги. В этом случае параметры метода не задаются. При копировании отдельной страницы параметры указывают, куда поместить ее копию. Понятно, что только один из этих параметров может быть указан в момент вызова метода.
• Sub Delete() — удаляет коллекцию рабочих листов.
• Sub FillAcrossSheets(Range As Range, [Type As XlFillWith = xlFillWithAll]) — область, заданная параметром Range, копируется в соответствующее место всех рабочих листов. Тип копирования задается вторым параметром, можно, например, копировать формулы, по умолчанию копируется все содержимое области, заданной параметром Range. Копируемый объект, естественно, должен быть частью одного из рабочих листов коллекции. Вот простой пример, демонстрирующий применение этого метода:

  Public Sub CopyRange()
  	'Копирование объекта Range первого листа
  	'на все листы рабочей книги.
  	With ThisWorkbook
  		.Worksheets.FillAcrossSheets (.Worksheets(1).Range("A7:C11"))
  	End With
  End Sub

• Sub Move([Before], [After]) — используется для перемещения листов. К коллекции его лучше не применять.
• Sub PrintPreview([EnableChanges]), Sub PrintOut([From], [To], [Copies], [Preview], [ActivePrinter], [PrintToFile], [Collate], [PrToFileName]) — используются для предварительного просмотра коллекции рабочих листов перед ее печатью и для печати коллекции.
• Sub Select([Replace]) — используется для выделения листов коллекции.

Вот еще один небольшой пример на применение методов:

Public Sub MoveAndOthers()
	'Перемещение листов и другие операции.
	With ThisWorkbook.Worksheets
		.Select
		.PrintPreview (True)
		'Метод Move к коллекции лучше не применять!
		'.Move
	End With
End Sub

Как Вы понимаете, большинство методов — Copy, Move, Select и другие — коллекция WorkSheets «унаследовала» от своих потомков. Чаще всего эти методы применяются к отдельным листам, а не ко всей коллекции в целом. Нам придется еще с ними столкнуться, при рассмотрении методов объекта WorkSheet. Прежде, чем перейти к изучению этого объекта, скажу только, что коллекция WorkSheets, также как и все другие коллекции, событий не имеет.

Объект WorkSheet

Объект Worksheet — рабочий лист является элементом коллекции Worksheets. Он представляет основной тип страниц рабочей книги. Именно на этих страницах разворачиваются основные действия в ячейках электронной таблицы. Основу рабочего листа составляет прямоугольная таблица ячеек. Главная особенность электронной таблицы состоит в том, что в ее ячейки можно вводить не только данные, но и формулы. Формулы Excel, также как и обычные математические формулы, также как и выражения в языках программирования, оперируют при вычислении значений константами, переменными и функциями. В электронной таблице роль переменных играют ячейки таблицы. Существует некоторый алгоритм, определяющий порядок, согласно которому вычисляются формулы в ячейках электронной таблицы. При изменении данных таблиц, инициированных пользователем, внешними ссылками или выполнением макросов программного проекта, пересчитываются и формулы. Это делает таблицу живой, — изменение значения одной ячейки приводит, возможно, к пересчету всей таблицы.

Также как для документов Word работа с текстом является главным занятием пользователей, работающих с документом, так и работа с ячейками — ввод данных и формул в ячейки, и, тем самым, инициирование вычислений лежит в основе работы с рабочим листом. С объектной точки зрения отдельные ячейки электронной таблицы и области, содержащие совокупности этих ячеек, то, что называется объектами Range, являются основными объектами рабочего листа. Но, естественно, рабочий лист состоит не только из объектов Range, есть и другие компоненты. Объектная модель рабочего листа Worksheet достаточно сложна, что отражает, впрочем, сложность изучаемого объекта. Давайте познакомимся с ней поближе.

Свойства объекта Worksheet

Среди свойств, как всегда, наибольший интерес представляют свойства-участники, возвращающие некоторый отдельный объект или коллекцию в качестве результата. Эти свойства определяют структуру объекта Worksheet, задавая непосредственно вложенные в него объекты.

Свойства — участники

Дадим краткую характеристику свойствам — участникам, входящим в рабочий лист:

• Range, Cells, Rows, Columns, UsedRange, CircularReference — начнем с группы свойств, возвращающих объект Range. Я уже говорил, что объект Range — это основной объект электронной таблицы. Он позволяет задать, как отдельную ячейку таблицу, диапазоны ячеек, представляющие прямоугольную область таблицы, так и области более сложной конфигурации. Именно объект Range со своими свойствами и методами позволяет осуществлять непосредственную работу, как с отдельной ячейкой, так и с областями ячеек. Об этом объекте я еще много буду говорить, но уже сейчас хочу заметить, что большинство свойств рабочего листа Worksheet, о которых пойдет речь, характерны и для объекта Range, задающего часть рабочего листа. Объект Range возвращается в качестве результата при вызове следующих свойств:
  • Range(Cell1, [Cell2]) As Range — возвращает объект Range, определяемый параметрами свойства. Синтаксис параметров таков, что он позволяет определить достаточно изощренный объект. Я расскажу об этом подробнее чуть позже, когда мы займемся подробным рассмотрением объекта Range.
  • Cells As Range — возвращает коллекцию ячеек электронной таблицы. Вызванное объектом WorkSheet это свойство возвращает всю таблицу ячеек рабочего листа, которая, конечно, представляет собой объект Range. Поскольку Cells одновременно является объектом Range и коллекцией ячеек, то можно использовать индексы, чтобы добраться до отдельного элемента коллекции — ячейки таблицы. Важным свойством Cells обладают и объекты, стоящие на более низких ступенях иерархии, в частности, им обладает и сам объект Range, что позволяет получить коллекцию ячеек для любой заданной области таблицы.
  • Rows As Range и Columns As Range — соответственно возвращают коллекции строк и столбцов таблицы. По индексу можно добраться до отдельной строки или столбцу таблицы. Одновременно эти коллекции являются объектами Range, поскольку задают некоторую область рабочего листа.
  • UsedRange As Range — возвращает используемую область рабочего листа. Как правило, лишь небольшая часть рабочего листа занята данными, формулами, рисунками, диаграммами и графиками. Свойство UsedRange позволяет получить минимальную прямоугольную область, содержащую используемую область рабочего листа.
  • CircularReference As Range — возвращает объект Range, содержащий первую циклическую ссылку, если таковые имеются на рабочем листе. В противном случае возвращается значение Nothing. О циклических ссылках поговорим подробнее чуть позже.

  Одну и ту же область таблицы — один и тот же объект Range — можно получить разными способами. Приведем пример, показывающий два способа получения ячейки «А1»:

  Debug.Print	ActiveSheet.Range("A1")
  Debug.Print	ActiveSheet.Cells(1, 1)

  Оба оператора здесь эквивалентны, но только в одном случае используется свойство Range, в другом — Cells. В следующем примере работа идет над отдельным столбцом и строкой, но, фактически, и здесь действует тот же объект Range:

  ActiveSheet. Columns(2).Value = "Да"
  ActiveSheet.Rows(1).Font.Bold = True

• Shapes — возвращает одноименную коллекцию, элементами которой являются объекты класса Shape. Эта коллекция состоит из объектов самых различных типов. По существу, все, что вставляется в рабочий лист, — рисунки, диаграммы, графики, встроенные и связанные OLE-объекты, элементы управления, размещаемые на рабочем листе, — все это объекты коллекции Shapes. При программировании нам неоднократно придется сталкиваться с этими объектами. После объектов Range объекты Shape представляют наиболее часто встречающийся тип объектов, определяющих суть рабочего листа. Замечу еще, что коллекция Shapes и объекты Shape относятся к схожим объектам, встречающимся во всех приложениях Office 2000. При описании объектов Word нам уже приходилось встречаться с этими объектами.
• Names — возвращает неоднократно упоминавшуюся одноименную коллекцию. Подобное свойство имеют объекты Application и Workbook, имеет его и объект WorkSheet. Разница состоит только в том, что здесь речь идет об именах, используемых в данном рабочем листе.
• Comments — возвращает одноименную коллекцию с элементами класса Comment, представляющими комментарии, которые можно привязывать к той или иной ячейке рабочего листа — объекту Range. Замечу, что комментарии несут очень важную нагрузку в создании дружелюбного интерфейса разрабатываемых документов. Их следует широко использовать. Эти объекты также относятся к схожим объектам, и встречаются во всех приложениях Office 2000. Но в Excel комментарии к ячейкам играют особую роль, значительно более важную, чем комментарии в документах Word. В текстовых документах можно использовать различные стили, чтобы непосредственно в тексте документа вставлять авторские замечания, предупреждения и пояснения. Комментарии, как правило, используются в тех случаях, когда не желательно прерывать плавное изложение материала, чтобы работающий с документом мог прочесть основной текст, лишь при желании знакомясь с комментариями. В Excel’е, когда основное содержание листа составляют таблицы, все замечания, пояснения и предупреждения оформляются в виде комментариев к тем или иным ячейкам. Они, например, могут давать подсказку, какие данные располагаются в ячейке, определять их формат и давать другую полезную информацию, необходимую пользователю при работе с таблицами рабочего листа. Есть некоторая разница в программной работе с комментариями в Word и Excel. Вот как выглядит пример введения комментариев в документ Excel:

  Public Sub AddComments()
  	'Формируется последовательность чисел Фибоначчи.
  	'Вставляется комментарий, поясняющий суть чисел.
  	Dim myRange As Range
  	Workbooks("BookThree").Activate
  	With ActiveWorkbook.Worksheets(2)
  		Set myRange = .Range("E1")
  		With myRange
  			.Value = "Числа Фибоначчи"
  			.Offset(1, 0).FormulaR1C1 = "0"
  			.Offset(2, 0).FormulaR1C1 = "1"
  
  			.Offset(3, 0).FormulaR1C1 = "=R[-2]C +R[-1]C"
  			.Offset(3, 0).Select
  			Selection.AutoFill Destination:=Range("E4:E20"), _
  				Type:=xlFillDefault
  		End With
  		'Добавление комментария
  		myRange.AddComment "Числа Фибоначчи - это ..."
  		.Comments(1).Visible = False
  		If (.Comments(1).Author = "Vladimir Billig") Then
  			Debug.Print "OK!"
  		End If
  		'Показ и удаление комментария
  		.Comments(1).Visible = True
  		'.Comments(1).Delete
  	End With
  
  End Sub

  В этом примере я вначале программно формирую последовательность чисел Фибоначчи, а затем к ячейке, задающей заголовок, добавляю комментарий, поясняющий сущность этих чисел. Заметьте, в Excel в отличие от Word коллекция комментариев не имеет метода Add, — они вводятся специальным методом AddComment объекта Range. Они по-другому показываются, используя свойство Visible, что, пожалуй, более естественно. Заметьте также, что свойство Author можно использовать только для чтения.

• QueryTables — возвращает одноименную коллекцию с элементами класса QueryTable, каждый из которых представляет таблицу, полученную на основе запроса к внешнему источнику данных. Внешним источником данных может быть база данных, Web-страницы в Интернет. Я уже вскользь упоминал о построении Web-запроса, когда рассматривал внешние ссылки при описании объекта Application. Следует сказать, что, несмотря на то, что объект QueryTable присутствовал и в предыдущей версии Office 97, в нынешней версии этот объект претерпел существенные изменения, и у него появилось множество новых свойств, что, в первую очередь, связано с возможностью построения Web-запросов. Об этом объекте я еще скажу более подробно чуть позже.
• Hyperlinks — возвращает одноименную коллекцию с элементами класса Hyperlink, — гиперссылками, задающими связи (переходы) ячеек рабочего листа с внешним миром. В качестве гиперссылки может, например, использоваться URL-адрес в Internet. Объекты Hyperlink относятся к группе схожих объектов, встречающихся во всех приложениях Office 2000.
• Outline — возвращает одноименный объект, задающий структурированное представление рабочего листа. Зачастую данные, представленные на рабочем листе можно структурировать, сжимая или разворачивая их по мере необходимости. Типичной является ситуация, когда данные, отражающие работу некоторого предприятия, представлены по дням, неделям, месяцам, кварталам и годам. При глобальном анализе деятельности предприятия нас могут интересовать только сводные результаты за каждый год, в этом случае нижние уровни структуры будут свернуты, но при необходимости их всегда можно развернуть вплоть до ежедневного анализа. Поскольку таблица двумерная, то возможны два направления свертки данных. Так, например, второе направление может отражать структуру предприятия: цеха, участки, группы, отдельного работника. Метод ShowLevels(RowLevels, ColumnLevels) объекта Outline позволяет показать структуру рабочего листа, где уровни детализации по строкам и столбцам задают параметры метода. Чаще
  всего, для проведения подобного анализа целесообразнее использовать сводные таблицы — объект PivotTablle.
• AutoFiter — возвращает одноименный объект, позволяющий производить фильтрацию данных в специального рода Excel-запросах. О фильтрах и их использовании я расскажу подробно и приведу соответствующие примеры.
• Свойства Next и Previous возвращают следующую и предыдущую страницу рабочей книги.
• Коллекции HPageBreaks и VpageBreaks, возвращаемые при вызове одноименных свойств, используются для того, чтобы разбить нужным образом электронную таблицу на страницы, задавая горизонтальное и вертикальное разбиение. Это бывает важно при формировании отчетов и вывода результатов на печать. О них уже шла речь, при рассмотрении коллекции WorkSheets.
• Объект PageSetup позволяет установить параметры страницы при выводе на печать.

Подводя итоги, заметим, что рабочий лист помимо того, что он представляет электронную таблицу ячеек, может содержать и другие элементы: диаграммы, рисунки, OLE -объекты. В нем могут быть также расположены сводные таблицы и таблицы, построенные на основе запросов к внешним источникам данных. Некоторые из ячеек рабочего листа снабжаются комментариями и имеют ссылки на внешние адреса. Ячейки и области данных могут иметь имена. Наконец, данные разрешается свернуть и отобразить структуру такого листа с нужной степенью подробности.

Изменения в объектной модели объекта WorkSheet

Изменения объектной модели не обошли стороной и рассматриваемый нами объект WorkSheet. Многие объекты, встроенные в объект WorkSheet, как, например, уже упоминавшийся объект QueryTable приобрели новые свойства и методы. Два новых свойства появились и у самого объекта Worksheet. Если новое терминальное свойство DisplayRightToLeft вряд ли представляет интерес для российских программистов, поскольку связано с правосторонними языками, то свойство-участник Scripts, возвращающее коллекцию объектов класса Script, представляет несомненный интерес. Каждый элемент этой коллекции задает блок script-кода, используемого в возможных сценариях при публикации рабочей книги в интернет.