 |
Объект Range: Метод Union и свойство Areas.
|
|
|
|
Метод Union используется для объединения двух и более объектов Range, заданных ссылками на непересекающиеся интервалы, в один объект Range.
Синтаксис Object. Union (arg1,arg2,...)
· object - всегда объект Application. Ссылка необязательна;
· arg1,arg2 - интервалы ячеек. Количество аргументов произвольно. Обязательно наличие хотя бы двух аргументов.
Например, оператор Union (Range("A1:C5"),Range("B10:D12")).Select выделяет несмежные интервалы A1:C5 и B10:D12.
Свойство Areas выполняет обратное действие, разделяя объединенные интервалы на несколько объектов Range.
Синтаксис Object.Areas(index)
· object - ссылка на объект Range, состоящий из нескольких интервалов;
· index - номер интервала в объекте. Аргумент необязателен.
| Примеры | ||
| Оператор | Комментарий | Результат |
| p= Union (Range("A1:C5"), Range("B10:D12")).Areas(2).Count | Если аргумент задан, то свойство Areasвозвращает интервал - объект Range, определенный индексом интервала | равен девяти, так как во втором интервале ровно 9 ячеек |
| p= Union (Range("A1:C5"), Range("B10:D12")).Areas.Count | Cвойство Areas без аргументов рассматривает каждый из несмежных интервалов как элемент коллекции объектов Range | равен двум, так как объект, определенный методом Union, состоит из двух областей - коллекции из двух элементов |
| p=Range("B10:D12").Areas.Count | равен единице, так как объект Rangeпредставляет один элемент коллекции |
Объект Range: Свойства Column, Row, Columns, Rows, CurrentRegion.
Свойства Column и Row (R/O Integer)
Свойства возвращают целое число, показывающее индекс первого столбца или первой строки соответственно для заданного объекта. Синтаксис свойств
object.Column
object Row
• object - обязательная ссылка на объект Range.
Например, запись Range("C5").Column возвращает число 3, а запись Range("C5").Row возвращает число 5.
|
|
|
Свойства Columns и Rows
Свойство Columns возвращает объект Range, представляющий колонку или коллекцию колонок в объекте, к которому это свойство было применено.
Синтаксис
Object.Columns(index)
• object - ссылка на объект. Указание необязательно, по умолчанию используется активный рабочий лист;
• index - индекс колонки в объекте.
Например, запись Columns(1) возвращает колонку A активного рабочего листа, а запись Range("C1:D5").Columns(1) возвращает колонку C заданного интервала, а именно, ячейки C1:C5.
Важно
• Если не указан индекс колонки, то возвращаются все колонки объекта в виде объекта Range.
• Индекс колонки можно указывать числом или буквой, при этом буква заключается в кавычки. Ссылки Columns(2) и Columns("B") указывают на одну и ту же колонку B.
Свойство Rows возвращает объект Range, представляющий строку или коллекцию строк в объекте, к которому это свойство было применено.
Синтаксис
Object.Rows(index)
• object - ссылка на объект. Указание необязательно, по умолчанию используется активный рабочий лист;
• index - индекс строки в объекте.
Важно
• Если не указан номер строки, то возвращаются все строки объекта в виде объекта Range.
Например, оператор nr=Selection.Rows(Selection.Rows.Count).Row позволяет получить номер последней строки в выделенном интервале ячеек.
Свойство CurrentRegion
Свойство возвращает текущий регион, то есть минимальную прямоугольную область, содержащую элементы из Rangeи окаймленную пустыми строками и столбцами или границами таблицы. Если Range представляет связную область, то текущий регион охватывает Range, для несвязной области он выделяет лишь некоторую его часть.
Объект Range: свойства, связанные с шириной и высотой ячейки.
| Свойства | Примеры и комментарии |
| ColumnWidth (R/W Variant) | Возвращает или изменяет ширину колонки в единицах, эквивалентных одному символу в стиле Обычный (Normal). Шрифт стиля по умолчанию Arial Cyr и размер шрифта 10. Range("A1").ColumnWidth=15 устанавливает ширину колонки A в 15 символов |
| Width (R/O Variant) | Возвращает ширину интервала ячеек в пунктах. Range("A1").Width возвращает значение 93.75, если ширина колонки 15 символов, шрифт Times New Roman, размер шрифта 12 пунктов (72 пункта равны 1 дюйму или приблизительно 2,54 см). Debug.Print Range("A1:C3").ColumnWidth распечатает значение 8.43, а оператор Debug.Print Range("A1:C3").Width распечатает значение 144, если для колонок установлена стандартная ширина, шрифт Arial Cyr и размер шрифта 10 |
| RowHeight (R/W Variant) | Возвращает или изменяет высоту строк интервала в пунктах. ActiveCell.RowHeight = 14 устанавливает высоту строки, в которой находится активная ячейка, в 14 пунктов |
| Height (R/O Variant) | Возвращает суммарную высоту интервала строк, зависящую от названия и размера шрифта. Если шрифт Arial Cyr и размер шрифта 10, то Debug.Print Range("A1").Height распечатает 12,75 и Debug.Print Range("A1:C3").Height распечатает 38,25 |
| WrapText (R/W Boolean) | Range("A1").WrapText=True Значение True разбивает текст ячейки на несколько строк, если ширина столбца недостаточна для размещения текста целиком |
|
|
|
Методы объекта Range.
Рассмотрим некоторые основные методы объекта Range.
Метод Activate
Метод Activate задает активную ячейку в выделенном диапазоне ячеек (для выделения ячейки следует использовать метод Select объекта Range). Например, если объект Range представляет диапазон ячеек А1:С5, то результатом выполнения приведенных ниже инструкций будет активизация ячейки С1:
Range("Al:C5").Select Выделяем ячейки А1:С5 Range("Cl").Activate Делаем активной ячейку С1
Метод ClearContents
Метод ClearContents очищает формулы и значения, содержащиеся в ячейках, представляемых объектом Range. Данный метод очищает только содержимое ячеек, сохраняя их форматирование.
Метод ClearFormats
Метод ClearFormats удаляет все форматирование ячеек, не воздействуя при этом на хранящиеся в них данные.
Метод Сору
Метод Сору позволяет скопировать содержимое ячеек в буфер обмена.
Метод Delete
Метод Delete удаляет ячейки, определяемые объектом Range. Синтаксис этого метода:
Expression.Delete(Shift)
Expression - Выражение, возвращающее объект Range
Shift - Необязательный параметр типа Variant. Этот параметр задает механизм сдвига ячеек в процессе замены удаленных ячеек. Его значение может равняться значению одной из двух констант: xiShiftToLeft или xlShiftUp. Если аргумент Shift отсутствует, то MS Excel определяет способ сдвига ячеек в зависимости от формы диапазона
|
|
|
Метод FillDown
Метод FillDown предназначен для распространения содержимого и форматирования ячейки (или ячеек) из верхней строки диапазона в остальные строки диапазона. Действия, выполняемые данным методом, аналогичны действиям, выполняемым с помощью интерфейса пользователя при распространении содержимого ячейки с использованием мыши.
Ниже представлен пример, который позволяет заполнить все ячейки диапазона С1:С5 содержимым ячейки С1:
Worksheets("Лист1").Range("Cl:C5").FillDown
Методы FillUp, FillLeft, FillRight
Методы FillUp, FillLeft, FillRight выполняют действия, аналогичные действиям, выполняемым методом FillDown. Отличие состоит в том, что метод FillUp копирует ячейки, содержащиеся в нижней строке диапазона, метод FillLeft копирует ячейки, содержащиеся в крайнем правом столбце диапазона, а метод FillRight – в крайнем левом столбце.
Метод Insert
Метод Insert позволяет вставить ячейку или диапазон ячеек в рабочий лист. При вставке другие ячейки сдвигаются одним из способов, который определяется аргументом Shift. Синтаксис метода Insert:
Expression.Insert(Shift)
Пример использования метода Insert:
Worksheets("Лист1").Range("Al:D15").Insert _ Shift:=xlShiftDown
Здесь выполняется добавление новых ячеек в диапазон ячеек A1:D15. При этом ячейки диапазона сдвигаются вниз.
Метод Merge
Метод Merge позволяет объединить несколько ячеек в одну. При этом в качестве объединяемых используются ячейки, определяемые объектом Range. Синтаксис этого метода:
Expression.Merge(Across)
Across - Необязательный параметр типа Variant. Если данный параметр имеет значение True, то ячейки в каждой строке диапазона объединяются как раздельные объединенные ячейки. В противном случае (False) все ячейки диапазона объединяются в одну ячейку
Метод Select
Метод Select позволяет выделить ячейки, определяемые объектом Range. Ниже в качестве примера приведена инструкция, реализующая выделение диапазона ячеек C1:F5:
Range("Cl:F5").Select
Метод UnMerge
Метод UnMerge разбивает объединенную ячейку на отдельные ячейки (чтобы узнать, является ли ячейка результатом объединения нескольких ячеек, используйте свойство MergeCells).
|
|
|
