[求助]Formula.IndexData为什么为0？　[金字塔]

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

运行模式为：序列计算