使用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的方法，转换后的单元格内容，不再是阿拉伯数字，而是中文文本。

特别提示

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

如对您有帮助，请投票支持，谢谢！

如有疑问，请提问留样。