- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2012-9-19 00:30
| 只看該作者
請問如何用VBA算出tick 時間 開盤價 最高價 最低價 收盤價 成交量
謝謝
jerrystock 發表於 2012-9-18 20:41 
簡單用公式不就可以嗎
多少行 24216 =COUNT(A:A)
開盤價 7735 =B2
最高價 7769 =MAX(B:B)
最低價 7713 =MIN(B:B)
收盤價 7749 =INDEX(B:B,MATCH(9.99999999999999E+307,B:B))
成交量 33413 =SUM(C:C)- Sub test()
- Dim count, 開盤價, 最高價, 最低價, 收盤價, 成交量
- count = Application.WorksheetFunction.count(Range("A:A"))
- 開盤價 = [B2]
- 最高價 = Application.WorksheetFunction.Max(Range("B:B"))
- 最低價 = Application.WorksheetFunction.Min(Range("B:B"))
- 收盤價 = [B2].End(xlDown)
- 成交量 = Application.WorksheetFunction.Sum(Range("C:C"))
- End Sub
|
|
發表於 2012-9-18 20:41
| 
