Факультет Математики и Информатики ГрГУ: Строковые ссылки в стиле А1 или имена диапазонов

Вход

Главная страница >> Учебный процесс >> Конспекты >> MS Office. Руководство программиста по Visual Basic для MS Office 97 >> Объекты Microsoft Excel >> Строковые ссылки в стиле А1 или имена диапазонов

Сервер поддерживается
кафедрой информатики и вычислительной техники ГрГУ
тел. +375-(0)152-445-101
E-mail : kadan@grsu.grodno.by

[Назад] [Содержание ] [Вперед]

Строковые ссылки в стиле А1 или имена диапазонов

Числовые индексы строк и колонок
Свойство Offset
Свойства CurrentRegion и UsedRange
Организация циклов для перебора ячеек диапазона
Применение свойства Address для отладки кода, работающего с объектом Range

Строковые ссылки в стиле А1 или имена диапазонов

Самый распространенный способ получить объект Range ? сделать ссылку в стиле А1 или по имени диапазона, как показано в таблице:

Чтобы:

Напишите:

Изменить значение в ячейке А1на листе Sheet1

Worksheets("Sheet1").Range( "А1") .Value = 3

Установить формулу для ячейки Bl на активном листе

Range("B1") .Formula = "=5-10*RAND()"

Присвоить значение всем ячейкам диапазона С1:ЕЗ на активном листе

Range("C1:E3").Value = 6

Очистить содержимое диапазона А1:ЕЗ на активном листе

Range("A1", "E3").ClearContents

Установить полужирное начертание шрифта для диапазона myRange (имя на уровне книги)

Range("myRange"). Font. Bold = True

Присвоить значение всем ячейкам диапазона yourRange (имя на уровне листа)

Range( "Sheetl!yourRange"). Value = 3

Присвоить объектной переменной ссылку на диапазон

Set objRange = Range( "myRange")

Помните, что выражения типа Range( "С1 : Е3" ) . Value = 6 подразумевают обращение к свойству Range активного листа. Если Вы попытаетесь выполнить это выражение в тот момент, когда активен лист диаграммы, произойдет ошибка периода выполнения (с кодом 1004).

Еще одна причина ошибок ? использование свойства Range в качестве аргумента другого метода без полного описания объекта Worksheet, к которому оно относится. В следующем примере, который должен был бы сортировать диапазон ячеек на листе Sheet1, тоже возникает ошибка периода выполнения 1004:

Sub SortRange()
Worksheets( "Sheet1 ").Range("A1:B10") .Sort
key1 :=Range("A1" ), order1 :=xlDescending
End Sub

Такую ошибку обнаружить труднее, поскольку строка, из которой вызывается метод Sort, сама по себе корректна. Ошибка возникает во второй строке, где указан аргумент key1. Этот код будет работать правильно, если активным листом является Sheet1, но приведет к ошибке при обращении к нему из другого листа или модуля. Во избежание подобных ошибок используйте при задании аргумента свойство Worksheets:

Sub SortRange()
Worksheets("Sheet1").Range("A1 :B10").Sort
key1 : Worksheets ("Sheet1") .Range("A1"), order1 :=xlDescending
End Sub

[Назад] [Содержание ] [Вперед]

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997