VBA worksheetfunction gamma_dist FOR..NEXT

Question

我的循環：

For n = 1 To 30000 Step 1 
    a = m * n 
    b = delta^a 
    c = f1^(a - 1) 
    d = WorksheetFunction.Exp(-f1 * delta) 
    e = WorksheetFunction.Gamma_Dist(f1, a, 1, 1) 
    konvolucia = (b/e) * c * d 
Next n 

在e正在顯示

運行error.'423' - 屬性或方法未找到

我可以問你問題在哪裏嗎？

Answer 1

隨着錯誤消息

屬性或方法未找到

告訴你，這個問題是不存在WorksheetFunction稱爲Exp。

如果您正在尋找定義爲exp功能：
Exp(n) =e調至n^次功率，其中e = 2.71828183…。

然後用d = Exp(-f1 * delta)代替。

---

旁註
Gamma_Dist等待一個Boolean作爲最後一個參數：

Gamma_Dist(Arg1 as Double, Arg2 as Double, Arg3 as Double, Arg4 as Boolean) 

所以，你應該用True或False，而不是作爲1最後一個參數。在VBA True中是-1和False是0因此不要使用1，即使0旁邊有任何內容轉換爲True時轉換爲布爾值。