Excel大写金额数字转换小写金额数字的函数代码

　　在Excel中，我们可以轻松的将小写金额数字，转换成为大写的金额数字。

　　但是，如果要将大写的金额数字转换成为小写的金额数字，是比较困难的。

　　本文，给大家提供一个转换的函数代码，其功能是将大写金额转换为小写金额数字。

　　代码如下，希望对您有所帮助。

　　Function ChiToNum(Str As String) As String
　　　Dim StrLen As Integer
　　　StrLen = Len(Str)
　　　Dim i As Integer
　　　Dim j As Integer
　　　Dim ChiStr As String
　　　ChiStr = "零壹贰叁肆伍陆柒捌玖"
　　　ChiToNum = ""
　　　For i = 1 To StrLen
　　　　For j = 1 To 10
　　　　　If Mid(Str, i, 1) = Mid(ChiStr, j, 1) Then
　　　　　　ChiToNum = ChiToNum & j - 1
　　　　End If
　　　Next j
　　　Next i
　　End Function

　　以上代码，在VBA函数下使用。当然，您也可以将其转换成为宏来使用。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18