主题：[求助]VBA中，如果判断一分钟的K线柱本柱已走完？

那个代码是建立等价k，所以是价差达到一定程度才新建。你要根据k线运行可以如下去操作，记录下数据的count，然后当这个总量大于保存的count时候就满足条件了

dim num

call application.SetTimer(0,1000)
Sub APPLICATION_Timer(ID)
set Data1= marketdata.GetHistoryData("cl00","nm",0)

if Data1.count>num then

   '新建k的动作程序

   num = Data1.count

end if

application.MsgOut Data1.count
End Sub