Формула с изменяемым именем листа

[fun_kok]

Как правильно расставить ", а то не работает, в чем ошибка???
Sheets("Группа " & t).Range("G" & (t + 2)).FormulaLocal = "=СУММПРОИЗВ((Календарь " & t & "!C4:Календарь " & t & "!C9=B" & (t + 2) & ")*Календарь " & t & "!K4:Календарь " & t & "!K9) - СУММПРОИЗВ((Календарь " & t & "!D4:Календарь " & t & "!D9=B" & (t + 2) & ")*Календарь " & t & "!K4:Календарь " & t & "!K9)"

[fun_kok]

Почему не работает данная макрофункция "ar_3_1 = Array(1, 2, 3)" если я помещаю ее в начале модуля. Если она находится в процедуре то все работает.
Выдает: Compile error: Invalid outside procedure.

[IgorGO]

потому что не включена в тело какой-либо процедуры.

[fun_kok]

А как мне тогда сделать глобальный массив констант, чтоб к нему был доступ из любой процедуры или функции текщего модуля???

[Казанский]

В Excel константы удобно записать на лист, потом скрыть его. В sub auto_open() прописать считывание с листа в глобальный массив или переменные.

[Казанский]

Чисто средствами VBA например так

Const AR_3_1_DATA = "1 2 3"

Dim ar_3_1() As Double

Sub auto_open()
Dim x$(), i&
x = Split(AR_3_1_DATA)
ReDim ar_3_1(0 To UBound(x))
For i = 0 To UBound(x)
  ar_3_1(i) = CDbl(x(i))
Next
End Sub

[fun_kok]

Сообщение от Казанский

Чисто средствами VBA например так

Const AR_3_1_DATA = "1 2 3"

Dim ar_3_1() As Double

Sub auto_open()
Dim x$(), i&
x = Split(AR_3_1_DATA)
ReDim ar_3_1(0 To UBound(x))
For i = 0 To UBound(x)
  ar_3_1(i) = CDbl(x(i))
Next
End Sub

т.е. как на СИ "a() = {1,2,3,4}" в VBA сделать не получится???? (по-простому)

[fun_kok]

Public ar_3_1() as integer
.....
i = Sheets("Константы").Cells(1, Columns.Count).End(xlToLeft).Column
redim ar_3_1(1 to i)
ar_3_1() = Sheets("Константы").Range(a1:"a"&i).Value

Так будет работать???

[Казанский]

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

т.е. как на СИ "a() = {1,2,3,4}" в VBA сделать не получится???? (по-простому)

Не получится.
В VBA Excel можно написать

Dim a()
a() = [{1,2,3,4}]

, но опять же только в процедуре. Массив будет типа Variant и 1-Based.

[Казанский]

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

Так будет работать???

Спросите у своего VBA