End Sub. Объектные переменные

Объектные переменные

End Sub

'****************************

Задание объектной переменной

Пример: Dim Range1 As Object

Set Range1 = Worksheets(1).Range(“A1”)

Set – ключевое слово для присваивания значения объектной переменной;

Range1 – имя переменной:

= оператор присваивания;

Worksheets (1). Range (“A1”) - объект, присваиваемый переменной.

Объектные переменные общего типа

Пример:

Sub UsingObjectVariable()

Dim num As Long

num = 100000

Dim Range1 As Object

Set Range1 = Worksheets(1).Range("A1")

Range1.Value = num

MsgBox Range1.Value

Переменная Range1 равна диапазону Worksheets(1).Range("A1")

Дата добавления: 2014-01-07; Просмотров: 251; Нарушение авторских прав?; Мы поможем в написании вашей работы!