2024年4月2日发(作者：)
Excel中金额大小写转换
一、Excel中金额大小写转换公式
公式1：
“=IF(ROUND(E19,2)=0,"",IF(ROUND(ABS(E19),2)>=1,TEXT(INT(ROUND(ABS(E19),
2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(E19,".00"),2)*1=0,"整
零
零
",IF(RIGHT(TEXT(E19,".00"),4)*1>=1,IF(RIGHT(TEXT(E19,".00"),2)*1>9,"","
"),IF(ROUND(ABS(E19),2)>=1,"
",""))&IF(RIGHT(TEXT(E19,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(E19,".00"),2)),"[DB
Num2]")&"角
","")&IF(RIGHT(TEXT(E19,".00"))*1>0,TEXT(RIGHT(TEXT(E19,".00")),"[DBNum2]")&"
分","整")))”
公式2：
“=IF(F4<1,IF(F4<0.1,TEXT(INT(F4*100),"[DBNum2]G/通用格式")&"分
",IF((INT(F4*100)-INT(F4*10)*10=0),TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角
整",TEXT(INT(F4*10),"[DBNum2]G/通用
通
格
格
用
式
格
式
式
")&"
")&"
"&"
角
分
元
零
零
通用格式")&"角
整
"&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/
")),TEXT(INT(F4),"[DBNum2]G/通用
")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","
"),IF((INT(F4*0.1)-INT(F4)*0.1)=0,"
","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/
")&IF((INT(F4*100)-INT(F4*10)*10)=0,"
",TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分"))”
公式3：
“=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"
分",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式
")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通
通
格
用
用
格
格
式
式
式
")&"
")&"
角
分
元
零
零
通用格式")&"角
整
"&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/
")),TEXT(INT(B10),"[DBNum2]G/通用"&"
")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","
"),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"
","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/
")&IF((INT(B10*100)-INT(B10*10)*10)=0,"
",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))”
二、Excel中金额大小写转换函数[=ntoc(单元格)]
使用加载宏方法：
“工具栏”→ “宏”→ “Visual Basic编辑器”，在“Visual Basic编辑器”中顶部
选“插入”→ “模块”，在“模块”对话框中选“通用”，并在编辑区域内粘贴以下内容：
Function NtoC(n) 'n as single
Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"
Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零
亿万元亿零整整"
NtoC = ""
sNum = Trim(Str(Int(n * 100)))
For i = 1 To Len(sNum) '逐位转换
NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 -
Len(sNum) + i, 1)
Next
For i = 0 To 11 '去掉多余的零
NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))
Next
End Function
然后单击“保存”，关闭“Visual Basic编辑器”，回到“工作表１”，输入函数“=NtoC(单
元格)”即可。
发布评论