[原创]把大写中文金额转为阿拉伯数字（ 答lu_666 问）

votasee

现在回头想想.粽果人还真TM神经...----
好端端明明白白的数字放着不用...非要什么中文,而且理由还很不一般,汗...{:soso_e130:}

chenwei0713

学习学习，谢谢分享

柚子哦

为什么我的EX07里没有SUZI这个公式，如何得出这个公式，请说明

Samsea

柚子哦 发表于 2012-4-8 21:35
为什么我的EX07里没有SUZI这个公式，如何得出这个公式，请说明

SuZi() 本人编写的自定义函数。在供下载的文件中。
我现在把它单独列出。你可以拷贝使用：

' 试编写金额中文大写转数字函数
' lin jin xiang 18/10/2004

Function SuZi(A As String)   ' 人民币中文大写转数字函数
   Application.Volatile True
   Hsf = "分角元拾佰仟万   亿"
   Hs = "零壹贰叁肆伍陆柒捌玖 "
   JH = 1
   A = Replace(A, "整", "")
   A = Replace(A, "亿", ")亿")
   A = Replace(A, "万", ")万")
   If A <> "" Then
      Mylen = Len(A$)
      For m = 1 To Mylen
         If Mid(A, m, 1) = "万" And JH = 1 Then A = "(" & A: JH = 0
         If Mid(A, m, 1) = "亿" Then
            A = "(" & A
            JH = 0
            For K = m + 3 To Mylen + 2
               If Mid(A$, K, 1) = "万" Then
                  A = Replace(A, "亿", "亿(")
                  Exit For
               End If
            Next
            Exit For
         End If
      Next
      For i = 0 To 10
        A = Replace(A, Mid(Hs, i + 1, 1), i)
        A = Replace(A, Mid(Hsf, i + 1, 1), "*" & (10 ^ (i - 2)) & "+")
      Next
      A = Replace(A, "+)", ")")
      A = Replace(A, "+*", "*")
      Mylen = Len(A)
      A = Left(A, Mylen - 1)
      SuZi = Evaluate(A)
   End If
End Function

zyhui1961

没有这个函数啊!从哪找的？

zyhui1961

Samsea 发表于 2012-4-9 08:00
SuZi() 本人编写的自定义函数。在供下载的文件中。
我现在把它单独列出。你可以拷贝使用：

真的太神了，谢谢了!

rosf1981

学习了.不错,是通过自定义函数实现的

寻找殒梦

谢谢分享^_^

莫悠悠

同样，如果将中文货币文字转换为阿拉伯数字怎么做呢？

poongsan

又做记号！找了好久