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

    首先将下面的程序代码存为一个文本文件，如“人民币大写.bas”，注意扩展名要用bas，然后打开EXCEL（97和2000都可以），选择“工具->宏->Visual Basic 编辑器(V)”，是不是打开了一个窗口？在打开的窗口中选择“文件->导入文件(I)...”，在对话框中选择我们上面保存的文件（“人民币大写.bas”），OK，关闭这个窗口回到EXCEL。 

    在最左上的单元格（就是A1了，你不会不知道吧？）中输入数字123,在B1单元格中输入“=cnRMB(A1)”，呵呵，看到结果了吧？就和使用系统自带的函数一样啊。好了，就这么简单，一个函数就搞定了。比用EXCEL自身提供的函数多重嵌套实现起来简单多了吧？ 

    如何一劳永逸？ 

    当然有办法了，把你现在的这个文件存为模板不就得了么！要注意的是在用这个模板新建文件时要“启用宏”哦。 

这段程序看起来短，可写了一天半，因为本人VB都忘得差不多了，一边查资料一边写，还真难了我好久。有不完善的地方（如只能实现最多15位数字，不能处理负值等），请大家多多指教。 

    以下为程序代码： 

Attribute VB_Name = "人民币大写" 

Rem ********************************************************************* 

Rem ** 函数名:getBitMoney() 

Rem ** 

Rem ** 功能:  转换一位数字为中文大写 

Rem ** 

Rem ** 参数:  moneyInput                  输入数字 

Rem ** 

Rem ** 功能:  返回中文大写数字 

Rem ** 

Rem ** 作者: 四川省信息通信学校 李登伦  日期: 2003/3/20 

Rem ** 

Rem *********************************************************************** 

Function getBitMoney(moneyInput) 

    Select Case moneyInput 

    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 = "玖" 

    End Select 

    getBitMoney = moneyOut 

End Function 

Rem ********************************************************************* 

Rem ** 函数名:cnRMB() 

Rem ** 

Rem ** 参数:  money                   输入金额 

Rem ** 

Rem ** 功能:  返回中文大写金额 

Rem ** 

Rem ** 作者:  四川省信息通信学校 李登伦  日期: 2003/03/20 

Rem ** 

Rem *********************************************************************** 

Function cnRMB(money) 

    myMoney = money 

Rem    由于VB中int型数据长度为16位,EXCEL中超过15位部分会被切断为0，如输入12345670123456会被改为12345670123450。 

    If Len(myMoney) > 17 Then 

        MsgBox "你输入的数字太大了,长度不能大于15位。---【程序设计:李登伦】", , "出错啦!" 

        cnRMB = "错误:数字太大" 

        Exit Function 

    End If 

    If money <= 0 Then 

        moneyChinese = "错误:不能为负值"   

Rem负值不用进行处理 

        cnRMB = moneyChinese 

        Exit Function 

    End If 

    lenMoney = Len(money)   

Rem取得金额的位数 

    intMoney = Int(money)    

Rem用到了int()函数 

    intLen = Len(intMoney)     

Rem取得整数金额的位数 

    deciLen = lenMoney - intLen     

Rem小数位数 

    deciMoney = myMoney - intMoney     

Rem小数 

    myDeci = deciMoney 

    If deciMoney > 0 Then 

        money = intMoney 

        lenMoney = intLen 

    End If 

    leftMoney = money 

    wan = Null 

    yi = Null 

    For i = 1 To lenMoney 

        leftMoney = Left(leftMoney, lenMoney - i + 1) 

        temp = getBitMoney(Right(leftMoney, 1))   

Rem取每一位转换并插入标记 

        If i > 4 And i < 9 And temp <> "0" And IsNull(wan) Then 

Rem设置万位标志 

            moneyChineseTemp = "w" & moneyChineseTemp 

            wan = 1 

        End If 

        If i > 8 And temp <> "0" And IsNull(yi) Then 

Rem设置亿位标志 

            moneyChineseTemp = "y" & moneyChineseTemp 

            yi = 1 

        End If 

        If temp <> "0" Then 

            moneyChineseTemp = temp & i & moneyChineseTemp 

        Else 

            firstOne = Left(moneyChineseTemp, 1)  

