Question

Excel中人民币小写转换大写

我需要把Excel中人民币的小写转换大写，以前用的两个公式如下，显示也很正常，但今天突然不能正常显示了， 比如我输入458.75，正常应为“肆佰伍拾柒圆柒角伍分”，可今天显示“458圆7角5分”，哪位大侠能帮我解答一下这是怎么回事？怎样能改回正常样子呢？
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[>0][dbnum2];[<0]负[dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
=IF(ROUND(A2,2)<0,"无效数值",IF(ROUND(A2,2)=0,"零",IF(ROUND(A2,2)<1,"",TEXT(INT(ROUND(A2,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A2,2)*10)-INT(ROUND(A2,2))*10=0,IF(INT(ROUND(A2,2))*(INT(ROUND(A2,2)*100)-INT(ROUND(A2,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A2,2)*10)-INT(ROUND(A2,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A2,2)*100)-INT(ROUND(A2,2)*10)*10)=0,"整",TEXT((INT(ROUND(A2,2)*100)-INT(ROUND(A2,2)*10)*10),"[dbnum2]")&"分")))

Answer 1

要主的公式在EXCEL2003和WPS2012测试，都是正确的。
出现不转换的原因，是楼主所用的版本，对TEXT函数的参数“[dbnum2]”不支持。
重装OFFICE试试，最好换一个版本，也可以试试WPS2012.

追问

我是Office2007.不过最近确实是重装过系统，难道还要再重装一次吗？有没有更方便的解决办法？

追答

再安装一次OFFICE，不是叫你重装系统。最好重新找一个安装程序，不要用原来安装的。
也可以安装WPS2012个人版SP2试试。（可与原来的MS Office2007共存。）
如果WPS中也不认这个函数，再换系统不迟。

Answer 2

这个公式太长,用这个吧
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")

在A1输入阿拉伯数字,把该公式复制到B1即可.

追问

不行啊， 显示 #NAME?

追答

不会呀,你复制全了吗?
我试验成功了的

追问

是啊， 全部复制了，还是那样显示，我之前的公式也不是不能转大写，只是变成了458圆7角5分，估计是我表格里哪里出了问题

Answer 3

=SUBSTITUTE(TEXT(A1,"[DBNum2]G/通用格式"),".","点")
=TEXT(A1*100,"[dbnum2]0万0仟0佰0拾0元0角0分")

单元格格式-自定义-类型 [DBNum2]G/通用格式

Answer 4

公式本身没有错，可能出错的是外部原因，你先重启下电脑看看结果。
希望能够对你有所帮助！

追问

重启不管用，看来是电脑的问题了

追答

电脑问题最大的可能性是IE，你先试着卸载IE再重装下吧，多想想你最近电脑做了哪些改动，比如安装软件、打补丁或者禁用了某些程序，实在不行，就将文档都移到非系统盘后镜像一个吧。在这之前，你可以看看你是否打开了系统还原功能，若开启了，可直接还原下系统到前一段时间。

Answer 5

我把这两个公式复制使用没有问题，不过出现像你那种大写变小写，看一下公式里里面的[dbnum2]是否变成了[dbnum3]，

追问

没有，检查了一下没有变

追答

你可以新建一个表，把公式复制到B1和B2中，然后在1中随便输入数字，看一下结果，应该是你表格上的某些格式有对，你先检查一下。