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

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

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

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

Объект 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-ю.

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

Count	Возвращает число ячеек в диапазоне. Integer; доступно только для чтения. NumOfCells = Worksheet(1).UsedRange.Count
Dependents	Возвращает диапазон, содержащий все зависимые ячейки выделенного диапазона, то есть ячейки, ссылающиеся на него в формулах. Объект Range; доступно только для чтения. Dim Диапазон1 As Range Set Диапазон1 = Worksheets(l).Range("A1").Dependents MsgBox Диапазон1.Address
Name	Имя диапазона. String; доступно для чтения/записи. Worksheets(1).Range("A1").Name = "Первая_ячейка"
Value	Значение, содержащееся в диапазоне. Если он состоит из нескольких ячеек, свойство Value содержит массив значений. Boolean, Byte, Currency, Date, Double, Integer, Long, Single или String; доступно для чтения/записи. Worksheets(1).Range("Первая_ячейка").Value = 1
Text	Значение ячейки, представленное в виде текста. Например, свойство Text ячейки в денежном формате содержит строку "5,00р.", а свойство Value — число 5. Если диапазон состоит из нескольких ячеек, свойство Text содержит массив строк. String; доступно только для чтения.
Formula	Строка с формулой, содержащейся в диапазоне, включая знак равен­ства. Если диапазон состоит из нескольких ячеек, свойство Formula содержит массив формул. String; доступно для чтения/записи. Worksheets(1).Range("А1").Formula = "= $А$4 + $А$10"

Методы объекта Range

Calculate	Пересчитывает все формулы диапазона. Аргументов нет. Worksheets(1).Range("A1:F20").Calculate
ClearContents	Удаляет из диапазона все значения и формулы, но оставляет форматирование. Аргументов нет. Worksheets(1).Range("A1:F20").ClearContents
Copy	Копирует содержимое диапазона в другой диапазон или в буфер обмена. Аргумент: destination    Диапазон для копирования содержимого исходного диапазона (если этот аргумент отсутствует, содержимое копируется в буфер обмена) Worksheets(1).Range("A1").Copy