大小写报错

每天学一点。

各位高手们帮我看看
Function DX(M) '人民币大写  163字符A 无缺陷 负数显示 “负”

On Error Resume Next
    DX = Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0;负 0. 0 0; ")), ["[DBnum2]"&{0,"","元0角;;元零","0分;;整"}]), A), "零元零", A), "零元", A), "零整", "整")

End Function
如果注释On Error Resume Next这句就报错,高手们帮我看看

tanglf188

替换

1. Function DX(amountInFigures As Variant) '人民币大写  163字符A 无缺陷 负数显示 “负”
   
2.     Dim amountInWord As String
   
3.     amountInFigures = Format(amountInFigures, "standard")
   
4.     amountInWord = Application.WorksheetFunction.Text(amountInFigures, "[dbnum2]")
   
5.     amountInWord = Replace(amountInWord, "-", "负")
   
6.     If CInt(Right(amountInFigures, 2)) = 0 Then
   
7.         DX = amountInWord & "元整"
   
8.     ElseIf CInt(Right(amountInFigures, 2)) > 0 Then
   
9.         amountInWord = Replace(amountInWord, ".", "元")
   
10.         If CInt(Right(amountInFigures, 1)) = 0 Then
    
11.             DX = amountInWord & "角"
    
12.         ElseIf CInt(Right(amountInFigures, 2)) < 10 Then
    
13.             DX = Left(amountInWord, Len(amountInWord) - 1) & Right(amountInWord, 1) & "分"
    
14.         ElseIf CInt(Right(amountInFigures, 2)) > 10 Then
    
15.             DX = Left(amountInWord, Len(amountInWord) - 1) & "角" & Right(amountInWord, 1) & "分"
    
16.         End If
    
17.     End If
    
18. End Function
    

复制代码

大写函数

每天学一点。

tanglf188 发表于 2024-4-26 17:23
替换大写函数

谢谢你的回复