Excel 的元角分整！！

HI 我，帮你看看

1. 首先更正一下，到了角分，就不用整字了。整正对于单位元。另外，支票大写需要补零，比如壹万零千伍佰零十元。这个函数不是
2. 进入EXCEL 按 ALT + F11 进入VBA
3. 右击VBA工作簿，插入---模块，将以下代码复制进去
4. 用=daxie() 公式调用

Function daxie(money As String) As String
'实现货币金额中文大写转换的程序
'程式限制为不可输入超过16个数字
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定义位置代码
Const letter = "0123456789sbqwy.zjf" '定义汉字缩写
Const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿元整角分" '定义大写汉字

If CDbl(money) >= 1E+16 Then daxie = "#VALUE!": 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
y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f" '*元*角*分
End If
y = Replace(y, "0q", "0") '避免零千(如：40200肆万零千零贰佰)
y = Replace(y, "0b", "0") '避免零百(如：41000肆万壹千零佰)
y = Replace(y, "0s", "0") '避免零十(如：204贰佰零拾零肆)

y = Replace(y, "0j", "0") '避免零角
y = Replace(y, "0f", "") '避免零分

Do While y <> Replace(y, "00", "0")
y = Replace(y, "00", "0") '避免双零(如：1004壹仟零零肆)
Loop
y = Replace(y, "0y", "y") '避免零亿(如：210亿 贰佰壹十零亿)
y = Replace(y, "0w", "w") '避免零万(如：210万 贰佰壹十零万)
y = IIf(x < 0.1, Right(y, Len(y) - 3), y) '避免零几分(如：0.01零壹分；0.04零肆分)
y = IIf(Len(x) = 4, Replace(y, "0.", ""), Replace(y, "0.", ".")) '避免零元(如：20.00贰拾零元；0.12零元壹角贰分)

For i = 1 To 19
y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大写汉字
Next
daxie = y
End Function

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vy2jj7ry3.html