• 技术文章 >专题 >excel

    四步教你Excel将人民币数字金额转为中文大写

    长期闲置长期闲置2022-06-24 11:56:36转载554
    本篇文章给大家带来了关于excel的相关知识,其中主要整理了将人民币数字金额转为中文大写的方法,下面一起来看一下,希望对大家有帮助。

    EXCEL手机版(内含百种各行模版):点击查看

    相关学习推荐:excel教程

    要将数字金额转为中文大写,需要经历以下几个步骤:

    1.将阿拉伯小写数字转为中文大写。这可以用到前面章节例子中,将数字转为中文大写的代码,如:

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

    2.在整数金额的后面添加“元整”.可以借助IF语句及FIX取整函数来判断某个金额是否整数金额。

    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.在包含“角”与“分”信息的数据中添加“角”和“分”信息。

    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

    这样即可得到将人民币金额转为中文大写金额的自定义函数RmbDx,效果如下图。

    08.png

    相关学习推荐:excel教程

    以上就是四步教你Excel将人民币数字金额转为中文大写的详细内容,更多请关注php中文网其它相关文章!

    声明:本文转载于:CSDN,如有侵犯,请联系admin@php.cn删除

    广告:Excel视频教程零基础入门到精通高级教学视频

    专题推荐:Excel
    上一篇:归纳总结Excel超级表的应用 下一篇:实用Excel技巧分享:带你搞懂“绝对引用”和“混合引用”
    手机EXCEL

    相关文章推荐

    • 【活动】充值PHP中文网VIP即送云服务器• Excel实战解析之项目进度图• 实例解析Excel怎么用条件格式制作旋风图• Excel中的AND和OR函数使用解析• Excel隐藏函数之DATEDIF• Excel中COUNTIF函数的用法总结
    1/1

    PHP中文网