人民币小写转大写公式汇总

1、人民币小写转换大写公式1 、公式=if(a1=,if(a10, 负 ,)&if(int(a1),text(int(abs(a1),dbnum2)& 元,)&if(int(abs(a1)*10)-int(abs(a1)*10,text(int(abs(a1)*10)-int(abs(a1)*10,dbnum2)&角,if(int(abs(a1)=abs(a1),if(abs(a1)-0.5%,负)&text(right(fixed(a1),2),”dbnum20 角0 分;&if(abs(a1)1%,整,),零角,if(abs(a1)1,零),零分,整)3、公式=text(rmb(round(a

2、1,),=g;&text(int(abs(round(a1,)+0.5%),dbnum2g/ 通用格式元;)&substitute(substitute(text(right(rmb(round(a1,),2),”dbnum20 角 0分;整)，零角,if(round(a1,)a21,零),零分，整)4、公式精品资料=if(m90,负)&text(int(abs(a2)+0.5%),”dbnum2g/通用格 式 元 ;)&text(right(rmb(a2),2),9dbnum20角 0分;&if(a2a2dbnum20 分;整),),零分,整)6. 公式=substitute(substit

3、ute(if(-rmb(a2),if(a20,负)&text(int(abs(a2)+0.5%),dbnum2g/通用格式元;)&text(right(rmb(a2),2),”dbnum20角 0 分;整),),零角,if(a2a21,零),零分,整)7. 公式=大 写 人 民 币 :&if(trunc(a1)=0,text(trunc(a1),dbnum2g/ 通 用 格 式)& 元)&if(trunc(a1*10)-trunc(a1*10,-1)=0,text(trunc(a1*10)-trunc(a1*10,-1),dbnum2g/通用格式)&角)&if(trunc(a1*100)-tr

4、unc(a1*100,-1)=0,text(trunc(a1*100)-trunc(a1*100,-1),”dbnum2g/ 通用格式)&分)&if(trunc(a1*100)-trunc(a1*100,-1)=0，整，)8、公式=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(ri

5、ght(round(a1,2),3)=.,text(right(round(a1,2),dbnum2)&分”,if(round(a1,2)=0,整),零元零,),零元,)9、公式=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)

6、,1)=0,right(trunc(a1*100),1),dbnum2),if(right(trunc(a1*100),1)=0, 分)10 、公式=if(a1=0,if(abs(a1)0.995,text(int(round(abs(a1),2),dbnum2)&)&if(right(text(a1,.00),2)*1=0,if(abs(a1)0.005,整),text(if(abs(a1)0.095,left(right(text(a1,.00),2),dbnum2)&if(left(right(text(a1,.00),2)*1=0, 角 )&if(right(text(a1,.00)*

7、1=0,整,text(right(text(a1,.00),dbnum2)& 分)11 、公式=if(a1=0,if(abs(a1)1,text(trunc(abs(a1),dbnum2)&元)&if(right(trunc(a1*100),2)*1=0,if(abs(a1)0.01,整),if(abs(a1)0.1,text(right(trunc(a1*10),dbnum2)&if(right(trunc(a1*10)*1=0,角)&if(right(trunc(a1*100)*1=0,整,text(right(trunc(a1*100),dbnum2)& 分)12 . 公式=if(a10

8、, 负 ,)&if(a1=0,if(abs(a1)0.995,text(int(round(abs(a1),2),dbnum2)&元)&if(right(text(a1,.00),2)=00,if(abs(a1)0.005,整),if(abs(a1)0.095,text(value(left(right(text(a1,.00),2),1),dbnum2)&if(left(right(text(a1,.00),2),1)=0,角)&if(right(text(a1,.00),1)=0,整,text(value(right(text(a1,.00),1),dbnum2)& 分)13 、公式=if

9、(h14=0,concatenate(if(int(abs(h14)=0,text(int(abs(h14),dbnum2g/通用格式元),if(int(mid(right(fixed(abs(h14),2,1),2),1,1)=0,if(int(mid(right(fixed(h14,2,1),1),1,1)=0,if(int(abs(h14)=0,零),text(int(mid(right(fixed(h14,2,1),2),1,1),dbnum2g/ 通 用 格 式 角),if(int(mid(right(fixed(h14,2,1),1),1,1)=0,整”,text(int(mid(

10、right(fixed(h14,2,1),1),1,1),dbnum2g/通用格式分)14 .公式=if(i170, 金 额 为 负 无 效,if(or(i17=0,i17=片零 元 整”,if(i17=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(abs(a1),2)=1,零”,”)&if(right(text(a1；00),2)*19,text(left(ri

11、ght(text(a1；00),2),dbnum2)&角精品资料,)&if(right(text(a1；00)*10,text(right(text(a1；00),dbnum2r)&分，整)16 .公式=大 写 金 额： &if(round(a1,2)0, 无 效 数 值,if(round(a1,2)=0, 零”,if(round(a1,2)0,负)&text(int(abs(b2),dbnum2g/ 通用格式元;)&substitute(substitute(text(right(fixed(b2),2),”dbnum20角 0 分;),零角,if(abs(b2)0,零),零分,)18、公式

12、精品资料,拾,佰,仟 ,万,拾=text(mid(int(b1),1,1),dbnum2)&choose(len(int(b1),万)&if(len(int(b1)-1=0,text(mid(int(b1),2,1),dbnum2)&choose(len(int(b1)-1, 圆 , 拾 , 佰 , 仟 , 万 , 拾 万)&if(len(int(b1)-2=0,text(mid(int(b1),3,1),dbnum2)&choose(len(int(b1)-2, 圆 , 拾 , 佰 , 仟 , 万 , 拾 万)&if(len(int(b1)-3=0,text(mid(int(b1),4,1),dbnum2)&choose(len(int(b1)-3,圆,拾,佰,仟,万,拾万)&if(len(int(b1)-4=0,text(mid(int(b1),5,1),dbnum2)&choose(len(int(b1)-4,圆,拾,佰,仟,万,拾万)&if(len(int(b1)-5=0,text(mid(int(b1),6,1),dbnum2)&choose(len(int(b1)-5, 圆 , 拾 , 佰 , 仟 , 万 , 拾 万 )&if(b1-int(b1)=0, 零 角 零 分,if(l