英文数字转换为中文钱数的问题

shewo

大家好，我要将单元格里输入的英文数字转换为中文钱数，如123.4,为壹佰贰拾叁元si角
TEXT(INT(E3),"[DBNum2]G/通用格式")&"元"&IF((INT(E3*10)-INT(E3)*10)=0," ",TEXT(INT(E3*10)-INT(E3)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(E3*100)-INT(E3*10)*10)=0,"整",TEXT(INT(E3*100)-INT(E3*10)*10,"[DBNum2]G/通用格式")&"分")

在上是对E3单元格进行转换，如何编写一个宏，将选定的多行单元格一次性转换？谢谢了

hanzhenku

这个不是很正确的呀,不信试一下:123.03;哈哈,
还是用我这个改过的吧:
=TEXT(INT(B1),"[DBNum2]G/通用格式")&"元"&IF((INT(B1*10)-INT(B1)*10)=0,"",TEXT(INT(B1*10)-INT(B1)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(B1*100)-INT(B1*10)*10)=0,"整",TEXT(INT(B1*10)-INT(B1*10),"[DBNum2]G/通用格式")&TEXT(INT(B1*100)-INT(B1*10)*10,"[DBNum2]G/通用格式")&"分")

鱼之乐

YCIWlyVn.zip (13.27 KB, 下载次数: 101)

2003-2-22 11:54 上传

点击文件名下载附件
英文数字转换为中文钱数的问题

试试我的这个人民币自定义函数吧,不错!

uning

二楼hanzhenku，你的方法一般还可以，比如说123。45你的方法是换成壹佰贰拾叁元肆角零伍分，伍分前多了个零，很别扭，能不能再改一下。谢谢！