假設你想要在Excel上做 而且已經取得Tick檔(從期交所可download)
然後把這些tickdata 放在"TickData"(名稱可以自取)工作表內
那VBA 碼可能如下
N= 100 (假設你想要100個tick 1根KBar)
For irow=1 To totalticks(所有的tick數)
If irow Mod N <> 0 Then '判斷讀入資料是否屬於新KBar
判斷此一tick是否創新高或新低, 如果是, 則更新本KBar最高最低價
累積成交量
Else '累積到N tick了, 可以準備finalize這根KBar了
判斷此一tick是否創新高或新低, 如果是, 則更新KBar最高最低價
累積成交量
以此根tick的價格作為此根K的收盤價
BarNo = BarNo + 1
設定下根K的開高低收量的初始值
End if
Next