投稿
  1. excel,word,ppt使用教程网首页
  2. Word Excel PPT教程

在Excel函数公式里面怎么把一个数字变成大写的

Word Excel PPT爱好者 • • Word Excel PPT教程 • 阅读 333

方法一：
Function 大写金额(N)
‘数字转为大写金额，仅一个参数。
Application.Volatile
大写金额 = Replace(Application.Text(Round(N + 0.00000001, 2), “[DBnum2]”), “.”, “元”)
大写金额 = IIf(Left(Right(大写金额, 3), 1) = “元”, Left(大写金额, Len(大写金额) – 1) & “角” & Right(大写金额, 1) & “分”, IIf(Left(Right(大写金额, 2), 1) = “元”, 大写金额 & “角整”, IIf(大写金额 = “零”, “”, 大写金额 & “元整”)))
大写金额 = Replace(Replace(Replace(Replace(大写金额, “零元零角”, “”), “零元”, “”), “零角”, “零”), “-“, “负”)
End Function

将上面的自定义函数作为加载宏加载到你的EXCEL程序中,再插入函数“大写金额(N)”即可
方法二：
B1输入=IF(ROUND(A1,2)<0,”无效数值”,IF(ROUND(A1,2)=0,”零”,IF(ROUND(A1,2)<1,””,TEXT(INT(ROUND(A1,2)),”[dbnum2]”)&”元”)&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,””,”零”),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,”[dbnum2]”)&”角”)&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,”整”,TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),”[dbnum2]”)&”分”)))

版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 2305938578@qq.com 举报，一经查实，本站将立刻删除。本文网址：https://www.excelwordppt.com/word-excel-ppt/24050.html

赞 (0)
Word Excel PPT爱好者Word Excel PPT爱好者
0 0
上一篇 2024年3月29日 am9:42
下一篇 2024年3月29日 am10:04

相关推荐

发表评论

登录后才能评论