这个为什么要用vba?直接用表达式+一句代码即可。
参考
http://www.foxtable.com/help/topics/0025.htm
http://www.foxtable.com/help/topics/2747.htm