Нахождение диапазона, сдвинутого относительно
Данного на указанное число строк и столбцов
Свойство O ffset объекта Range возвращает объект Range, который сдвинут по отношению к данному на указанное число строк и столбцов.
Offset(RowOffset, ColumnOffset)
Здесь:
r RowOffset t — необязательный параметр, указывающий сдвиг по строкам;
r olumnOffset — необязательный параметр, указывающий сдвиг по столбцам.
В следующем коде в активную ячейку, например, А1, вводится значение 3, в ячейку, сдвинутую от нее на один столбец (в данном случае В1), вводится значение 4, а в ячейку, сдвинутую еще на один столбец (в данном случае С1), вводится формула, находящая сумму содержимого двух первых ячеек.
ActiveCell. Value = 3
ActiveCell.Offset(0, 1).Value = 4
ActiveCell.Offset(0, 2).FormulaRlCl = "=R[0]C[-2]+R[0]C[-1]"
Задание угла, под которым
Выводится текст в диапазоне
Свойство Orientation объекта Range устанавливает угол, под которым выводится текст в диапазоне. Допустимыми значениями являются либо угол поворота текста в градусах от -90° до 90°, либо одна из следующих постоянных:
r xlDownward — выравнивание по левому краю сверху вниз, соответствует углу -90°;
r xlHorizontal — выравнивание по горизонтали, соответствует нулевому углу;
r xlUpward — выравнивание по правому краю снизу вверх, соответствует углу 90°;
r xlVertical — выравнивание по вертикали, нет соответствия в градусах.
Например, в следующем коде в ячейке А1 текст выводится под углом 45°, а в ячейке В1 — под углом —45°, а в ячейке С1 — вертикально (рис. 5.5).
|
|
|
Range("A1:C1").Font.Size = 16
Range("Al").Orientation = 45
Range("Al").Value = "Вверх"
Range("Bl").Orientation = -45
Range("Bl").Value = "Вниз"
Range("CI").Value = "Стоя"
Range("CI").Orientation = xlVertical
Рис. 5.5. Задание угла вывода текста
Переопределение размеров диапазона
Свойство Resize объекта Range возвращает диапазон с измененными размерами.
Resize(RowSize, ColumnSize)
Здесь:
r RowSize — необязательный параметр, указывающий новое число строк;
r Coiumnsize — необязательный параметр, указывающий новое число столбцов.
Предположим, что на рабочем листе имеется таблица с левым верхним углом, расположенным в ячейке А1, причем первая строка таблицы является заголовком. Тогда следующие инструкции создают красную заливку для заголовка таблицы и желтую — для ее тела.
Dim tbl As Range
Set tbl = Range("A1").CurrentRegion
Set tbl = tbl.Resize(1, tbl.Columns.Count)
tbl.Interior.Color = RGB(255, 0, 0)
Set tbl = Range("A1"),CurrentRegion
Set tbl = tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count)
tbl.Interior.Color = RGB(255, 255, 0)
Методы объекта Range
Объект Range обладает большой коллекцией методов, предоставляющих в распоряжение разработчика возможность программировать целый спектр действий от копирования диапазона в буфер обмена до нахождения корня нелинейного уравнения. Перечислим основные методы этого объекта:
|
|
|
| Activate | AddComment | AutoFill |
| AutoFit | BorderAround | Clear |
| ClearComments | ClearComments | ClearContents |
| ClearFormats | ClearNotes | Copy |
| CopyPicture | Cut | DataSeries |
| Delete | FillDown | FillLeft |
| FillRight | FillUp | Find |
| FindNext | FindPrevious | FunctionWizard |
| GoalSeek | Insert | PasteSpecial |
| Replace | Select | Show |
Активизация и выбор диапазона
Метод Activate объекта Range активизирует диапазон, а метод Select выбирает диапазон, т. е. возвращает объект Selection. Например, в следующем коде сначала активизируется ячейка А2, затем в активную ячейку вводится число 1, после чего выбирается диапазон АЗ:А4и в выбранный диапазон вводится число 3.
Range("А2").Activate
ActiveCell.Value = 1
Range("A3:A4").Select
Selection.Value = 3
Дата добавления: 2019-02-12; просмотров: 166; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!