人民币小至大写格式转换的函数！

tf00255 · 发表于 2011-2-27 12:05

完任务中，见笑了！{:011:}
=IF(INT(A1)*100=A1*100,TEXT(INT(A1),"[DBNum2]")&"元整",IF(INT(A1*10)=A1*10,TEXT(INT(A1),"[DBNum2]")&"元"&TEXT(A1*10-INT(A1)*10,"[DBNum2]")&"角整",TEXT(INT(A1),"[DBNum2]")&"元"&IF(INT(A1*10)=INT(A1)*10,"零",TEXT(RIGHT(INT(A1*10)),"[DBNum2]")&"角")&TEXT(RIGHT(A1*100),"[DBNum2]")&"分"))

tf00255 · 发表于 2011-2-27 12:06

学习中，谢！{:011:}

fjk7070 · 发表于 2011-2-27 12:22

要自己写出来，还真不容易。

lenvonta · 发表于 2011-6-1 11:17

不能出现角整的情况啊，应该是元整

hujie_miki · 发表于 2011-6-1 11:21

有点复杂，不懂

格子e先生 · 发表于 2011-6-1 11:25

回复 lenvonta 的帖子

没有写到分的，都应该加“整”

格子e先生 · 发表于 2011-6-1 11:30

=IF(A1<0,"负",)&SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A1)),"[dbnum2]")&"元"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(TEXT(A1,".00"),2),"[dbnum2]0角0分"),"零角","零"),"零分","整"),"零整","整"),"零元零",),"零元",)
这个像是要短一些。

lenvonta · 发表于 2011-6-1 11:36

回复格子e先生的帖子

你的方法是最简洁的啦，不过怎么能实现“元整"呢？？

lenvonta · 发表于 2011-6-1 11:38

回复格子e先生的帖子

有空请帮我看下IF(TRUNC(a1)=a1,TEXT(a1,"[DBNum2]G/通用格式")&"元整",TEXT(TRUNC(a1),"[DBNum2]G/通用格式"&"元"))&IF(AND(TRUNC(a1)<>a1,RIGHT(TRUNC(a1*10))<>"0"),TEXT(TRUNC(MOD(a1*10,10)),"[DBNum2]G/通用格式")&"角","")&IF(AND(RIGHT(TRUNC(a1*10))="0",TRUNC(a1)<>a1),"零","")&IF(TRUNC(a1*10)<>a1,TRUNC(a1*10)=a1*10), "整","")

有什么错误？excel里提示出错，但未明示哪里出了问题

格子e先生 · 发表于 2011-6-1 12:46

最后一段，&IF(TRUNC(a1*10)<>a1,TRUNC(a1*10)=a1*10), "整","")
if函数有两个条件，应该用and把连接起来。应该写成：
&IF(and(TRUNC(a1*10)<>a1,TRUNC(a1*10)=a1*10), "整",""),
但是你们前面部分就已经算到分了，这段是多余的了。
直接把最后一个&之后的删掉就行了。

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

[分享] 人民币小至大写格式转换的函数！