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

[viter.alex]

Как обычно. Сразу после объявления присвоить нужное значение. К сожалению, конструкция

Dim a = 5 as Integer

в VBA не проходит.

[tae1980]

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

Как обычно. Сразу после объявления присвоить нужное значение.

Конструкция такого вида, когда переменные объявляются внутри модуля, а не макроса, приводит к ошибке на команде Set: "Invalid outside procedure"

Public Уч_Метод_в As Integer
Public Уч_Метод_см As Integer
Set Уч_Метод_в = 5
Set Уч_Метод_см = 6
Sub tab1()
{...}
End Sub

[viter.alex]

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

Const FirstConst = 5
Const SecondConst = 6
Sub jkjk()
  Dim a As Integer, b As Integer
  a = FirstConst: b = SecondConst
  MsgBox "a=" & a & ChrW(9) & "b=" & b
End Sub

[tae1980]

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

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

Спасибо, это то что нужно. :) Как раз именно константы в большей степени и нужны.

[viter.alex]

Вот что значит не верно поставленный вопрос. Сразу бы объяснил, что тебе нужны именованые значения, которые можно везде использовать, а так, наплодили сообщений…
Кстати, константа тоже может быть Public или Private

[tae1980]

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

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

В первом письме по сабжу вроде писал, да и не в курсе я был какие возможности предоставляет для этих целей VBA.

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

а так, наплодили сообщений…

Флейм тоже полезен. :))

[SaLoKiN]

АПну тему, дабы новую не создавать...
возможно ли создание глобального(в пределах модуля) массива?
массив а загружается в SUB, а хочется использовать его в функциях, без передачи параметров. такое возможно?

Sub ЗатратыСвой()
Dim Reys As Integer
Dim Razmer As Integer

With Sheets("отчет")
    iLastRow = .Range("A" & .Rows.Count).End(xlUp).Row 
    a = .Range(.Cells(4, 1), .Cells(iLastRow, 32)) 
End With

UPD
решено!
достаточно Dim a перед всеми процедурами,а потом в SUB просто загрузить как было и все!