End Sub. Использование переменных

End Sub

Использование переменных

Теперь мы посмотрим, как это сделать в программе. В процедуре ЦелаяПеременная переменная Integer применяется для задания свойства Value объекта Range.

Sub ЗадатьПеременную()

Dim Num1 As Integer

Num1 = 5

Worksheets(1).Range("A1").Value = Num1

Worksheets(1).Select

В третьей строке переменной Numl присваивается значение 5, которое сохраняется до завершения программы. В четвертой строке мы приравниваем свойство Value ячейки A1 первого рабочего листа переменной Num1. В программе ПрисвоитьЗначение приведен обратный пример — переменной Num1 присваивается значение из диапазона.

Sub ПрисвоитьЗначение()

Dim Num1 As Integer

Num1 = Worksheets(1).Range("A1").Value

MsgBox Num1

Если Вы запустите эту программу в той же рабочей книге, что и ЦелаяПеременная, значение Num1 будет равно 5. В четвертой строке программы переменная использована для вывода значения в информационном окне.

Таким образом, программа ПрисвоитьЗначение отображает в окне значение свойства Value диапазона A1. Этого же результата можно добиться и не используя переменную, как продемонстрировано в следующем примере.

Sub БезПеременной()

MsgBox Worksheets(1).Range("А1").Value