Объект Range

Методы объекта Worksheet и семейства Worksheets

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

Объект Worksheet

Объект Worksheet содержится в объекте Workbook. Этот объект представляет рабочий лист Excel — мощное средство для ввода и изменения данных. Рабочие листы содержат около 400 встроенных функций, позволяющих в мгновение ока про­изводить сложные вычисления. Табличная структура листов делает их идеальным средством для хранения и обобщения данных небольшого объема.

Name	Имя рабочего листа. String; доступно для чтения/записи. Worksheets(1).Name = "Мой рабочий лист"
Count	Возвращает число рабочих листов в книге. Long; доступно только для чтения. КолЛистов = ActiveWorkbook.Worksheets.Count
Index	Возвращает номер рабочего листа в семействе. Variant; доступно только для чтения. ActiveSheet.Name = "Лист" & ActiveSheet.Index
Columns (Rows)	Возвращает семейство всех столбцов (строк) рабочего листа или конкретный столбец (строку), если указан его порядковый номер. В следующем примере на листе1 удаляется 3-я строка: Worksheets("Лист1").Rows(3).Delete

Activate	Активизирует рабочий лист. Аргументов нет. Worksheets("Moй рабочий лист").Activate
Select	Выбирает указанный рабочий лист(листы): Worksheets("Moй лист").Select Sheets(Array("Лист1", "Лист2")).Select
Add	Добавляет лист в рабочую книгу, при этом он становится активным. Синтаксис: Add(Before, After, Count, Type) Аргументы: q Before указывает номер листа, перед которым вставляется новый лист. Variant q After указывает номер листа, после которого вставляется новый лист. Variant q Count указывает количество вставляемых листов. Variant q Type указывает тип вставляемого листа. По умолчанию – рабочий лист (xlWorksheet) Если оба аргумента Before и After опущены, то новый лист вставляется перед активным листом. ActiveWorkbook.Sheets.Add _ Before:=Worksheets(Worksheets.Count)
Delete	Удаляет рабочий лист из книги. Аргументов нет. Worksheets("Moй рабочий лист").Delete
Copy	Копирование рабочего листа. Синтаксис: Copy (Before, After) Аргументы: q Before указывает номер листа, перед которым вставляется новый лист q After указываетномер листа, после которого вставляется новый лист Sheets("Лист1").Copy _ After:=Workbooks("ИиЭ.xls").Sheets(1)
Calculate	Пересчитывает все формулы на рабочем листе. Аргументов нет. Worksheets(1).Calculate

Объект Range входит в состав объекта Worksheet и представляет собой диапазон [11] ячеек рабочего листа, в которых, собственно, и хранятся табличные данные. Но ячейки, представляемые объектом Range, – не просто контейнеры для хранения информации. В них можно вставлять формулы, встроенные функции Excel и функции VBA, с помощью которых, помимо расчетов, осуществляется обмен информацией с другими ячейками, расположенными на этом же листе, на другом листе и даже в другой рабочей книге.

До сих пор для задания ячейки мы использовали свойство Range (например, Range("С1").Value = 1). Однако, при написании программы, НАМНОГО ПРОЩЕ И УДОБНЕЕ воспользоваться альтернативным свойством Cells [12]. Тогда предыдущая команда запишется следующим образом:

Cells(1, 3).Value = 1

где 1 – это индекс строки, а 3 – это индекс столбца, на пересечении которых находится ячейка. Данная конструкция особенно удобна в случае, когда индекс строки и/или индекс столбца – это переменные:

i = 1

j = 3

Cells(i, j).Value = 1

Аналогично задается диапазон ячеек. Следующие две команды задают границы для одного и того же диапазона A1:F4:

Range("A1:F4").Borders.LineStyle = xlThick

Range(Cells(1, 1), Cells(4, 6)).Borders.LineStyle = xlThick

Команда:

Range(Rows(3), Rows(5)).Delete удаляет строки с 3-й по 5-ю.