Коллекция Worksheets представляет все рабочие листы рабочей книги.
MsgBox Worksheets.Count
End Sub
Sub ИмяВторогоЛиста()
MsgBox ActiveWorkbook.Worksheets.Item(2).Name
End Sub
Основные методы:
Метод |
Описание |
ADD |
добавить новый лист в книгу |
Copy |
Копировать лист |
Delete |
Удалить лист |
Move |
Переместить лист |
Printout |
Печать листа |
PrintPreview |
Предварительный просмотр |
Объект Worksheet
В иерархии MS Excel объект worksheet идет сразу после объекта workbook и представляет собой рабочий лист. Объект worksheet возвращается либо как элемент семейства worksheets, либо как элемент семейства sheets одноименным свойством объекта workbook, либо как активный рабочий лист — свойством ActiveSheet.
Свойство |
Описание |
Cells |
Одна ячейка, семейство ячеек |
Columns |
Столбец, семейство столбцов |
Rows |
Строка, семейство строк |
Range |
Диапазон ячеек |
Name |
Имя рабочего листа |
StandartHeight |
Стандартная высота ячейки |
StandartWidth |
Стандартная ширина ячейки |
Visible |
Видимость листа. Допустимые значения: True (рабочий лист видим на экране), False (не видим, т.е. скрыт но его можно отобразить на экране командой Формат-Лист - Отобразить) |
Sub ИмяЛиста2()
х = ActiveSheet.Name
MsgBox x
End Sub
Методы объекта Worksheet
Метод |
Описание |
Activate |
Активизирует указанный рабочий лист |
Calculate |
Повторно вычисляет данные на рабочем листе |
CheckSpelling |
Проверяет правописание в ячейках, примечаниях, заголовке и объектах, расположенных на рабочем листе |
Copy |
Копирует лист в другое местоположение той же книги |
Delete |
Удаляет лист |
Move |
Перемещает лист |
Paste |
Вставляет данные из буфера обмена на рабочий лист |
Printout |
Печатает содержимое рабочего листа |
PrintPreview |
Осуществляет предварительный просмотр |
Protect |
Устанавливает защиту на рабочий лист |
SaveAs |
Сохраняет измененную страницу в отдельный файл |
Select |
Выбирает указанный рабочий лист |
setBackgroundPicture |
Устанавливает фоновый рисунок для рабочего листа |
Unprotect |
Снимает защиту с рабочего листа листа |
Sub ВставкаИзБуфера()
ActiveSheet.Paste
End Sub