[挑战]功能最全、最短（7行）的人民币大写函数

likread · 发表于 2009-3-23 23:34

聪明的人就是不一样，写程序都高人一等

ddaaa · 发表于 2009-4-2 22:23

=IF(ISTEXT(A1),"",TEXT(INT(A1),"[dbnum2]")&"元"&IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1*100)-INT(A1*10)*10=0,"","零"),TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角")&IF(INT(A1*100)-INT(A1*10)*10=0,"整",TEXT(ROUND(A1*100,0)-INT(A1*10)*10,"[dbnum2]")&"分"))

abc123 · 发表于 2009-5-7 14:14

学习,学习,再学习!

mailme525 · 发表于 2009-5-21 16:55

现在才发现Excel这么方便

mailme525 · 发表于 2009-5-21 16:56

怎么才能成为高手？？望指教

yhq0834 · 发表于 2009-6-3 14:43

=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(".",ROUND(G15,2))),REPLACE(TEXT(ROUND(G15,2),"[DBNum2]"),FIND(".",TEXT(ROUND(G15,2),"[DBNum2]"))+2,,"角")&"分",TEXT(ROUND(G15,2),"[DBNum2]")&"元整"),".","元"),"角分","角")

lbl016 · 发表于 2009-6-3 14:53

这么多实用的哈

maoshimi2009 · 发表于 2009-6-3 16:57

不错！有空用用

hwb_101 · 发表于 2009-6-14 21:24

不错！谢谢！

kepeng100 · 发表于 2009-6-14 21:32

你这都有400多个字符

用函数只用168位字符就搞定了

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

[挑战]功能最全、最短（7行）的人民币大写函数

这样的算法超强