標題: [發問] 這問陣列的相加是否有其它的寫法有更快的執行速度 [打印本頁]

---

作者: kasl    時間: 2014-3-2 15:53     標題: 這問陣列的相加是否有其它的寫法有更快的執行速度

Function Cal_Avg_xDay(Date_I, xDay) As Double   ' 計數月線/季線
ReDim xDay_Sum(xDay)
For j = 1 To xDay
   xDay_Sum(j) = AR(3)(Date_I - j + 1, BT_Stock_I)
Next
Cal_Avg_xDay = WorksheetFunction.Round(WorksheetFunction.Average(xDay_Sum), 2)
End Function

我寫了一個 function, 用來計算股價的月線/季線。傳入值為當日日期的index，xDay為20or60。
請問有其它較簡潔的寫法以及更快的執行速度嗎，謝謝。

---

作者: sunnyso    時間: 2014-3-3 09:26

回復 1# kasl

不要用worksheetfunction 會更快

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)