在excel表格中如何把rmb去掉,只显示后面的大写数字

2024年5月10日发(作者：)

在excel表格中如何把rmb

去掉,只显示后面的大写

数字

篇一：在excel中把阿拉伯数字自动显示成人民币大写

嘿嘿，把代码修改了一下下，精确到角的。

Function daxie(money As String) As String

Dim x As String, y As String

Const zimu = .sbqwsbqysbqwsbq '定义位置代码

Const letter = '定义汉字缩写

Const upcase = 零壹贰叁肆伍陆柒捌玖拾佰仟万亿元整

角分 '定义大写汉字 Dim temp As String, sign As

String

If Left(money, 1) = - Then

money = Mid(money, 2)

sign = 负

Else

sign =

End If

1

temp = money

If InStr(temp, .) 0 Then temp = Left(temp, InStr(temp, .)

- 1)

If Len(temp) 16 Then daxie = 数目太大，无法换算！:

Exit Function

x = Format(money, 0.00) '格式化货币

y =

For i = 1 To Len(x) - 3

y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)

Next

If Right(x, 3) = .00 Then

y = y & z '***元整

Else

If j < 0 Then

y = y & Left(Right(x, 2), 1) & j & z

'*元*角*分

Else

y = y & Left(Right(x, 2), 0) & z

End If

End If

y = Replace(y, 0q, 0) '避免零千(如：40200肆萬零千

零贰佰) y = Replace(y, 0b, 0) '避免零百(如：41000肆

2