人民币小写转大写的函数.docVIP

人民币小转大的函数 问题是如果万位上是0 ，这个“零”就显示不出来了，例如404，400元，显示为肆拾万肆仟四百元整，必须显示肆拾肆万零肆仟肆佰元整。 其他位的0又是正常的，这几个公式 =IF(B9=0,,TEXT(INT(B9),[dbnum2]人民币G/通用格式)元IF(INT(B9*10)-INT(B9)*10=0,IF(INT(B9)*(INT(B9*100)-INT(B9*10)*10)=0,,零),TEXT(INT(B9*10)-INT(B9)*10,[dbnum2])角)IF((INT(B9*100)-INT(B9*10)*10)=0,整,TEXT((INT(B9*100)-INT(B9*10)*10),[dbnum2])分)) 2 =IF(B9=0,,TEXT(INT(B9),[dbnum2]G/通用格式)元IF(INT(B9*10)-INT(B9)*10=0,IF(INT(B9)*(INT(B9*100)-INT(B9*10)*10)=0,,零),TEXT(INT(B9*10)-INT(B9)*10,[dbnum2])角)IF((INT(B9*100)-INT(B9*10)*10)=0,整,TEXT((INT(B9*100)-INT(B9*10)*10),[dbnum2])分)) =IF(ROUND(B9,2)=0,,IF(ROUND(ABS(B9),2)=1,TEXT(INT(ROUND(ABS(B9),2)),[DBNum2])元,)IF(RIGHT(TEXT(B9,.00),2)*1=0,整,IF(RIGHT(TEXT(B9,.00),4)*1=1,IF(RIGHT(TEXT(B9,.00),2)*19,,零),IF(ROUND(ABS(B9),2)=1,零,))IF(RIGHT(TEXT(B9,.00),2)*19,TEXT(LEFT(RIGHT(TEXT(B9,.00),2)),[DBNum2])角,)IF(RIGHT(TEXT(B9,.00))*10,TEXT(RIGHT(TEXT(B9,.00)),[DBNum2])分,整))) 解决的就是万位上的零不出来的问题 上所有答案, 均不如楼主的第一条公式， 如用一条公式去解决 万位是0 显示 零 的问题, 公式会比原来的长三倍, 太吓人了。故建议用辅助格, 方法是: 将原有公式放在辅助格, 假设是C9, C9会显示 人民币肆拾万肆仟四百元整 再在需要显示大写的单元格, 输入下列公式: =IF(AND(ISERROR(FIND(拾万,C9))=FALSE,ISERROR(FIND(拾万零,C9)=TRUE)),SUBSTITUTE(C9,拾万,拾万零),C9) 便会显示 人民币肆拾万零肆仟四百元整 注意: 1.)设定公式后, 需将C9设定成白色, 以免被打印出来 2.)上述办法并未考虑百万位加零, 即 1,002,000 如有需要, 公式要添加一些内容 SUBSTITUTE(SUBSTITUTE(IF(A10,负,)TEXT(TRUNC(ABS(ROUND(A1,2))),[DBNum2])元IF(ISERR(FIND(.,ROUND(A1,2))),,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),[DBNum2]))IF(ISERR(FIND(.0,TEXT (A1,0.00))),角,)IF(LEFT(RIGHT(ROUND(A1,2),3))=.,TEXT(RIGHT(ROUND(A1,2)),[DBNum2])分,IF(ROUND(A1,2)=0,,整)),零元零,),零元,) CONCATENATE(IF(A10,负,),TEXT(IF(TRUNC(A1)=0,,TRUNC(ABS(A1))),[DBNum2]),IF(INT(TRUNC(A1))=0,,元),TEXT(IF(OR(ABS(A1)0.1,TRUNC(A1)=A1),,RIGHT(TRUNC(A1*10),1)),[DBNum2]),IF(RIGHT(TRUNC(A1*10),1)=0,,角),TEXT(IF(RIGHT(TRUNC(A1*100),1)=0,,RIGHT(TRUNC(A1*100),1)),[DBNum2]),IF(RIGHT(TRUNC(A1*100),1)=0,,分)) IF(ROUND(A1,2)=0,,IF(ROUND(ABS(A1),2)=1,TEXT(INT(ROUND(ABS(A1),2)),[DBNum2])元,)IF(RIGHT(TEXT(A1,.00),2)*1=0,整,IF(RIGHT(TEXT(A1,.00),4)*1=1,IF(RIGHT(TEXT(A1,.00),2)*19,,零),IF(ROUND(A