作者cilo (兵)
看板Visual_Basic
标题[VBA ] 请问VBA可以引用函数到回圈中吗?
时间Sat Sep 16 19:57:54 2006
各位板上的高手~~
我想请问一下~~
在VBA中可以引用函数到回圈中吗?
例如:(这我从我的程式终截录出来的一段)
Public Sub a()
For i = 1 To path
sT = simulation_stock(s, r, sigma, t)
c_payoff = Application.Max(sT - k, 0)
p_payoff = Application.Max(k - sT, 0)
sum_c = sum_c + c_payoff
sum_p = sum_p + p_payoff
Next i
End Sub
Public Function simulation_stock(s As Double, r As Double, sigma As Double,
t As Double) As Double
Dim j As Integer
Dim a, a1, sT As Double
a1 = 0
For j = 1 To 12
a1 = a1 + Rnd
Next j
a = a1 - 6
sT = s * Exp((r - sigma ^ 2 / 2) * t + sigma * Sqr(t) * a)
simulation_stock = sT
End Function
为何VBA会给我错误的讯息(如下)~~
编译错误:
ByRef 引数型态不符
是不是因为VBA不能够将函数引用到回圈中呢?
麻烦各位高手帮个忙!!
谢谢!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.139.220.180
1F：推 youngswallow:Max是涵数吗?有放在模组里吗?为什麽要加Application? 09/16 20:52
2F：推 silence2279:要用函数的话改成Application.WorksheetFunction.Max 09/16 21:29
3F：推 cilo:Application是用来引用excel里面内建的函数 09/16 22:05