Excel数字转大写数字(含小数点)
生活随笔
收集整理的這篇文章主要介紹了
Excel数字转大写数字(含小数点)
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
Excel 轉大寫數字目前總結了兩種方法.
第一種:使用公式
=TEXT(TRUNC(F18),"[DBNum2]")&"元"&TEXT(RIGHT(FIXED(F18),2),"[dbnum2]0角0分整;;"&IF(ABS(F18)>1%,"整",))第二種:編寫腳本
通過宏VBA自定義函數實現第一步:按下ALT+F11組合鍵,或者是單擊工具——宏——Visual Basic編輯器,進入Visual Basic編程環境,單擊“插入” 菜單——模塊,復制下面代碼,保存,退出關閉。
Function N2RMB(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]") & "分") N2RMB = IIf(Abs(M) < 0.005, "", IIf(M < 0, "負" & A & b & c, A & b & c)) End Function返回excel操作界面,在B1單元格輸入:= N2RMB (A1),就可以將A1單元格的數字轉為人民幣大寫,然后向下復制公式即可將全部的數字轉為人民幣大寫。
總結
以上是生活随笔為你收集整理的Excel数字转大写数字(含小数点)的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 异地如何在京考驾照
- 下一篇: 深山红叶袖珍PE系统工具箱说明 V22