Excel VBA вызывает сабвуфер из другого сабвуфера с несколькими входами, выходами разных размеров
Я хотел бы вызвать подпункт из другого подпункта внутри того же модуля. Первая подпрограмма была бы моим основным кодом, и там я бы назвал вторую подпрограмму. Вторая подпрограмма получает несколько входных данных в виде целых, двойных, двойных массивов и двойных матриц. Размер массивов и матриц известен и сохраняется в целочисленной переменной. Сабвуфер также возвращает несколько выходов. Итак, я хотел бы сделать что-то вроде этого.
sub Main()
Nc As integer
Dim kij(1 To Nc, 1 To Nc), xi(1 to Nc), a1 As Double
'I assign values to my variables from the excelsheet e.g. Nc=Cells(1,1) etc.
CalculateA(Nc,kij, xi, a1, a)
Cells(5,5)=a
end sub
sub CalculateA(Nc as integer,kij as matrix double, xi as array double, a as Double)
a=0
For i=1 To Nc
For j=1 To Nc
a = a + kij(i,j)*x(i)*x(j)
Next j
Next i
a = a*a1
end sub
Как он узнает, какой саб является основным сабом, где он начинает работать. Могу ли я поместить вторичную подпрограмму сверху, а код как-то начинается с нижней подпрограммы?