將阿拉伯數字的金額改為大寫漢字

心正意诚身修

昨天看到一個金額大寫小的.感覺字符有點長.所以想試試能不能讓字符少一點.今天上午研究出來了兩種.當然了,也許這都是別人曾經做出來過也說不定哈..歡迎大家批評指正.

cyt381828864

学习学习

蝶·舞

学习了，不过似乎有点不觉
1、没有考虑负数，在财务实际工作中，可能有负数现象
2、0.01元时，按常规就是直接壹分吧，但公式返回零元零角壹分。

心正意诚身修

蝶·舞 发表于 2015-5-14 11:51
学习了，不过似乎有点不觉
1、没有考虑负数，在财务实际工作中，可能有负数现象
2、0.01元时，按常规就是 ...

負數問題可以加多一個判斷.我這也算是拋磚引玉,歡迎大家提出更多更好的解法.

易安1

目前比较完善的最少字符貌似是161个：
原作者记不清了，EH上的！
=TEXT(RMB(A1),"[=]g;"&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整"))

蝶·舞

易安1 发表于 2015-5-14 15:15
目前比较完善的最少字符貌似是161个：
原作者记不清了，EH上的！
=TEXT(RMB(A1),"[=]g;"&TEXT(INT(ABS(A1 ...

个人感觉RMB要加上第二参数，否则受系统环境影响

心正意诚身修

易安1 发表于 2015-5-14 15:15
目前比较完善的最少字符貌似是161个：
原作者记不清了，EH上的！
=TEXT(RMB(A1),"[=]g;"&TEXT(INT(ABS(A1 ...

我用的03版,不支持RMB這個函數..謝謝版主指教,先存著.