在excel中如何实现将输入的数字转换为大写的人民币

《在excel中如何实现将输入的数字转换为大写的人民币》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在Excel中如何实现将输入的数字转换为大写的人民币?作者:李登伦  发布时间:2003-11-1823:37:42 阅读次数:未知    在EXCEL97和EXCEL2000中，系统并没有提供将输入的数字直接转换为大写人民币的函数，在这里，我用编程的方式实现了这种转换。为了和系统本身提供的函数RMB（）相区别（其功能是将数字转换为加￥的小写人民币格式），我这里取名为cnRMB（）。大家可能会问我如何使用？好，下面我一一讲来。    首先将下面的程序代码存为一个文本文件，如“人民币大写.bas”，注意扩展名要用bas，然后打开EXCEL（97和2

2、000都可以），选择“工具->宏->Visual Basic 编辑器(V)”，是不是打开了一个窗口？在打开的窗口中选择“文件->导入文件(I)...”，在对话框中选择我们上面保存的文件（“人民币大写.bas”），OK，关闭这个窗口回到EXCEL。    在最左上的单元格（就是A1了，你不会不知道吧？）中输入数字123,在B1单元格中输入“=cnRMB(A1)”，呵呵，看到结果了吧？就和使用系统自带的函数一样啊。好了，就这么简单，一个函数就搞定了。比用EXCEL自身提供的函数多重嵌套实现起来简单多了吧？    如何一劳永逸？    当然有办法了，把

3、你现在的这个文件存为模板不就得了么！要注意的是在用这个模板新建文件时要“启用宏”哦。这段程序看起来短，可写了一天半，因为本人VB都忘得差不多了，一边查资料一边写，还真难了我好久。有不完善的地方（如只能实现最多15位数字，不能处理负值等），请大家多多指教。    以下为程序代码：Attribute VB_Name = "人民币大写"Rem *********************************************************************Rem ** 函数名:getBitMoney()Rem **Rem ** 

4、功能:  转换一位数字为中文大写Rem **Rem ** 参数:  moneyInput                  输入数字Rem **Rem ** 功能:  返回中文大写数字Rem **Rem ** 作者: 四川省信息通信学校 李登伦  日期: 2003/3/20Rem **Rem ***********************************************************************Function getBitMoney(moneyInput)    Select Case moneyInput

5、    Case 0    moneyOut = "0"    Case 1    moneyOut = "壹"    Case 2    moneyOut = "贰"    Case 3    moneyOut = "叁"    Case 4    moneyOut = "肆"    Case 5    moneyOut = "伍"    Case 6    moneyOut = "陆"    Case 7    moneyOut = "柒"    Case 8    moneyOut = "捌"    Case 9    moneyOut =

6、 "玖"    End Select    getBitMoney = moneyOutEnd FunctionRem *********************************************************************Rem ** 函数名:cnRMB()Rem **Rem ** 参数:  money                   输入金额Rem **Rem ** 功能:  返回中文大写金额Rem **Rem ** 作者:  四川省信息通信学校 李登伦  日期: 2003/03/20Rem **Rem 

7、***********************************************************************Function cnRMB(money)    myMoney = moneyRem    由于VB中int型数据长度为16位,EXCEL中超过15位部分会被切断为0，如输入1234567890123456会被改为1234567890123450。    If Len(myMoney) > 17 Then        MsgBox "你输入的数字太大了,长度不能大于15位。---【程序设计:李登伦】",

8、 , "出错啦!"        cnRMB = "错误:数字太大"        Exit Function    End If