本篇文章給大家帶來了關于excel的相關知識，其中主要整理了將人民幣數字金額轉為中文大寫的方法，下面一起來看一下，希望對大家有幫助。
相關學習推薦：excel
要將數字金額轉為中文大寫，需要經歷以下幾個步驟：
1.將阿拉伯小寫數字轉為中文大寫。這可以用到前面章節例子中，將數字轉為中文大寫的代碼，如：
Function RmbDx(ByVal c) As String
Application.volatile True
c = Val(c)
RmbDx = Application.WorksheetFunction.Text(c, “[DBNum2]”)
RmbDx = Replace(RmbDx, “-“, “負”)
End Function
2.在整數金額的后面添加“元整”.可以借助IF語句及FIX取整函數來判斷某個金額是否整數金額。
Function RmbDx(ByVal c) As String
Application.Volatile True
c = Val(c)
RmbDx = Application.WorksheetFunction.Text(c, “[DBNum2]”)
RmbDx = Replace(RmbDx, “-“, “負”)
If c = Fix(c) Then
RmbDx = RmbDx & “元整”
End If
End Function
3.在只包含“角”信息，不含“分”信息的金額中添加“元”和“分”信息.
Function RmbDx(ByVal c) As String
Application.Volatile True
Dim p As Integer
c = Val(c)
RmbDx = Application.WorksheetFunction.Text(c, “[DBNum2]”)
RmbDx = Replace(RmbDx, “-“, “負”)
If c = Fix(c) Then
RmbDx = RmbDx & “元整”
Else
RmbDx = Replace(RmbDx, “.”, “元”)
If c * 10 = Fix(c * 10) Then
RmbDx = RmbDx & “角”
End If
End If
End Function
4.在包含“角”與“分”信息的數據中添加“角”和“分”信息。
Function RmbDx(ByVal c) As String
Application.Volatile True
Dim p As Integer
c = Val(c)
RmbDx = Application.WorksheetFunction.Text(c, “[DBNum2]”)
RmbDx = Replace(RmbDx, “-“, “負”)
If c = Fix(c) Then
RmbDx = RmbDx & “元整”
Else
p = InStr(RmbDx, “.”)
RmbDx = Replace(RmbDx, “.”, “元”)
If c * 10 = Fix(c * 10) Then
RmbDx = RmbDx & “角”
Else
RmbDx = Left(RmbDx, p) & Mid(RmbDx, p + 1, 1) & “角” & Right(RmbDx, 1) & “分”
End If
End If
End Function
這樣即可得到將人民幣金額轉為中文大寫金額的自定義函數RmbDx，效果如下圖。
相關學習推薦：excel
