关于MS Excel中国资本数字

打开Excel，按Alt+F11(或选择菜单工具→宏→Visual Basic编辑器)，输入一个新模块(插入→模块)，然后键入以下语句:

功能NCN(账户)'大写金额

ybb = Round(账户* 100)

y = Int(ybb / 100)

j = Int(ybb / 10) - y * 10

f = y B- y * 100-j * 10

zy =应用程序。WorksheetFunction.Text(y，"[dbnum2]")

zj =应用程序。WorksheetFunction.Text(j，"[dbnum2]")

zf =应用程序。WorksheetFunction.Text(f，"[dbnum2]")

NCN = zy & amp；“圆形”

如果j = 0且f = 0，则

NCN = NCN & amp；“整体”

如果…就会结束

如果f & lt& gt0和j & lt& gt那么0

NCN = NCN & amp；zj & amp“角度”&；zf & amp“分”

如果y = 0，那么

NCN = ZJ & amp；“角度”&；zf & amp“分”

如果…就会结束

如果…就会结束

如果f = 0并且j & lt& gt那么0

NCN = NCN & amp；zj & amp“号角”

如果y = 0，那么

NCN = ZJ & amp；“号角”

如果…就会结束

如果…就会结束

如果f & lt& gt0，那么j = 0

NCN = NCN & amp；zj & ampzf & amp“分”

如果y = 0，那么

NCN = ZF & amp；“分”

如果…就会结束

如果…就会结束

如果帐户= " "那么

NCN = " "

如果…就会结束

结束功能

就是这样。关闭VB编辑器，进入Excel界面。你会发现在插入一个函数的时候有一种“自定义”，里面有一个函数“NCN”，这就是你想要的函数。它被命名为NCN，意思是“大写的数字”。如果不喜欢，可以在角本里改一下，把“NCN”换成理想的函数名。

试试看！在A1中键入“1025.3”，并在B1中写“=NCN(A1)”。效果好吗？

在关闭之前，您可以将编写的模块导出到. bas文件，并在以后需要使用时导入它。因为是自己写的，没有数字签名，用这个功能打开文件会提示有风险。降低安全级别，打开后再改回来就行了。

仅此而已。有什么不懂的就问我。