Sub Открыто1() Worksheets(“Лист4”).Visible=True

End Sub

UsedRange – возвращает диапазон, то есть объект Range, содержащий данные.

Пример:

Worksheets(1).UsedRange.Clear ‘Очищается диапазон первого рабочего листа с данными

5.4.4.2.2. Методы

Метод Activate позволяет активизировать рабочий лист.

С помощью метода Evaluate выражения преобразуются в объекты или в значения.

Пример:

Sub Ввод_формул()

Dim Значение As Single Dim Fx As String

Ячейка InputBox(“Введите имя ячейки”) ‘Ввод адреса ячейки в диалоговом окне ЗначениеEvaluate(Ячейка)

Value ‘Считывание значения из ячейки

MsgBox Cstr(Ячейка)&”=”&CSng(Значение) ‘Вывод значения в диалоговое окно Fx=InputBox(“Введите формулу (функцию)”)

‘Ввод функции в диалоговом окне ЗначениеEvaluate(Fx) ‘Вычисление значения

функции

MsgBox CStr (Ячейка)&”=”&CSng(Значение) ‘Вывод значения в диалоговом окне

End Sub

5.4.4.3.Объект Range

Виерархии MS Excel объект Range (диапазон) идет сразу после объекта Worksheet и является одним из ключевых объектов VBA. Он не входит в состав никакого семейства объектов.

Объект Range описывает диапазон ячеек рабочего листа. При

работе с ним имеются три способа записи ссылок (табл. 5.14) на

249

ячейки рабочего листа: относительная адресация (начало координат, задающее нумерацию строк и столбцов, связывается с объектом, вызвавшим Range), абсолютная и смешанная адресация.

Записанный в таком виде адрес ячейки рабочего листа является лишь частью полного адреса, который в общем случае включает имя рабочего листа и имя файла рабочей книги. При задании полного адреса за именем листа следует знак «!», а имя файла рабочей книги заключается в квадратные скобки.

Примеры:

A1 – относительная ссылка на ячейку A1 активного рабочего листа. Лист2!A1 – относительная ссылка на ячейку A1 рабочего листа Лист2 активной книги.

[ВсепроВсе.xls]Лист2!A1 – относительная ссылка на ячейку A1 рабочего листа Лист2 книги ВсепроВсе.xls текущего рабочего каталога.

Если в диапазоне указываются только имена столбцов или строк, то объект Range задает диапазон, состоящий из указанных столбцов или строк.

Примеры:

Range(“A:C”) – задает диапазон столбцов A, B, C.

250

Range(“2:4”) – задает диапазон строк 2, 3, 4.

Так как ячейка является частным случаем диапазона, то объект Range позволяет также работать и с ней. Альтернативным способом работы с ячейкой является объект Cells (ячейки).

Пример:

Range(“A2”) или Cells(1,2) – ячейка A2 описывается как объект. В свою очередь объект Cells, вкладываясь в Range, также позволяет записывать диапазон в альтернативном виде:

Range(“A2:C3”) или Range(Cells(1,2),Cells(3,3)).

5.4.4.3.1. Свойства

Свойство Formula позволяет установить формулу в ячейке. Формула задается в виде строки.

FormulaArray – устанавливает формулу массива ячеек. Формула задается в виде строки. В качестве ссылок на ячейки используется стиль A1. Формула массива – это формула, которая в качестве исходных данных использует диапазон ячеек и возвращает одно или несколько значений.

Пример:

Sub Prima1()

With Worksheets(“Лист1”) For i = 1 To 3

For j = 1 To 3

Cells(i,j) = Int(Rnd(i*j)*100) Next j

Next i

Range(“D1:F3”).FormulaArray=”=MINVERSE(A1:C3)”

End With End Sub

FormulaR1C1 – устанавливает формулу в ячейке. Формула задается в строковом виде стилем ссылок R1C1.

Пример:

Sub Prima1()

With Worksheets(“Лист1”) For i = 1 To 3

For j = 1 To 3

Cells(i,j) = Int(Rnd(i*j)*100) Next j

251

Next i

Range(“D1:F3”).FormulaR1C1=”=MINVERSE(R1C1:R3C3)”

End With End Sub

Свойство HasArray возвращает значение True, если указанная ячейка является частью массива. Массивом на рабочем листе называется именованный диапазон ячеек.

Свойство HasFormula возвращает значение True, если в указанной ячейке содержится формула.

Примеры:

MsgBox Worksheets(1).Range(“A2”).HasArray – выво-

димое значение True или False

MsgBox Worksheets(1).Range(“A3”).HasFormula – вы-

водимое значение True или False

Свойство Text возвращает содержимое ячейки в виде строки. Используется только для чтения.

Пример:

MsgBox Worksheets(1).Range(“A2”).Text

Свойство Value возвращает значение из ячейки или устанавливает значение в ячейку (в ячейки).

Примеры:

x=Range(“C1”).Value – значение из ячейки C1 присваивается переменной x

Range(“A1:B4”).Value=12 – в диапазон ячеек A1:B4 устанав-

ливается число 12

Инструкция With используется для указания текущего объекта. Внутри ее можно указывать, начиная с точки, только свойства и методы при обращении к текущему объекту.

Синтаксис:

With <объект>

.<свойства и методы> End With

Пример:

Sub qwe()

Dim a As Single

Dim b As Single

With Worksheets(“Лист1”) a=.Range(“A1”).Value

252