Глобальные переменные

[tae1980]

В макросах я часто использую ряд одинаковых переменных, иногда приходиться проводить одни и те же объявления. Мне бы хотелось задать их значение один раз так что бы они были доступны для всех макросов, скажем запуске книги. Можно даже в виде констант.

Наивный вопрос: как это сделать?

[SIV84]

Попробуйте к примеру так:

Public i As Integer

[tae1980]

Сообщение от SIV84

Попробуйте к примеру так:

Public i As Integer

А где это нужно делать?

[SIV84]

Когда объявляете переменную

Например:

Public ksbaza As Integer
Public ksusf As Integer
Public nn As Integer
Dim i As Integer

Private Sub UserForm_Initialize()
Do Until Workbooks("Áàçà").Sheets("Áàçà").Ce lls(i, 1) = ""
ksbaza = i
i = i + 1
Loop
i = 1
Do Until Workbooks("Áàçà").Sheets("Ó÷åò ñ÷åò-ôàêòóð").Cells(i, 2) = ""
ksusf = i
i = i + 1
Loop
End Sub


Sub l1()
With UserForm28
For i = 1 To .ksbaza

b = Workbooks("Áàçà").Sheets("Áàçà").Ce lls(i, 1)
If a = b Then
.Frame1.Controls("TextBox" & i1 + 1).Value = Workbooks("Áàçà").Sheets("Áàçà").Ce lls(i, 2)
.Frame1.Controls("TextBox" & i1 + 2).Value = Workbooks("Áàçà").Sheets("Áàçà").Ce lls(i, 8)
...
...
...
end sub

В данном случаи переменные ksbaza и ksusf являются глобальными т.е. работать с ними можно при работе других макросов

[tae1980]

Сообщение от SIV84

Когда объявляете переменную

Например:

Public ksbaza As Integer
Public ksusf As Integer
Public nn As Integer
Dim i As Integer

Private Sub UserForm_Initialize()
{...}
End Sub


Sub l1()
{...}
end sub

В данном случаи переменные ksbaza и ksusf являются глобальными т.е. работать с ними можно при работе других макросов

Как я понял эти переменные объявлены _вне_ тела какого либо макроса. Или я что-то не так понял?

[viter.alex]

Сообщение от tae1980

А где это нужно делать?

Если это сделать на уровне модуля, т.е. не внутри функции или процедуры, а в самом верху, то переменные объявленные как Public, будут видны и в других модулях этой книги. Если же это сделать внутри функции, или процедуры, то такие переменные будут видны только внутри того модуля, где эта процедура находится.

[SIV84]

немножко не правильно, я их объявлял при запуску работы формы (либо макроса)

можно опопробывать и следующий вариант:

К примеру в UserForme1 вы объявляете пепеменную a.

Попробуйте использовать ее в других формах или макросах следуюштм образом, к примеру

TextBox1.Value=UserForm1.a

[tae1980]

Сообщение от viter.alex

Если это сделать на уровне модуля, т.е. не внутри функции или процедуры, а в самом верху, то переменные объявленные как Public, будут видны и в других модулях этой книги. Если же это сделать внутри функции, или процедуры, то такие переменные будут видны только внутри того модуля, где эта процедура находится.

Очень интересно... Сразу вопросы:
1. Как обратиться к глобальной переменной из другой книги?
2. Как обратиться к глобальной переменной другого модуля?
3. При размещении глобальных переменных внутри макросов (читай для ограничения видимости переменной текущим модулем), как сделать так что бы этот макрос обязательно был выполнен первым в текущем модуле?

[viter.alex]

Сообщение от tae1980

Очень интересно... Сразу вопросы:
1. Как обратиться к глобальной переменной из другой книги?
2. Как обратиться к глобальной переменной другого модуля?
3. При размещении глобальных переменных внутри макросов (читай для ограничения видимости переменной текущим модулем), как сделать так что бы этот макрос обязательно был выполнен первым в текущем модуле?

Сразу ответы.

1. Записать в богом забытую ячейку и прочитать
2. Можно просто по имени. Можно для верности указать имя модуля, т.е. Module1.Myvar
3. Вызвать эту процедуру первой.

[tae1980]

Сообщение от SIV84

Когда объявляете переменную
Например:
Public ksbaza As Integer
Public ksusf As Integer
Public nn As Integer
Dim i As Integer

А как задать начальные значения для этих переменных?