excel的金额大小写转换方法存在问题.docxVIP

EXCEL 的金额大小写转换方法存在问题 EXCEL 的金额大小写转换方法存在问题 按现在财务制度书写要求，我试过的金额大小写转换方法都 不合格， 比如按现在的财务制度要求， 金额 203405.01 正确 的大写应该是 #8220; 贰拾万零叁仟肆佰零伍元零壹分 #8221; ，注意这里的蓝颜色的零，是必须有的。而我所试 过的方法只能转换为 #8220; 贰拾万叁仟肆佰零伍元零壹分 #8221; ，零没有了，是一种错误的大写。有高手请重新给 出一个正确的转换方法吧，谢谢了。 你这是哪门子的规定？我看到的制度规定却是： 阿拉伯金额数字万位或元位是 #8220;0#8221; ，或者数字 中间连续有几个 #8220;0#8221; ，万位、元位也是 #8220;0#8221; ，但仟位、 角位不是 #8220;0#8221; 时， 中文大写金额中可以只写一个零字，也可以不写 #8220; 零 #8221;字，如Y 1 , 680.32 ,应写成人民币壹仟陆佰捌拾元 零三角贰分，或者写成人民币壹仟陆佰捌拾元三角贰分；又 如Y 107,000.53 ,应写成人民币壹拾万柒仟元零伍角叁分， 或者写成人民币壹拾万柒仟元伍角叁分。 这就是说，这种情况下可以有零，也可以没零。不过，要加 上零也并非难事，不过公式效率要打些折扣了。 四舍五入公式 =IF(A1=0,,IF(ABS(A1)lt;0.995,,IF(AND(RIGHT(INT(R OUND(ABS(A1),2)/10000))=0,RIGHT(INT(ROUND(ABS( A1),2)/1000))lt;gt;0),SUBSTITUTE(TEXT(INT(ROUN D(ABS(A1),2)),[DBNum2]), 万, 万零 ),TEXT(INT(ROUND(ABS(A1),2)),[DBNum2]))amp; 元 )amp;IF(RIGHT(TEXT(A1,.00),2)*1=0,IF(ABS(A1)lt;0 .005,, 整 ),TEXT(IF(ABS(A1)lt;0.095,,LEFT(RIGHT(TEXT(A1,. 00),2))),[dbnum2])amp;IF(LEFT(RIGHT(TEXT(A1,.00 ),2))*1=0,, 角 )amp;IF(RIGHT(TEXT(A1,.00))*1=0, 整 ,TEXT(RIGHT(TEXT(A1,.00)),[dbnum2])amp; 分 ))) 截尾公式 =IF(A1=0,,IF(ABS(A1)lt;1,,IF(AND(RIGHT(TRUNC(A BS(A1)/10000))=0,RIGHT(TRUNC(ABS(A1)/1000))lt; gt;0),SUBSTITUTE(TEXT(TRUNC(ABS(A1)),[DBNum2] ),万,万零 ),TEXT(TRUNC(ABS(A1)),[DBNum2]))amp; 元 )amp;IF(RIGHT(TRUNC(A1*100),2)*1=0,IF(ABS(A1)lt; 0.01,, 整 ),IF(ABS(A1)lt;0.1,,TEXT(RIGHT(TRUNC(A1*10)),[db num2]))amp;IF(RIGHT(TRUNC(A1*10))*1=0,, 角 )amp;IF(RIGHT(TRUNC(A1*100))*1=0, 整 ,TEXT(RIGHT(TRUNC(A1*100)),[dbnum2])amp; 分 ))) 公式出处： /1549898_d.html 效率是指在表格公式比较多的情况下，去处速度比较慢。 上述公式还未包括元位为 0 要写零的情况，如果要加上，四 舍五入公式就要变为： =IF(A1=0,,IF(ABS(A1)lt;0.995,,IF(AND(RIGHT(INT(R OUND(ABS(A1),2)/10000))=0,RIGHT(INT(ROUND(ABS( A1),2)/1000))lt;gt;0),SUBSTITUTE(TEXT(INT(ROUN D(ABS(A1),2)),[DBNum2]), 万, 万零 ),TEXT(INT(ROUND(ABS(A1),2)),[DBNum2]))amp; 元 )amp;IF(AND(RIGHT(INT(A1),1)=0,LEFT(RIGHT(TEX T(A1,.00),2),1)lt;gt;0), 零 ,)amp;IF(RIGHT(TEXT(A1,.00),2)*1=0,IF(ABS(A1)lt ;0.005,, 整 ),TEXT(IF(ABS(A1)lt;0.095,,LEFT(RIGHT(TEXT(A1,. 00),2))),[dbnum2])amp;IF(LEFT(RIGHT(TEXT(A1,