[原创]最简短的人民币大写自定函数（11行），附由浅到更浅解说

ldy888 · 发表于 2006-5-20 22:03

以下是引用[I]wts05980098[/I]在2006-5-20 19:24:00的发言：
请教[DBNum2]什么意思

[DBNum2] 就是数字中文大写 9---玖 [DBNum1] 就是数字中文小写 9---九

[此贴子已经被作者于2006-5-20 22:04:45编辑过]

wclaw · 发表于 2006-5-20 23:46

Try NumberString

http://club.excelhome.net/dispbbs.asp?boardid=1&replyid=70868&id=6496&page=1&skin=0&Star=1

[此贴子已经被作者于2006-5-21 4:37:48编辑过]

dzghg · 发表于 2006-5-21 00:30

这个问题我一直用EXCEL自带函数搞定，因为速度比较快些，特别是大规模转换时，在单元格A1中填上要转换的数字

=IF(A1=0,"(人民币）零元",IF(A1<0,TEXT(INT(ABS(A1)),"（人民币）负[DBNum2]g/通用格式")&"元"&IF((INT(ABS(A1)*10)-INT(ABS(A1))*10)=0,"",TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[DBNum2]")&"角")&IF((INT(ABS(A1)*100)-INT(ABS(A1)*10)*10)=0,"整",IF(INT(ABS(A1)*10)-INT(ABS(A1))*10=0,"零","")&TEXT(INT(ABS(A1)*100)-INT(ABS(A1)*10)*10,"[DBNum2]")&"分"),TEXT(INT(A1),"（人民币）[DBNum2]g/通用格式")&"元"&IF(INT(A1*10)-INT(A1)*10=0,"",TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角")&IF((INT(A1*100)-INT(A1*10)*10)=0,"整",IF(INT(A1*10)-INT(A1)*10=0,"零","")&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]")&"分")))

edwu · 发表于 2006-10-17 18:43

楼上的方法不错，直接用自带函数搞掂，确实方便。支持。。。。

hhzjxss · 发表于 2007-2-18 23:32

谢谢了，可是那个判断语句我还是做不出来！

sszx8888 · 发表于 2007-2-27 00:00

cuub22 · 发表于 2007-12-9 12:04

你们好.我是新手.有谁知如何用VBA中模块吗?

zjg951025 · 发表于 2008-12-20 13:56

很是强大，
短小精悍

fxdfsf · 发表于 2009-6-28 21:03

谢谢你由浅到更浅解说，我非常受用。

lbl016 · 发表于 2009-7-29 16:59

很好，学习了

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