Excel2007函数集
- 格式:pdf
- 大小:4.32 MB
- 文档页数:11


在Excel2007中用自定义函数解决人民币大写转换图1 采购清单图1是女友某次商品采购的清单,我们的目的就是自定义一个函数,并通过调用这个自定义函数,轻松实现人民币金额的大写转换。
第一步:在Excel2007中打开VB编辑器窗口启动Excel ,打开图1所示的工作簿,依次单击“开发工具→代码→ Visual Basic”命令,打开“Visual Basic编辑器”窗口。
第二步:定义转换函数右击“Visual Basic编辑器”窗口中的“ThisWorkbook”,选择“插入→模块”命令,插入一个新的模块(默认名称为“模块1”),接着将以下代码输入到右侧的代码编辑区域中。
Function rmbb(M)y = Int(Abs(M))j = Round(Abs(M) - y, 2)f = (j * 10 - Int(j * 10)) / 10a = Application.Text(y, "[DBNum2]")d = "元"If j < 0.1 Then e = "" Else e = "角"If f < 0.01 Then g = "整" Else g = "分"If f < 0.01 Then c = "" Else c = Application.Text(Round(f * 100, 0), "[DBNum2]") If j = 0 Then b = "" Else b = Application.Text(Int(j * 10), "[DBNum2]")If M < 0 Then z = "负" Else z = ""rmbb = z & a & d & b & e & c & gEnd Function函数输入完毕后,关闭“Visual Basic编辑器”并返回,我们输入的代码就被自动保存了。