Rem取第一个字元判断 

            If firstOne <> "0" & fistOne <> "w" & fisrtOne <> "y" And firstOne <> "" Then 

                moneyChineseTemp = temp & moneyChineseTemp 

            End If 

        End If 

    Next 

Rem按位置替换以上设置的标志 

    moneyChineseTemp = Replace(moneyChineseTemp, "16", "仟") 

    moneyChineseTemp = Replace(moneyChineseTemp, "15", "佰") 

    moneyChineseTemp = Replace(moneyChineseTemp, "14", "拾") 

    moneyChineseTemp = Replace(moneyChineseTemp, "13", "万") 

    moneyChineseTemp = Replace(moneyChineseTemp, "12", "仟") 

    moneyChineseTemp = Replace(moneyChineseTemp, "11", "佰") 

    moneyChineseTemp = Replace(moneyChineseTemp, "10", "拾") 

    moneyChineseTemp = Replace(moneyChineseTemp, "9", "") 

    moneyChineseTemp = Replace(moneyChineseTemp, "8", "仟") 

    moneyChineseTemp = Replace(moneyChineseTemp, "7", "佰") 

    moneyChineseTemp = Replace(moneyChineseTemp, "6", "拾") 

    moneyChineseTemp = Replace(moneyChineseTemp, "5", "") 

    moneyChineseTemp = Replace(moneyChineseTemp, "4", "仟") 

    moneyChineseTemp = Replace(moneyChineseTemp, "3", "佰") 

    moneyChineseTemp = Replace(moneyChineseTemp, "2", "拾") 

    moneyChineseTemp = Replace(moneyChineseTemp, "1", "") 

    moneyChineseTemp = Replace(moneyChineseTemp, "0", "零") 

    moneyChineseTemp = Replace(moneyChineseTemp, "w", "万") 

    moneyChineseTemp = Replace(moneyChineseTemp, "y", "亿") 

    moneyChinese = moneyChineseTemp & "元" 

Rem处理小数部分,四舍五入。 

    If deciMoney > 0 Then 

        deciMoney = Round(deciMoney, 5) & "00" 

        deciM = Right(deciMoney, Len(deciMoney) - 1) 

        deciMoney1 = Left(deciM, 3) 

        carry = Val(Right(deciMoney1, 1))  

Rem进位 

        If carry >= 5 Then 

            deciMoney1 = Left(deciMoney1, 2) + 1 & "0" 

        End If 

        deciMoney = FormatNumber(deciMoney1 / 10) / 100 

        t1 = Right(deciMoney, Len(deciMoney) - 1) 

        t2 = Right(deciMoney, Len(deciMoney) - 2) 

        firstDec = Left(t1, 1)     

Rem第一位小数 

        secondDec = Left(t2, 1)    

Rem第二位小数 

        If firstDec = 0 Then 

             dec1 = "零" 

        Else 

             dec1 = getBitMoney(firstDec) & "角" 

        End If 

        If secondDec = 0 Or secondDec = "" Then 

            dec2 = "" 

        Else 

            dec2 = getBitMoney(secondDec) & "分" 

        End If 

        dec = dec1 & dec2 

        If dec1 = "零" And (dec2 = "0" Or dec2 = "") Then 

            dec = "" 

        End If 

    End If 

    If deciMoney = 0 Then 

        moneyChinese = moneyChinese & "正" 

    Else 

        moneyChinese = moneyChinese & dec & "正" 

    End If 

    If myMoney < 1 Then 

        moneyChinese = dec 

    End If 

Rem去掉多余的"零" 

    lMoney = moneyChinese 

    For i = 1 To Len(moneyChinese) 

        moneyChinese = Replace(moneyChinese, "零零", "零") 

    Next 

    cnRMB = moneyChinese 

End Function 

通信地址：四川省信息通信学校实验室 李登伦  

邮编：618000 QQ:1049707 

电子邮件： ldl@scxt.net