本篇文章給大家?guī)砹岁P(guān)于excel的相關(guān)知識，其中主要整理了將人民幣數(shù)字金額轉(zhuǎn)為中文大寫的方法，下面一起來看一下，希望對大家有幫助。

手機如何做表格：點擊查看

相關(guān)學習推薦：excel教程

要將數(shù)字金額轉(zhuǎn)為中文大寫，需要經(jīng)歷以下幾個步驟：

1.將阿拉伯小寫數(shù)字轉(zhuǎn)為中文大寫。這可以用到前面章節(jié)例子中，將數(shù)字轉(zhuǎn)為中文大寫的代碼，如：

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

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

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.在包含“角”與“分”信息的數(shù)據(jù)中添加“角”和“分”信息。

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

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

相關(guān)學習推薦：excel教程