人民币大小写转换.xlsVIP

Sheet3 三种方法 二种方法 _99b960dcf0508b1group.asp?gid_50_pid_4632 group.asp?gid_50_pid_4632_1 S101新一佳深圳宝安店1月份对账明细表 收货日期 订单编号 收货编号 收货金额 退货金额 实际金额 备注 S101201012305009 S1014401040004 查看文章 假设数字在A1单元格，要在B1单元格显示大写金额，请在B1中输入公式： 以上三种方法任选一种可。 第一种：=IF(OR(A1=,A1=0),,TEXT(INT(A1),[dbnum2]G/通用格式圆;负[dbnum2]G/通用格式圆;;)TEXT(--RIGHT(INT(A1*10)),[dbnum2]#角;;;)TEXT(--RIGHT(INT(A1*100)),[dbnum2]#分;;整;)) 第二种：=SUBSTITUTE(IF(-RMB(A1),IF(A10,,负)TEXT(INT(ABS(A1)+0.5%),[dbnum2]G/通用格式元;;)TEXT(RIGHT(RMB(A1),2),[9][dbnum2]0角0分;IF(A1^21,,0)[][dbnum2]0分;整),),零分,整) 第三种：=TEXT(MID(INT(L6),1,1),[dbnum2])CHOOSE(LEN(INT(L6)),圆,拾,佰,仟,万,拾万)IF(LEN(INT(L6))-1=0,,TEXT(MID(INT(L6),2,1),[dbnum2])CHOOSE(LEN(INT(L6))-1,圆,拾,佰,仟,万,拾万))IF(LEN(INT(L6))-2=0,,TEXT(MID(INT(L6),3,1),[dbnum2])CHOOSE(LEN(INT(L6))-2,圆,拾,佰,仟,万,拾万))IF(LEN(INT(L6))-3=0,,TEXT(MID(INT(L6),4,1),[dbnum2])CHOOSE(LEN(INT(L6))-3,圆,拾,佰,仟,万,拾万))IF(LEN(INT(L6))-4=0,,TEXT(MID(INT(L6),5,1),[dbnum2])CHOOSE(LEN(INT(L6))-4,圆,拾,佰,仟,万,拾万))IF(LEN(INT(L6))-5=0,,TEXT(MID(INT(L6),6,1),[dbnum2])CHOOSE(LEN(INT(L6))-5,圆,拾,佰,仟,万,拾万))IF(L6-INT(L6)=0,零角零分,IF(LEN(ROUND(L6-INT(L6),2))=3,TEXT(RIGHT(ROUND(L6-INT(L6),2),1),[dbnum2])角零分,TEXT(MID(ROUND(L6-INT(L6),2),3,1),[dbnum2])角TEXT(RIGHT(ROUND(L6-INT(L6),2),1),[dbnum2])分)) 此方法（即第二种方法）有问题 Excel数字小写金额转换汉字大写金额公式在会计工作中是经常应用到的，它能提高工作效率和会计数据的准确性。 网上有很多设置Excel数字小写金额转汉字大写金额公式的方法，基本上都很繁琐，且功能不全面（对负金额不能转换）。 本人在Excel会计工作实践中，设计了一个数字小写金额转换汉字大写金额的公式，公式仅500多个字符，个人感觉还很满意，现拿出来供大家分享，不足之处，也请大家不吝赐教。 公式如下： =IF(ROUND(A1,2)=0,,IF(A10,负,)IF(ABS(A1)=1,TEXT(INT(ROUND(ABS(A1),2)),[dbnum2])元,)IF(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),###),2),1,1))=0,IF(VALUE(RIGHT(TEXT(ABS(A1)*100,###),1))=0,整,IF(ABS(A1)=1,零,)TEXT(VALUE(RIGHT(TEXT(ABS(A1)*100,###),1)),[dbnum2])分),IF(VALUE(RIGHT(TEXT(ABS(A1)*100,###),1))=0,TEXT(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),###),2),1,1)),[dbnum2])角整,TEXT(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),###),2),1,1)),[dbnum2])角TEXT(VALUE(RIGHT(TEXT(ABS(A1)*100,###),1)),[dbnum2])分))) 公式中A1为小写金额所在单元格，实际使用中只需将其替换为实际小写金额所