Вставка нового листа с именем,
Отличным от существующих
В качестве примера работы с методами Add и Move приведем текст процедуры, которая в книгу добавляет новый рабочий лист, причем первоначально
проверяет, существует ли уже лист со специфицированным именем (листинг 5.30). Если такой лист имеется или пользователь забыл специфицировать имя добавляемого листа, то об этом отображается сообщение и процедура завершает работу.
Sub AddNewSheet(newSheetName As String)
Dim ws As Worksheet
ForEach ws In Worksheets
If ws.name = newSheetName Or newSheetName = "" Then
MsgBox "Такой лист уже существует", vblnformation
Exit Sub
End If
Next
Sheets.Add Type:="Worksheet"
With ActiveSheet
.Move After=Worksheets(Worksheets.Count)
.Name = newSheetName
End With
End Sub
Объект Worksheet
В иерархии MS Excel объект W orksheet идет сразу после объекта Workbook и представляет собой рабочий лист. Объект Workshee t возвращается либо как элемент семейства Worksheets, либо как элемент семейства Sheets одноименным свойством объекта Workbook, либо как активный рабочий лист — свойством ActiveSheet.
Свойства объекта Worksheet
Объект W orksheet обладает огромной коллекцией свойств, предоставляющих разработчику обширные средства от получения доступа к конкретной ячейке до сложной обработки данных типа "фильтрация". В табл. 5.9 перечислены свойства этого объекта.
Таблица 5.9. Свойства объекта Worksheet
| Свойство | Описание |
| AutoFilter | Возвращает объект AutoFilter, инкапсулирующий в себе данные об используемом автофильтре для обработки данных, и значение Nothing, если фильтр не применяется |
| AutoFilterMode | Возвращает значение True, если в ячейках отображаются раскрывающиеся списки автофильтра |
| Cells | Возвращает либо одну ячейку, либо семейство ячеек |
| CircularReference | Возвращает ссылку на диапазон, содержащий циклическую ссылку |
| Columns | Возвращает либо один столбец, либо семейство столбцов |
| Comments | Возвращает семейство Comments всех примечаний |
| ConsolidationFunction | Возвращает код функции консолидации данных, используемой при построении итоговой таблицы |
| ConsolidationOptions | Возвращает трехмерный массив, содержащий в себе данные о конструируемой итоговой таблице |
| ConsolidationSources | Возвращает трехмерный массив, содержащий в себе информацию о расположении консолидируемых данных |
| DisplayPageBreaks | Управляет отображением линий разрыва страницы |
| EnableAutoFilter | Если значение этого свойства равно True, то раскрывающиеся списки автофильтра достижимы для пользователя даже в случае установки защиты на рабочем листе. При этом должен быть только включен режим защиты пользовательского интерфейса |
| EnableCalculation | Если значение этого свойства равно False, то не происходит пересчета формул на рабочем листе, если же его значение равно True, то пересчет производится автоматически |
| EnableOutlining | Если значение этого свойства равно True, то управление структурой достижимо для пользователя даже в случае установки защиты на рабочем листе. При этом должен быть только включен режим защиты пользовательского интерфейса |
| EnablePivotTable | Если значение этого свойства равно True, то управление сводной таблицей достижимо для пользователя даже в случае установки защиты на рабочем листе. При этом должен быть только включен режим защиты пользовательского интерфейса |
| EnableSelection | Определяет, какие ячейки могут быть выбраны на рабочем листе, если на нем установлена защита. Допустимыми значениями являются следующие постоянные XlEnableSelection: xlNoSelection (выбор запрещен), xlNoRestrictions (выбирать можно все ячейки), xlUnlockedCells (выбирать можно только те ячейки, у которых значение свойства Locked установлено равным False) |
| FilterMode | Это свойство отбражает значение True, если на рабочем листе имеются списки, к которым были применены фильтры, в результате чего некоторые их элементы оказались скрытыми |
| HPageBreaks | Возвращает семейство HpageBreaks, состоящее из объектов HPageBreak, инкапсулирующих в себе информацию о горизонтальных разрывах страницы |
| Hyperlinks | Возвращает семейство Hyperlinks, состоящее из объектов Hyperlink, инкапсулирующих в себе информацию о гиперссылках |
| Index | Возвращает значения индекса рабочего листа в семействе Sheets |
| MailEnvelope | Заголовок отсылаемого по электронной почте сообщения, созданного на основе рабочего листа |
| Name | Имя рабочего листа |
Таблица 5.9. Свойства объекта Worksheet
|
|
|
|
|
|
| Свойство | Описание |
| Names | Возвращает семейство Names всех имен данного рабочего листа |
| Outline | Возвращает объект Outline, инкапсулирующий в себе информацию о структуре, созданной на рабочем листе |
| PageSetup | Возвращает объект PageSetup, инкапсулирующий в себе информацию о параметрах страницы |
| ProtectContents | Свойство только для чтения, проверяющее установлена ли защита на содержимое рабочего листа |
| Name | Имя рабочего листа |
| Names | Возвращает семейство Names всех имен данного рабочего листа |
| Outline | Возвращает объект Outline, инкапсулирующий в себе информацию о структуре, созданной на рабочем листе |
| PageSetup | Возвращает объект PageSetup, инкапсулирующий в себе информацию о параметрах страницы |
| ProtectContents | Свойство только для чтения, проверяющее установлена ли защита на содержимое рабочего листа |
| ProtectDrawingObjects | Свойство только для чтения, проверяющее установлена ли защита на графические объекты |
| ProtectScenarios | Свойство только для чтения, проверяющее установлена ли защита на сценарии |
| Protection | Возвращает объект ^Protection, инкапсулирующий в себе информацию об установленной на листе защите |
| ProtectionMode | Свойство только для чтения, проверяющее установлена ли защита только пользовательского интерфейса |
| QueryTables | Возвращает семейство QueryTables состоящее из объектов QueryTable, инкапсулирующих в себе информацию о таблицах, построенных на основе запроса к внешним базам данных |
| Range | Возвращает объект Range, представляющий диапазон |
| Rows | Возвращает либо одну строку, либо семейство строк |
| Scripts | Возвращает семейство Scripts, состоящее из объектов Script, инкапсулирующих в себе информацию об используемых скриптах, когда лист сохраняется как Web-страница |
| ScrollArea | Задает диапазон, в котором разрешена прокрутка |
| Shapes | Возвращает семейство Shapes, состоящее из объектов Shape, инкапсулирующих в себе информацию о расположенных на листе фигурах |
| SmartTags | Возвращает семейство SmartTags, состоящее из объектов SmartTag, инкапсулирующих в себе информацию о смарт-тегах |
| StandardHeight | Возвращает стандартную высоту ячеек |
| StandardWidth | Возвращает стандартную ширину ячеек |
| Tab | Возвращает объект Tab, инкапсулирующий в себе информацию о теге листа |
| Type | Определяет тип листа. Допустимыми значениями могут быть следующие постоянные xlSheetType: xlChart, xlDialogSheet, xlExcel4IntlMacroSheet, xlExcel4MacroSheet И xlWorksheet |
| UsedRange | Возвращает объект Range, который содержит данные |
| VPageBreaks | Возвращает семейство VPageBreaks, состоящее из объектов VPageBreak, инкапсулирующих в себе информацию о вертикальных разрывах страницы |
| Visible | Управляет видимостью листа. Допустимые значения: True (рабочий лист видим на экране), False (не видим, т. е. скрыт, но его можно отобразить на экране командой Формат ► Лист ► Отобразить ), xlVeryHidden (скрыт, и его можно отобразить на экране только программно) |
|
|
|
Дата добавления: 2019-02-12; просмотров: 175; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!