[求助]货币金额的大小写转换

一叶飘零

我在一个单元格（比如A1）里输入货币的小写数值，想让它在另一单元格（比如B1）里显示该金额的大写，我应该在目标单元格里输入怎么样一个公式？请指教！谢谢

徒然客

在论坛上搜索一下“金额大写”有函数公式，或者用vba解决的。方法很多。

一叶飘零

VBA不懂，函数我去搜，谢版主

youii

[DBNum2]函数

lst295

给你一个

"(人民币):"&IF((C29-INT(C29))=0,TEXT(C29,"[DBNUM2]")&"元整",IF(INT(C29*10)-C29*10=0,TEXT(INT(C29),"[DBNUM2]")&"元"&TEXT((INT(C29*10)-INT(C29)*10),"[DBNUM2]")&"角整",TEXT(INT(C29),"[DBNUM2]")&"元"&IF(INT(C29*10)-INT(C29)*10=0,"零",TEXT(INT(C29*10)-INT(C29)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(C29,1),"[DBNUM2]")&"分"))

beefo

<p>我试过,楼上的有用哈</p><p></p>

linda2006

对是对，但容易出错

0514

<p>我用过挺好的.</p>

daley

<p>不会吧!试试这个准错不了!</p><p>在B1 输入:</p><p>="人民币："&amp;(IF(ROUND(A1,2)&lt;0,C1,IF(ROUND(A1,2)=0,"零元",IF(ROUND(A1,2)&lt;1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&amp;"元")&amp;IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&amp;"角")&amp;IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&amp;"分"))))</p><p>在C1输入:</p><p>="负"&amp;(IF(ROUND((ABS(A1)),2)&lt;0,"",IF(ROUND((ABS(A1)),2)=0,"零元",IF(ROUND((ABS(A1)),2)&lt;1,"",TEXT(INT(ROUND((ABS(A1)),2)),"[dbnum2]")&amp;"元")&amp;IF(INT(ROUND((ABS(A1)),2)*10)-INT(ROUND((ABS(A1)),2))*10=0,IF(INT(ROUND((ABS(A1)),2))*(INT(ROUND((ABS(A1)),2)*100)-INT(ROUND((ABS(A1)),2)*10)*10)=0,"","零"),TEXT(INT(ROUND((ABS(A1)),2)*10)-INT(ROUND((ABS(A1)),2))*10,"[dbnum2]")&amp;"角")&amp;IF((INT(ROUND((ABS(A1)),2)*100)-INT(ROUND((ABS(A1)),2)*10)*10)=0,"整",TEXT((INT(ROUND((ABS(A1)),2)*100)-INT(ROUND((ABS(A1)),2)*10)*10),"[dbnum2]")&amp;"分"))))</p>

daley

<p>这个用VB代码写的,也请试试!</p><p><a href="http://club.excelhome.net/viewthread.php?tid=205220&amp;px=0">http://club.excelhome.net/viewthread.php?tid=205220&amp;px=0</a></p><p><a href="http://club.excelhome.net/viewthread.php?tid=215500&amp;replyID=&amp;skin=0">http://club.excelhome.net/viewthread.php?tid=215500&amp;replyID=&amp;skin=0</a></p>

[此贴子已经被作者于2007-1-22 19:07:26编辑过]