將人民幣數字金額轉為中文大寫

將人民幣數字金額轉為中文大寫

本文為《別怕，Excel VBA其實很簡單（第3版）》隨書問題參-

要將數字金額轉為中文大寫，需要經歷以下幾個步驟：

1.將阿拉伯小寫數字轉為中文大寫。這可以用到前面章節例子中，將數字轉為中文大寫的代碼，如：

Function RmbDx(ByVal c) As StringApplication.Volatile Truec = Val(c)RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")RmbDx = Replace(RmbDx, "-", "負")End Function

2.在整數金額的后面添加“元整”.可以借助IF語句及FIX取整函數來判斷某個金額是否整數金額。

Function RmbDx(ByVal c) As StringApplication.Volatile Truec = Val(c)RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")RmbDx = Replace(RmbDx, "-", "負")If c = Fix(c) ThenRmbDx = RmbDx & "元整"End IfEnd Function

3.在只包含“角”信息，不含“分”信息的金額中添加“元”和“分”信息.

Function RmbDx(ByVal c) As StringApplication.Volatile TrueDim p As Integerc = Val(c)RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")RmbDx = Replace(RmbDx, "-", "負")If c = Fix(c) ThenRmbDx = RmbDx & "元整"ElseRmbDx = Replace(RmbDx, ".", "元")If c * 10 = Fix(c * 10) ThenRmbDx = RmbDx & "角"End IfEnd IfEnd Function

4.在包含“角”與“分”信息的數據中添加“角”和“分”信息。

Function RmbDx(ByVal c) As StringApplication.Volatile TrueDim p As Integerc = Val(c)RmbDx = Application.WorksheetFunction.Text(c, "[DBNum2]")RmbDx = Replace(RmbDx, "-", "負")If c = Fix(c) ThenRmbDx = RmbDx & "元整"Elsep = InStr(RmbDx, ".")RmbDx = Replace(RmbDx, ".", "元")If c * 10 = Fix(c * 10) ThenRmbDx = RmbDx & "角"ElseRmbDx = Left(RmbDx, p) & Mid(RmbDx, p + 1, 1) & "角" & Right(RmbDx, 1) & "分"End IfEnd IfEnd Function

這樣即可得到將人民幣金額轉為中文大寫金額的自定義函數RmbDx，效果如下圖。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。