數(shù)字轉(zhuǎn)換為大寫數(shù)字公式-摘自百度經(jīng)驗

將小寫數(shù)字轉(zhuǎn)化為財會大寫數(shù)字編輯公式摘至：/article/d2b1d1024cb3f65c7f37d46b.html步驟/方法1.第一種方法：通過函數(shù)嵌套實現(xiàn)數(shù)字轉(zhuǎn)人民幣大寫形式的公式是：=IF(B1vO,"金額為負無效"，(IF(OR(B1=0,B1=""),"(人民幣)零元"，IF(B1v1,"(人民幣)”，TEXT(INT(B1),"[dbnum2](人民幣)G/通用格式")&"元"))))&IF((INT(B1*10)-INT(B1)*10)=0,IF(INT(B1*100)-INT(B1*10)*10=0,"","零”)，(TEXT(INT(B1*10)-INT(B1)*10,"[dbnum2]")&"角"))&IF((INT(B1*100)-INT(B1*10)*10)=0,"整“，TEXT((INT(B1*100)-INT(B1*10)*10),"[dbnum2]")&"分")數(shù)字轉(zhuǎn)人民幣大寫形式的公式是：="大寫金額："&IF(TRIM(B1)="","",IF(B1=0,"","人民幣"&IF(B1<0,"負",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))ABc1第一種醪式：1259.69（人民幣）壹仟貳佰伍拾玖元陸角玖分2笫二種形式：12旳.6$大寫金額：人民幣壹訐貳佰伍拾玫元陸角玖分2.第二種方法：通過宏VBA自定義函數(shù)實現(xiàn)第一步：按下ALT+F11組合鍵，或者是單擊工具宏VisualBasic編輯器，進入VisualBasic編程環(huán)境,單擊“插入”菜單模塊，復制下面代碼，保存，退出關閉。FunctionN2RMB(M)y=int(Round(100*Abs(M))/100)j=Round(100*Abs(M)+0.00001)-y*100f=(j/10-int(j/10))*10A=iif(yv1,"",Application.Text(y,"[DBNum2]")&"元")b=iif(j>9.5,Application.Text(int(j/10),"[DBNum2]")&"角",iif(yv1,"",iif(f>1,"零"，"")))

c=iif(f<1,"整",Application.Text(Round(f,0),"[DBNum2]")&"分")N2RMB=iif(Abs(M)<0.005,"”,iif(M<0,"負"&A&b&c,A&b&c))EndFunction第二步：返回excel操作界面，在B1單元格輸入：=N2RMB(A1),就可以將A1單元格的數(shù)字轉(zhuǎn)為人民幣大寫，然后向下復制公式即可將全部的數(shù)字轉(zhuǎn)為人民幣大寫。Bl--N2m(Al)AB10.0120,12壹角貳分3I.23壹元貳角巻分412.34壹牯感元巻角肆分5123.45壹佰貳拾巻兀肆角伍分61234.56壹仟貳佰巷拾肆元伍角陸分712345.67壹萬貳仟卷佰肆推伍兀陸角蕖分二123456.78壹拾貳萬巻仟肆佰伍拾陸兀榮角捌分91234567.89豈佰貳拾巻萬肆仟伍伯陸抬耒元芻寸弟玖分1012345678.90壹仟貳佰卷