Пример 4. Пример 1 Workbooks(BookOne).Activate Worksheets(Sheet2).Activate Range(A1) = 5 Range(A2) =

Пример 3

Пример 2

Пример 1

Workbooks("BookOne").Activate Worksheets("Sheet2").Activate Range("A1") = 5 Range("A2") = "=A1+2" Range("A3:A4") = "=A1+A2"

Обратите внимание на три момента:

1. При вызове Range используется один параметр – ячейка или диапазон.

2. Цепочка вызовов начинается непосредственно с Range, по умолчанию это означает, что речь идет о свойстве Range активного листа. Это должен быть рабочий лист, иначе возникнет ошибка. Так что следовало писать, например

Worksheets("Sheet2").Range или ActiveSheet.Range.

3. Объекту Range присваиваются значения и формулы. По умолчанию в результате присваивания определяются свойства Value или Formula объекта Range. По-видимому, лучше писать подобные присваивания в таком виде:

4. Range("B1"). Value = 7Range("B2"). Formula = "=B1+2"

Этот пример демонстрирует относительность ссылок, задаваемых параметром Cell. Этот параметр задает ссылки, относительно своего начала.

Dim myRange As Range Set myRange = Range("C1:C4")myRange. Range("A1") = 7 myRange. Range("A2") = "=A1+2" myRange. Range("A3:A4") = "=A1+A2"

Вначале создается объект myRange, заданный диапазоном "С1:С4". Вызов myRange.Range("A1") создает новый объект из одной ячейки А1 объекта myRange. Такая ячейка у него есть, эта ссылка задает ячейку С1 в абсолютных адресах. Заметьте, что при попытке обратиться к ячейке, например В1, объекта myRange возникнет ошибка, так как наш объект имеет только четыре ячейки в первом столбце. Остается еще заметить, что если в левой части операторов присваивания А1 и А2 – это ссылки относительно объекта myRange, то в формулах правой части А1 и А2 привязаны к абсолютным адресам.

Рассмотрим теперь вызов Range с двумя параметрами:

Dim myRangel As Range Set myRangel = Range("E1", "E6") Debug. Print myRangel. Count myRangel.Range("А1") = 7 myRangel. Range("A2") = "=A1+2" myRangel. Range("A3:A6") = "=A1+A2"

Здесь в роли параметров метода Range выступают ячейки, первая из них определяет левый верхний, а вторая – правый нижний элемент диапазона объекта Range. Далее мы с этим объектом работаем так же, как и в предыдущем примере.

В качестве параметров Cell1 и Cell2 могут выступать не только ячейки, но и объекты Range, что и демонстрирует следующий пример. Возвращаемый объект Range в этом случае представляет объединение областей, охватывающее область первого и второго объектов.

Dim myRange2 As RangeSet myRange2 = Range(myRange, myRangel) Debug. Print myRange2. Count myRange2. Select

В предыдущем примере было показано, как можно построить объединение диапазонов, дающее в результате новый непрерывный диапазон, включающий области обоих объектов. Рассмотрим теперь, как построить "настоящее" объединение и пересечение диапазонов. В настоящем объединении могут быть несмежные диапазоны. Оно включает только те ячейки, которые принадлежат объединяемым объектам. Чтобы задать объединение или пересечение диапазонов, нужно вызвать Range с одним параметром. Этот параметр в данном случае представляет список элементов, разделенный знаком объединения "," (запятая) или знаком пересечения " " (пробел). Каждый элемент списка представляет диапазон, возможно, ячейку. Продемонстрируем это на примере.

Дата добавления: 2014-01-05