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的界面，测试函数。测试成功，即可使用。
4、在任意单元各种输入需要转换的数值，然后如入函数=RMBDX(A1)回车
5、这样自定义的函数虽然可以像内置函数一样使用，不过却并不是真正的内置函数，只能用于当前工作簿。
6、工作簿的保存。可以将工作簿保存为xls格式或者保存为XLSM格式（启用宏的文档）
