dim tyminute
Function WRITEDATA(Formula)
WRITEDATA=0
if tyminute<>minute(time()) then
tyminute = minute(time())
else
Exit Function
end if
Set History = Formula.ParentGrid.GetHistoryData()
msgbox(cstr(Formula.IndexData))
End Function
显示为0,为什么呢?
运行模式为:序列计算