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

[Катя]

Написала макрос, выдал ошибку, что procedure too long, решила разделить на процедурки, где объявить переменные, так чтобы они были глобальными и как сделать, чтобы в название процедуры не передавать параметры?

[uhm]

Перед процедурами, вне Sub.

[Nicky]

... и как сделать, чтобы в название процедуры не передавать параметры?

Обычно спрашивают, как передавать
Sub myProc()

[Viper]

а что это вообще такое: Передавать в НАЗВАНИЕ процедуры параметры?

[Катя]

а как сделать чтобы процедура1 инициализировала набор переменных, при этом процедура2 вызывает процедуру1(как это сделать?) и инициализированный набор переменных далее используется в процедуре 2?

[Nicky]

а как сделать чтобы процедура1 инициализировала набор переменных, при этом процедура2 вызывает процедуру1(как это сделать?) и инициализированный набор переменных далее используется в процедуре 2?

Код: Выделить всё

Dim a as Long, b as Long

Sub Proc1()
  a = 1
  b = 2
End Sub

Sub Proc2()
  Proc1
  MsgBox a + b
End Sub


[Avtopic]

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

[Lumen]

Ну хотя бы так:

Код: Выделить всё

Sub1 ()
Dim var1 as integer, var2 as string, var3 as long
var1=1
var2="Stroka"
var3=400000
...
call Sub2(var1, var3, var2)
...
end sub

Sub2(v1 as integer, v2 as long, v3 as string)
Dim a as single
a = v1+v2 + asc(v3)
end sub


[Катя]

Помогите, пожалуйста!!!

У меня объявляются глобальные (для модуля) переменные, включая массивы,
дальше идут 2 процедуры без списка агрументов. Процедуры со всеми аргументами работают нормально, кроме моих 3хмерных массивово, про них пишут, что subscript out of range. Как мне сделать, что бы массивы обрабатывались корректно. Приведу часть кода, чтобы было понятней.

Код: Выделить всё


Dim vnpp(1 To 8, 1 To 44, 1 To 5) As Double
Dim osk(1 To 8, 1 To 44, 1 To 5) As Double
Dim i As Integer
Dim j As Integer
Dim k As Integer

Private Sub CommandButton1_Click()
    schet
    vivod
End Sub

Private Sub schet()
With Application.Workbooks.Item("О11.xls")
    Worksheets("Общая таблица").Activate
    Cells(1, 1).Activate
    Set r1 = Range(ActiveCell.Address)
    r1.Select
   
    For i = 1 To 8
        For j = 1 To 44
            For k = 1 To 5
                vnpp(i, j, k) = 0
                osk(i, j, k) = 0
            Next k
        Next j
    Next i

...
End with
End sub

Private Sub vivod()
  With Application.Workbooks.Item("О11.xls")
Worksheets(list).Activate
Cells(8, 6).Activate
Set r1 = Range(ActiveCell.Address)
r1.Select
g = 1
  ActiveCell.Value = osk(g, kdv, 4) + osk(g + 1, kdv, 4)
  ActiveCell.Offset(0, 1).Activate

  ActiveCell.Value = vnpp(g, kdv, 5) + vnpp(g + 1, kdv, 5)
....
end with
end sub


Раньше все считалась в одной большой процедуре, которую я увеличивала по необходимости, теперь для компилятора исходная процедура стала слишком большой, вот я и разбила ее на подпроцедуры.

Заранее спасибо за помощь

[Viper]

Код: Выделить всё

g = 1
  ActiveCell.Value = osk(g, kdv, 4) + osk(g + 1, kdv, 4)
  ActiveCell.Offset(0, 1).Activate

  ActiveCell.Value = vnpp(g, kdv, 5) + vnpp(g + 1, kdv, 5)
....
end with
end sub


Единственным местом в котором может всплыть эта ошибка судя по приведенному коду, это строчки с использованием переменной kdv, какие она может принимать значения?