欧美vvv,亚洲第一成人在线,亚洲成人欧美日韩在线观看,日本猛少妇猛色XXXXX猛叫

本文為《別怕，Excel VBA其實(shí)很簡單（第3版）》隨書問題參考答案

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

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

RmbDx(ByVal c) As

. True

c = Val(c)

RmbDx = ..Text(c, "[]")

RmbDx = (RmbDx, "-", "負(fù)")

End

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

RmbDx(ByVal c) As

. True

c = Val(c)

RmbDx = ..Text(c, "[]")

RmbDx = (RmbDx, "-", "負(fù)")

If c = Fix(c) Then

RmbDx = RmbDx & "元整"

End If

End

3.在只包含“角”信息excel中如何把金額變成大寫，不含“分”信息的金額中添加“元”和“分”信息.

RmbDx(ByVal c) As

. True

Dim p As

c = Val(c)

RmbDx = ..Text(c, "[]")

RmbDx = (RmbDx, "-", "負(fù)")

If c = Fix(c) Then

RmbDx = RmbDx & "元整"

Else

RmbDx = (RmbDx, ".", "元")

If c * 10 = Fix(c * 10) Then

RmbDx = RmbDx & "角"

End If

End If

End

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

RmbDx(ByVal c) As

. True

Dim p As

c = Val(c)

RmbDx = ..Text(c, "[]")

RmbDx = (RmbDx, "-", "負(fù)")

If c = Fix(c) Then

RmbDx = RmbDx & "元整"

Else

p = InStr(RmbDx, ".")

RmbDx = (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

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