自制excel收款收据输入阿拉伯数字金额后在相应单元格自动生成大写数字

zglyp

我根据网上信息，自制了1个excel收款收据，现在遇到1个难题，就是想在输入阿拉伯数字金额后，在工作簿中“打印收据”工作表的人民币大写金额相应单元格内根据函数公式，自动生成汉字大写数字，其中“佰、拾、万、仟、佰、拾、元、角、分”等单位固定，在各单位前的单元格内通过函数公式生成与阿拉伯数字金额相对应位数的汉字大写就行了，请高手指教，谢谢！

lyn-zoe

=IF(D6<0,"零元整",IF(D6=0,"",IF(TRUNC(D6)=C7,TEXT(TRUNC(D6),"[DBNum2][$-804]G/通用格式")&"元整",TEXT(TRUNC(D6),"[DBNum2][$-804]G/通用格式")&"元"&IF(TRUNC((D6)*10)-TRUNC(D6)*10=0,"零"&TEXT(TRUNC((D6)*100)-TRUNC((D6)*10)*10,"[DBNum2][$-804]G/通用格式")&"分",TEXT(TRUNC((D6)*10)-TRUNC(D6)*10,"[DBNum2][$-804]G/通用格式")&"角"&IF(TRUNC((D6)*100)-TRUNC((D6)*10)*10=0,"整",TEXT(TRUNC((D6)*100)-TRUNC((D6)*10)*10,"[DBNum2][$-804]G/通用格式")&"分")))))                                

lyn-zoe

右键设置单元格格式选择特殊-中文大写数字

满坛皆为吾师

D5公式右拉

1. =MID(TEXT(LOOKUP($U1,收款明细!$A3:$E12)/1%,"[dbnum2]0佰0拾0万0仟0佰0拾0元0角0分"),COLUMN(A1),1)

复制代码

zglyp

lyn-zoe 发表于 2015-9-1 08:26
=IF(D6

谢谢
我需要填充大写金额数字的每个单元格都要填这个公式吗？

袁勇

zglyp 发表于 2015-9-1 08:51
谢谢
我需要填充大写金额数字的每个单元格都要填这个公式吗？

D5:

1. =MID(TEXT($V5*100,"[dbnum2]0佰0拾0万0仟0佰0拾0元0角0分"),COLUMN(A1),1)

复制代码

右拉。

水瓶座男

1. =IF(ABS(K18)=0,"",IF(K18<0,"负",)&IF(INT(ABS(K18))=ABS(K18),TEXT(INT(ABS(K18)),"[dbnum2]")&"元整",TEXT(INT(ABS(K18)),"[dbnum2]")&"元")&IF(INT(ABS(K18)*10)-INT(ABS(K18))*10,TEXT(INT(ABS(K18)*10)-INT(ABS(K18))*10,"[dbnum2]")&"角",IF(INT(ABS(K18))=ABS(K18),,IF(ABS(K18)<0.1,,"零")))&IF(ROUND(ABS(K18)*100-INT(ABS(K18)*10)*10,),TEXT(ROUND(ABS(K18)*100-INT(ABS(K18)*10)*10,),"[dbnum2]")&"分",""))

复制代码

1. =CONCATENATE(IF(K18<0,"负",""),TEXT(IF(TRUNC(K18)=0,"",TRUNC(ABS(K18))),"[DBNum2]"),IF(INT(TRUNC(K18))=0,"","元"),TEXT(IF(OR(ABS(K18)<0.1,TRUNC(K18)=K18),"",RIGHT(TRUNC(K18*10),1)),"[DBNum2]"),IF(RIGHT(TRUNC(K18*10),1)="0","","角"),TEXT(IF(RIGHT(TRUNC(K18*100),1)="0","",RIGHT(TRUNC(K18*100),1)),"[DBNum2]"),IF(RIGHT(TRUNC(K18*100),1)="0","","分"))

复制代码

1. =IF(ROUND(K18,2)=0,"",IF(ROUND(ABS(K18),2)>=1,TEXT(INT(ROUND(ABS(K18),2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(K18,".00"),2)*1=0,"整",IF(RIGHT(TEXT(K18,".00"),4)*1>=1,IF(RIGHT(TEXT(K18,".00"),2)*1>9,"","零"),IF(ROUND(ABS(K18),2)>=1,"零",""))&IF(RIGHT(TEXT(K18,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(K18,".00"),2)),"[DBNum2]")&"角","")&IF(RIGHT(TEXT(K18,".00"))*1>0,TEXT(RIGHT(TEXT(K18,".00")),"[DBNum2]")&"分","整")))

复制代码

1. =SUBSTITUTE(SUBSTITUTE(IF(K18<0,"负","")&TEXT(TRUNC(ABS(ROUND(K18,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(K18,2))),"",TEXT(RIGHT(TRUNC(ROUND(K18,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(K18,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(K18,2),3))=".",TEXT(RIGHT(ROUND(K18,2)),"[DBNum2]")&"分",IF(ROUND(K18,2)=0,"","整")),"零元零",""),"零元","")

复制代码

lyn-zoe

这个公式是用来直接从数字变成大写金额的，比如说你输入3658.21他就会自动生成叁仟陆佰伍拾捌元贰角壹分，公式中的D6表示的是输入3658。21这个金额的单元格，你可以查找替换，只是告诉你有这个公式，你是分开弄的好像就单击右键设置单元格格式，选择特殊，选择中文大写数字就可以了

zglyp

水瓶座男 发表于 2015-9-1 08:59

谢谢
填入公式不行

zglyp

满坛皆为吾师 发表于 2015-9-1 08:42
D5公式右拉

谢谢
我在D5单元格输入这个公式后显示“零”，能不能在这个单元格显示圆圈叉叉那个图标，填写收款收据的实务工作中，就是这么画个○套×的