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，為什么呢？

運行模式為：序列計算