КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Свойства и методы Range
Смещение и свойство Offset Выше было отмечено, что при создании объектов Range нельзя пользоваться смещением – доступен только формат А1. Тем не менее, можно использовать смещение, чтобы переходить от одного объекта Range к другому, например от одной ячейки к другой, отстоящей от первой на определенном расстоянии. Достигается это благодаря свойству (или, можно сказать, методу) Offset объекта Range. Свойство Offset возвращает новый объект Range, отстоящий от прежнего на заданное расстояние. Синтаксис свойства Offset: Offset(RowOffset, ColumnOffset)RowOffset – смещение по строкам; ColumnOffset – смещение по столбцам. Приведем пример создания нового объекта, смещенного относительно исходного: Dim myRange As Range, myRangel As Range Set myRange = Range("A1:A4") Set myRangel = myRange.0ffset(2, 3) myRangel.SelectПриведем еще один пример, когда смещение используется при работе с ячейками. Заодно продемонстрируем ряд полезных функций, позволяющих проанализировать тип значения, хранящегося в ячейках таблицы: For Each currcell In Range("E1:E6"). Cells If Application.WorksheetFunctlon.IsText (currcell.Value) Then currcell.0ffset(0, 1).Formula = "Text" ElseIf Application.WorksheetFunction.IsNumber(currcell.Value) Then curlcell.0ffset(0, 1).Formula = "Number" ElseIf Application.WorksheetFunction.IsLogIcaKcurrcell.Value) Then currcell.0ffset(0, 1).Formula = "Logical" ElseIf Application.WorksheetFunction.IsError(currcell.Value) Then currcell.0ffset(0, 1).Formula = "Error" ElseIf currcell. Formula = "" Then currcell.0ffset(0, 1).Formula = "Пусто" End If Next currcellВ таб. 6.3.1 приведены основные свойства объекта Range. Таблица 6.3.1. Свойства объекта Range
Дата добавления: 2014-01-05; Просмотров: 290; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |