Возврат массива в родительскую подпрограмму из вызванной функции - PullRequest
Новая
       34

Возврат массива в родительскую подпрограмму из вызванной функции

0 голосов
/ 17 марта 2020

Все,

У меня проблема с передачей двумерного массива из вызываемой функции обратно в подпрограмму, которая ее вызвала.

EX: 

Sub Rotate_Stiffness_3D()
'Setting Things Up
Dim Theta_p As Double
Dim Theta_q As Double
Dim Theta_r As Double
Dim Tep(6, 6) As Double
Dim Teq(6, 6) As Double
Dim Ter(6, 6) As Double

Theta_p = Sheets("Transformations").Cells(2, 3)
Theta_q = Sheets("Transformations").Cells(3, 3)
Theta_r = Sheets("Transformations").Cells(4, 3)
Tep = Get_Tep (Theta_p)
End Sub


Function Get_Tep(Theta_p As Double) As Variant
'Setting things Up
Dim cp As Double
Dim sp As Double
Dim t(6, 6) As Double

cp = Cos(Theta_p)
sp = Sin(Theta_p)

t(1, 1) = 1
t(1, 2) = 0  'This continues for a while
t(6, 5) = sp
t(6, 6) = cp
Return t
End Function

Однако я постоянно получаю ошибки компилятора в строках кода Return t и Tep = Get_Tep (Theta_p). Я не уверен, что я делаю неправильно ...

...