六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

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

Admin | 2010-6-19 11:49:21 | ReadNums | 6995 | 标签 六合开奖结果现场直播 | 打印本页
     

  在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函数下使用。当然,您也可以将其转换成为宏来使用。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日