您的位置首页生活百科

Excel人民币大写转换函数

Excel人民币大写转换函数

的有关信息介绍如下:

Excel人民币大写转换函数

使用excel自定义函数(VBA)实现人民币由小写数字转换为大写数字。

1.启动excel,按alt+F11组合键打开vba编辑窗口,并插入一个新模块。如图:

2.在《模块1》的编辑窗口中填写如下代码:

Public Function RMBDX(M)

'人民币大写函数

RMBDX = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")

RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", IIf(RMBDX = "零", "", RMBDX & "元整")))

RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")

End Function

3.切换回EXCEL的界面,测试函数。

测试成功,即可使用。

在任意单元各种输入需要转换的数值,

然后如入函数=RMBDX(A1)

回车

这样自定义的函数虽然可以像内置函数一样使用,不过却并不是真正的内置函数,只能用于当前工作簿。

工作簿的保存。

可以将工作簿保存为xls格式

或者保存为XLSM格式(启用宏的文档)

如果仅需要转换为中文大写数字,可通过设置单元格格式的方法进行转换

选中单元格——鼠标右键——设置单元格格式——特殊——中文大写

同理,转为中文小写的方法,如此相似。

注意:

使用单元格格式的方法,修改的仅仅是显示的内容,单元格的内容实际上还是阿拉伯数字;

使用自定义函数RMBDX的方法,转换后的单元格内容,不再是阿拉伯数字,而是中文文本。