|
So?
Option Explicit
Sub test()
Dim AE()
mybs AE, 1, 2, 3, 4, 5, 6
Range(Cells(1, 1), Cells(1 + UBound(AE), 1 + UBound(AE, 2))).Value = AE
End Sub
Function mybs(AE(), x, stock, exercise, time, interest, sigma)
ReDim AE(6, 1)
'dOne
AE(0, 0) = dOne(stock, exercise, time, interest, sigma)
AE(0, 1) = "dOne"
'dTwo
AE(1, 0) = dTwo(stock, exercise, time, interest, sigma)
AE(1, 1) = "dTwo"
'DeltaCall
AE(2, 0) = DeltaCall(stock, exercise, time, interest, sigma)
AE(2, 1) = "DeltaCall"
'normaldf
AE(3, 0) = normaldf(x)
AE(3, 1) = "normaldf"
'gamma
AE(4, 0) = Gamma(stock, exercise, time, interest, sigma)
AE(4, 1) = "Gamma"
'vega
AE(5, 0) = Vega(stock, exercise, time, interest, sigma)
AE(5, 1) = "Vega"
'theta
AE(6, 0) = Theta(stock, exercise, time, interest, sigma)
AE(6, 1) = "Theta"
mybs = AE
End Function
|