财务对账excel函数（excel中会计大写金额原来是这么玩）

尤其是会计工作报表

那么，在excel中该如何快速的把阿拉伯数字转化为大写数字呢

以下提供两种方法快速实现

用公式嵌套实现

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

会计大写

用vba自定义函数实现

Function Daxie(M)

Y=Int(Round(100*Abs(M))/100)

J=Round(100*Abs(M) 0.00001)-Y*100

F=(J/10-Int(J/10))*10

A=IIf(Y<1,"",Application.Text(Y,"[DBNum2]") & "元")

B=IIf(J>9.5,Application.Text(Int(J/10),"[DBNum2]") & "角",IIf(Y<1,"",IIf(F>1,"零","")))

C = IIf(F<1,"整",Application.Text(Round(F,0),"[DBNum2]") &"分")

Daxie=IIf(Abs(M)<0.005,"",IIf(M<0,"负" &A &B &C, A & B & C))

End Function

vba函数