在excel中添加“金额大写”自定义函数

《在excel中添加“金额大写”自定义函数》由会员分享，可在线阅读，更多相关《在excel中添加“金额大写”自定义函数（2页珍藏版）》请在金锄头文库上搜索。

1、在EXCEL中添加“金额大写”自定义函数 在EXCEL日常应用中，有时要将阿拉伯数字转化为人民币大写金额，但在EXCEL函数中的找不出一个这样的函数，往往需要手工录入，非常繁琐。下面介绍一个自定义函数，实现将阿拉伯数字自动转化为人民币大写金额。1、 打开EXCEL，选择“工具”-“宏”-“安全性”，将“安全性”设置为中。2、 选择“工具”-“宏”-“VISUAL BASIC编辑器”，打开“VISUAL BASIC编辑器”界面，选择“插入”-“模块”，插入一个模块一，将以下VBA代码复制到模块一，按“保存”、“关闭”按钮，返回EXCEL。3、 选择一个单元格，点“插入”-“函数”，在“选择类别”

2、中选自定义函数，就可以看到自己增加了的函数“金额大写”。该函数可以像EXCEL内置函数一样使用。 举例：“金额大写”函数的运用在A列输入数字，在B列运用“金额大写”函数。 AB金额小写金额大写1123壹佰贰拾叁元整2120壹佰贰拾元整3123.45壹佰贰拾叁元肆角伍分4123.4壹佰贰拾叁元肆角整5123.05壹佰贰拾叁元零伍分60.05伍分70.5伍角整812300.45壹万贰仟叁佰元肆角伍分912003.45壹万贰仟零叁元肆角伍分Function 金额大写(curmoney As Currency) As StringDim curmoney1 As CurrencyDim i1 As L

3、ongDim i2 As IntegerDim i3 As IntegerDim s1 As String, s2 As String, s3 As Stringcurmoney1 = Round(curmoney * 100)i1 = Int(curmoney1 / 100)i2 = Int(curmoney1 / 10) - i1 * 10i3 = curmoney1 - i1 * 100 - i2 * 10s1 = Application.WorksheetFunction.Text(i1, DBNum2)s2 = Application.WorksheetFunction.Text(i

4、2, DBNum2)s3 = Application.WorksheetFunction.Text(i3, DBNum2)s1 = s1 & 元If i3 0 And i2 0 Thens1 = s1 & s2 & 角 & s3 & 分If i1 = 0 Thens1 = s2 & 角 & s3 & 分End IfEnd IfIf i3 = 0 And i2 0 Thens1 = s1 & s2 & 角整If i1 = 0 Thens1 = s2 & 角整End IfEnd IfIf i3 0 And i2 = 0 Thens1 = s1 & s2 & s3 & 分If i1 = 0 Thens1 = s3 & 分End IfEnd IfIf Right(s1, 1) = 元 Then s1 = s1 & 整金额大写 = s1End Function2