作者信息

长期闲置

长风破浪会有时,直挂云帆济沧海。

最近文章
ajax请求时post和get的区别是什么812
ajax默认是异步请求吗304
cors和ajax的区别是什么577
视频教程分类
推荐视频教程
  • php程序员小白到大牛三个月集训php程序员小白到大牛三个月集训
  • Laravel 9 学习正当时—保姆级教程,想学不会都难!Laravel 9 学习正当时—保姆级教程,想学不会都难!
  • 千万级数据并发解决方案(理论+实战)千万级数据并发解决方案(理论+实战)
  • Laravel基础与实战(模块化)Laravel基础与实战(模块化)
  • 首页 >专题 >excel > 正文

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

    转载2022-06-24 11:56:361089 关注公众号:每天精选资源文章推送
    本篇文章给大家带来了关于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
  • 推荐:PHP从基础到实战教程视频

    相关文章

    相关视频


    专题推荐