|
| | |
|
Объект Worksheets
Объект Worksheets
Коллекция всех объектов Worksheet в указанной или активной рабочей книге. Каждый объект Worksheet представляет рабочий лист. Объект Worksheet - также член Sheets коллекция. Sheets коллекция содержит все листы в рабочей книге (и листы диаграммы и рабочие листы).
Методы объекта Worksheets
Метод |
Описание |
Add |
Создает новый рабочий лист, диаграмму, или лист макрокоманды. Новый рабочий лист становится активным листом.
Worksheets.Add(Before, After, Count, Type)
Параметры:
-
Before - Объект, который определяет лист, перед которым добавлен новый лист.
-
After - Объект, который определяет лист, после которого добавлен новый лист.
-
Count - Число листов, которые будут добавлены. Значение по умолчанию - 1.
-
Type - Определяет листовой тип. Может быть один из следующих XlSheetType константы: xlWorksheet, xlChart, xlExcel4MacroSheet, или xlExcel4IntlMacroSheet. Если Вы вставляете лист, основанный на существующем шаблоне, определите путь к шаблону. Значение по умолчанию - xlWorksheet.
Комментарии: Если Before и After оба опущены, новый лист вставляется перед активным листом. |
Copy |
Копирует лист в другое местоположение в рабочей книге.
Worksheets(1).Copy(Before, After)
Параметры:
-
Before - Лист, перед которым будет помещен скопированный лист.
-
After - Лист, после которого будет помещен скопированный лист.
Комментарии:
Вы не можете определить Before , если Вы определяете After и на оборот. Если Вы не определяете или Before , чем или After, Excel Microsoft создаст новую рабочую книгу, которая содержит скопированный лист.
Пример:
Этот пример копирует Sheet1, помещая копию после Sheet3.
Worksheets("Sheet1").Copy After:=Worksheets("Sheet3") |
Delete |
Удаляет объект.
Worksheets("Sheet1"). Delete |
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 , чтобы расширить текущий выбор, чтобы включать любые ранее выбранные объекты и указанный объект (выбор нескольких объектов). |
Свойства объекта 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) |
Parent |
Возвращает родительский объект для указанного объекта. Только для чтения |
Visible |
Определяет видимость объекта
Возможные варианты: Valse и True Worksheets(1).Visible = True |
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 & _ " разрывы страниц области печати " |
|
Категория: Общие материалы | Добавил: Админ (19.07.2009)
|
Просмотров: 9266
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
| |
| | |
|
|
Новое в Спр.VBА |
|
Внимание: Если вы не нашли необходимую Вам информацию
Вы можете оставить запрос на дополнение Справочника VBA в ФОРУМЕ
Обновления в
Справочнике VBA
|
|
|
|