[分享]数字转中文大写金额的加载宏

老鬼

这个程序是我根据网上的一段VB改写的，原作者忘了，对不起。

这类程序网上很多，之所以推荐这个，是因为这是我所见过的所有的转换中文大写金额的程序中最简练有效的一个。

我上传的文件是一个加载宏，使用方法是：工具——加载宏——浏览——选择所需加载宏的路径，选择加载宏打开后，加载宏界面的“可用的加载宏”窗口会有一个“小写转大写金额”的加载宏，点勾后加载。加载后，工作簿上会多出一个自定义函数“BIGNUM()”，用它就可以将阿拉伯数字转为中文大写金额。

游客，如果您要查看本帖隐藏内容请回复

西岭雪

呵呵，高手，真是高手啊！！谢谢了，搞定了

glober609

很好！

liuhoubin168

比我以前编写的代码简单多了。学到！

rowbrain

真的是很好!!!

zv1185

万分感谢。

Bluelost

我想看这个宏的代码怎么看啊？

ahaoge

先自定义一个函数BIGNUM,代码如下： Public Function BigNum(小写数字 As Currency)

  Application.Volatile

  If 小写数字 = 0 Then

    BigNum = "零元整"

  Else

    Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"

    Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"

    BigNum = ""

    sNum = Trim(Str(Int(Round(小写数字, 2) * 100)))

      For i = 1 To Len(sNum) '逐位转换

        BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)

      Next i

      For i = 0 To 11 '去掉多余的零

        BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))

      Next i

   End If

End Function

ahaoge

工具-->宏---visual basic编辑器---模块

川破酷子

具体如何操作

谢谢

举个例子,谢谢