存档

文章标签 ‘人民币大写’

Excel函数公式:人民币大写转换

2009年5月19日

原文链接:http://club.excelhome.net/viewthread.php?tid=337509&extra=&page=1

人民币大写转换代码或函数公式都是经过达人们千锤百炼出来的。总结如下:

1、VBA版本:

 '163字符,无缺陷,负数显示“负”,例:负伍圆陆角伍分 Function dx(M) dx = Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0;负 0. 0 0; ")), ["[DBnum2]"&{0,"","圆0角;;圆零","0分;;整"}]), a), "零圆零", a), "零圆", a), "零整", "整") End Function 

2、函数公式版本:
阅读全文…