2.6.1 Операция присваивания

При объявлении переменной происходит связывание имени переменной с областью памяти, в которой будет храниться ее значение. Однако это значение после объявления может оказаться произвольным. Для того чтобы присвоить переменной нужное значение, используется операция присваивания.

Назначает результат вычисления выражения переменной, константе или свойству объекта. Операция присваивания всегда включает знак равенства =.

Синтаксис:

Имя_Переменной = Выражение

где

Имя_Переменной – имя переменной (идентификатор);

Символ «=» – знак операции присваивания;

выражение – значение (число), комбинация переменных, констант,

функций, связанных знаками операций.

Работа операции присваивания.

Операция присваивания предписывает выполнить выражение, заданное в его правой части, и присвоить результат имени переменной, имя которой указано в левой части.

Пример 1.

x = 2

x = x + 2

(переменной х будет присвоено 4)

Для присваивания переменной ссылки на объект применяется инструкция Set.

В общем случае инструкция Set имеет следующий синтаксис:

Set objectvar = [New] objectexpression [Nothing]

где

New – ключевое слово, которое используется при создании нового экземпляра объекта;

Nothing – позволяет освободить все системные ресурсы и ресурсы памяти, выделенные для объекта, на который имелась ссылка (т.е. она удаляет объект из памяти).

Пример 2.

Dim A as Object

Set A = cmdOK

MsgBox А.Caption

Инструкция Set присваивает переменной А элемент управления Кнопка с именем cmdOK и далее выводит в окне надпись отображаемую на поверхности кнопки.

В VBA доступ к свойствам и методам объекта осуществляется через точку. Например ActiveSheet.Cells(1,1). Если нужно обратиться к нескольким свойствам одного объекта, то придется каждый раз писать имя этого объекта. Но есть способ этого избежать. Оператор With используется для указания обьекта, с которым мы будем работать. Это выглядит так:  With объект   операции с объектом End With

Рассмотрим пример. В нижеприведенном коде выводятся имя и свойство видимости объекта таблицы:  Sub Test()   MsgBox (Application.Worksheets.Item(1).Name)   MsgBox (Str(Application.Worksheets.Item(1).Visible)) End Sub

Используя With это можно сделать так:  Sub Test()   With Application    With .Worksheets     MsgBox (.Item(1).Name)     MsgBox (Str(.Item(1).Visible))    End With   End With End Sub

Используя With можно получить доступ и к структурам, определенным пользователем:  '----------- Описание структуры -------- Type Cars   Vendor As String   Model1 As String   Model2 As String End Type '----------- Использование -------- Sub Test()  Dim MyCars As Cars  With MyCars    .Vendor = "Ford"    .Model1 = "Fiesta"    .Model2 = "Focus"    MsgBox (.Vendor)  End With End Sub

26. Операторы в vba. Условный оператор: линейный (безальтернативный, альтернативный), блочный (безальтернативный, альтернативный). Структура, работа. Примеры.