標題:
[發問]
如何用VBA算出時間週期
[打印本頁]
作者:
jerrystock
時間:
2012-9-18 20:41
標題:
如何用VBA算出時間週期
請問如何用VBA算出tick 時間 開盤價 最高價 最低價 收盤價 成交量
[attach]12533[/attach]
謝謝
作者:
kimbal
時間:
2012-9-19 00:30
請問如何用VBA算出tick 時間 開盤價 最高價 最低價 收盤價 成交量
謝謝
jerrystock 發表於 2012-9-18 20:41
簡單用公式不就可以嗎
[attach]12535[/attach]
多少行 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
複製代碼
作者:
jerrystock
時間:
2012-9-20 07:44
謝謝大大的指導
我忘記說明時間週期是一分鐘的
時間 開盤價 最高價 最低價 收盤價 成交量
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
