函数公式结果怎么能返回

函数公式结果如何能返回?
想vba实现一个公式
当公式开始计算时:能在excel单元个显示“计算中”
当公式计算结束出结果的时候,把正确的结果在单元个个显示!
这样如何实现?
谢谢
------解决方案--------------------
function aFun(....) as long
dim i as long
i=计算

aFun=i
end function
------解决方案--------------------
引用:
function aFun(....) as long
dim i as long
i=计算

aFun=i
end function


哈哈,没看懂楼主要问的难点在哪:)
------解决方案--------------------
在界面上操作,后台录制宏不就有了现成的代码?
------解决方案--------------------
单元格调用公式,只“调用一次”(当然实际可能是多次,每次刷新时都会调用)。

但楼主的要求,好象是: 一次调用,二次结果 !
显然,楼主的想法有点问题……

但是,如果允许把单元格的“公式”,在计算后改为最终结果的常量,那还是有办法实现的。