引言 ,在公司经常需要写资金申请单,在最后金额总计处总会涉及人民币大小写的选项,有的时候非常忙,经常搞的焦头烂额的,改了小写的金额,忘了改大写的金额,找领导签字时被领导一顿K是难免的.怎么办呢,其实很简单只要一个函数或者是财务人员excel功夫了得,在涉及表格的时候就该为我们设计好贴心的申请表格.没办法,我们公司的财务表格使用的不是很好.自己来解决吧.
首先根据公司资金申请表的形式做了如下修改.
1 实现每次当想填写资金申请表时都显示当前的时间,这个在网上搜索了下,只要在要显示日期的位置加入一个函数即可 如 =TODAY() ,但是这样显示的是2013/*/*,不合适,还需手工将短日期格式改成长日期格式.
2 对于人民币大小写 一直是个头痛的问题,在excelhome找到了一个自定义函数可以实现自动转换的功能,跟大家一起分享下.
具体代码如下:
Function N2RMB(M)
N2RMB = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")
N2RMB = IIf(Left(Right(N2RMB, 3), 1) = "元", Left(N2RMB, Len(N2RMB) - 1) & "角" & Right(N2RMB, 1) & "分", IIf(Left(Right(N2RMB, 2), 1) = "元", N2RMB & "角整", IIf(N2RMB = "零", "", N2RMB & "元整")))
N2RMB = Replace(Replace(Replace(Replace(N2RMB, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function
将以上代码添加到自定义函数,然后在要转换的大小写单元格 直接调用函数 N2RMB即可实现大小写的自动转换.
=N2RMB(单元格).
插入数据并调用函数
结果如下.
|
