您的位置:首页 >我爱生活 >

中文数字大小写转换器(中文数字大小写转换)

导读 大家好,小房来为大家解答以上的问题。中文数字大小写转换器,中文数字大小写转换这个很多人还不知道,现在让我们一起来看看吧!1、在与报销...

大家好,小房来为大家解答以上的问题。中文数字大小写转换器,中文数字大小写转换这个很多人还不知道,现在让我们一起来看看吧!

1、在与报销单类似的财务单据填写过程中,我们除了要输入用阿拉伯数字表示的小写数字金额外,还要输入相应的中文大写数字。

2、如果手工进行处理,不但输入时很繁琐,而且还很容易出错,经常会造成大小写不相符的情况发生。

3、为此,我们可以利用VBA自定义一个函数,然后再利用这个自定义的函数来实现货币大小的自动转换。

4、这样,不但方便快捷,而且不易出错。

5、具体的操作步骤如下:         1. 启动Excel。

6、按“Alt+F11”快捷键打开“Visual Basic编辑器”。

7、         2. 在“Visual Basic编辑器”中,单击“插入”菜单栏中的“模块”命令,插入一个模块。

8、双击左侧“工程”窗口中的“模块1”选项,在窗口右边展开“模块1(代码)”编辑窗口,然后输入如下代码:         Function dx(q)        Dim Cur as Long,yuan as Long        Dim Jiao as Integer,Fen as Integer        Dim CnYuan as String, CnJiao as String, CnFen as String        If q = "" Then        dx = 0        Exit Function        End If        Cur = Round(q * 100)        Yuan = Int(Cur / 100)        Jiao = Int(Cur / 10) - Yuan * 10        Fen = Cur - Yuan * 100 - Jiao * 10        CnYuan = Application.WorksheetFunction.Text(Yuan, "[DBNum2]")        CnJiao = Application.WorksheetFunction.Text(Jiao, "[DBNum2]")        CnFen  = Application.WorksheetFunction.Text(Fen, "[DBNum2]")        dx = CnYuan & "元" & "整"        d1 = CnYuan & "元"        If Fen 0 And Jiao 0 Then        dx = d1 & CnJiao & "角" & CnFen & "分"        If Yuan = 0 Then        dx = CnJiao & "角" & CnFen & "分"        End If        End If        If Fen = 0 And Jiao 0 Then        dx = d1 & CnJiao & "角" & "整"        If Yuan = 0 Then        dx = CnJiao & "角" & "整"        End If        End If        If Fen 0 And Jiao = 0 Then        dx = d1 & CnJiao & CnFen & "分"        If Yuan = 0 Then        dx = CnFen & "分"        End If        End If        End Function         输入完成后,关闭“Visual Basic编辑器”返回工作表。

9、现在,我们可测试一下这个函数。

10、首先,在A1单元格中输入一个小写数字的金额,例如123456.78,然后,在A2单元格中输入公式:=dx(A1),确认后即可将A1所表示的小写数字金额转换为大写的数字金额,并在A2单元格中显示出来。

11、怎么样,方便吧?。

本文到此分享完毕,希望对大家有所帮助。

免责声明:本文由用户上传,如有侵权请联系删除!