用EXCEL动态观看K线图,可用做模拟交易。(原创)
来自:MACD论坛(bbs.shudaoyoufang.com)
作者:imasom
浏览:78514
回复:93
用法,下载下面的文件,
当做模板文件,可以把你的数据按文件里的格式放置。
按右上角的按钮就行了。
最右的按钮是设K线的数量的,
中间是重置。
最左是执行,每按一次往前走一条K线。
这是EXCEL里宏的代码,没毒的呀!
{
Public II
Public KK
Sub stockk()
If KK = "" Then
Call Set_number_Kline
End If
If II = "" Then
II = 4
End If
II = II + 1
Call Chartt
End Sub
Sub Chartt()
ActiveSheet.ChartObjects("图表 1").Activate
ActiveChart.SetSourceData Source:=Sheets("C0611_206-616").Range("A" & II - 1 & ":E" & II + KK) _
, PlotBy:=xlColumns
End Sub
Sub reset()
If KK = "" Then
Call Set_number_Kline
End If
II = 4
End Sub
Sub Set_number_Kline()
KK = InputBox("Pls input the K_line Number:")
End Sub
} |