人民币大写转换函数

myexjx123 · 发表于 2014-4-17 23:33

本帖最后由 myexjx123 于 2014-4-19 12:58 编辑

近期在论坛上看了不少类似函数，总有不如意的地方，于是自己动手写了一个，支持负数，感觉还满意。拿出来分享一下。
=SUBSTITUTE(SUBSTITUTE(IF(A1=0,"",IF(TRUNC(A1)=0,"",IF(A1-TRUNC(A1)=0,TEXT(TRUNC(A1),"[DBNum2]")&"元整",TEXT(TRUNC(A1),"[DBNum2]")&"元")))&IF(TRUNC(A1*10)-TRUNC(A1*10,-1)<>0,TEXT(TRUNC(A1*10)-TRUNC(A1*10,-1),"[DBNum2]")&"角",IF(TRUNC(A1*100)-TRUNC(A1*100,-1)=0,"",IF(AND(TRUNC(A1)<>0,TRUNC(A1*100)-TRUNC(A1*100,-1)<>0),TEXT(TRUNC(A1*10)-TRUNC(A1*10,-1),"[DBNum2]"),"")))&IF(TRUNC(A1*100)-TRUNC(A1*100,-1)=0,"",TEXT(TRUNC(A1*100)-TRUNC(A1*100,-1),"[DBNum2]")&"分"),"-","负",1),"-","")

myexjx123 · 发表于 2014-4-17 23:41

传个附件分享一下

jiangyangjiatai · 发表于 2014-4-22 13:22

谢谢提供，继续关注你。

ayayzzq · 发表于 2014-5-29 16:52

很适合财务人员谢谢提供

xiangyun5680 · 发表于 2014-6-9 23:27

感谢楼主！

rene_1111 · 发表于 2014-6-10 18:22

谢谢提供！

l0126 · 发表于 2014-6-12 16:10

谢谢分享。

l0126 · 发表于 2014-6-12 16:14

谢谢分享。

zjq198136 · 发表于 2014-6-13 15:44

比较不错，谢谢楼主，找了好久

		自动登录	找回密码
密码			免费注册

[讨论] 人民币大写转换函数