【循环引用】之中文大写人民币逆转为阿拉伯数字

楼主 gouweicao78	2008-07月作品。利用循环引用模拟VBA编程步骤，对中文金额进行替换，并利用宏表4.0函数实现转换数值。注意：因设置迭代运算，请关闭其他Excel文件，单独使用本文件，并设置宏安全性为“中”或低，确认启用宏表4.0函数。循环引用之中文大写人民币逆转为阿拉伯数字.rar
2楼 gouweicao78	【转帖】EH的Samsea网友写的VBA代码： 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
3楼 omnw	很新颖，支持一下！
4楼 apolloh	这贴不花时间研究不行的
5楼绿色	谢谢辛苦了
6楼江南	应该看不懂还是收藏吧
7楼 jongcheol	高手高手高高手
8楼每天学点	谢谢，下载了，对我很有用
9楼 ldy	凑个热闹，去年写的兼容几种特殊的大写形式￥-陆万零仟零佰陆拾伍圆贰角零分整玖佰兆零伍亿零柒十万零陆拾伍圆整负9佰兆零5亿另7拾万 X6拾圆3角2分九亿五千6百二十三圆三角二分像上面这样的只要不是错的太离谱都可以转换成数字 Function DxToN(ss) ' as Double 'as String' 默认返回字符串，可以根据需要选择 For i% = 1 To 9 ss = Replace(ss, Mid("壹贰叁肆伍陆柒捌玖", i, 1), i) ss = Replace(ss, Mid("一二三四五六七八九", i, 1), i) Next For i% = Len(ss) To 1 Step -1 s$ = Mid$(ss, i, 1) x% = InStr("分角圆拾佰仟万拾佰仟亿拾佰仟兆", s) If x = 0 Then x% = InStr("分毛元十百千萬十百千億十百千兆", s) If x Then j% = IIf(j% < x, x, ((j - 3) \ 4) * 4 + x) If Val(s) Then M# = M# + (s & String(j - 1, "0")) / 100 Next DxToN = Format(M, "0.00") If InStr(ss, "-") Or InStr(ss, "负") Then DxToN = "-" & DxToN End Function
10楼 laoyebin	草版的函数功力可以说登峰造极喽，好好研究研究
11楼 gouweicao78	ldy兄的代码简洁，而且处理的错误情况较多，这下子要用“循环引用”来模拟，恐怕就困难了。 lao兄，我自己现在看这个东西，感觉都头疼了，呵呵。
12楼 laoyebin	函数是挺头疼的，受限制的地方太多
13楼 yfan17	我也进来学习一下循环引用。
14楼春雷	我感觉函数比VBA简单点！很想学会VBA的！但是还没有掌握方法&窍门！
15楼 gouweicao78	如果喜欢函数，社区中的资料已经不少。更何况，春雷同学分享出来的资料也不少是很多斑竹以前初学时的材料。心境是学习的一个关键。当在乎的不再是简单的“财富”，收获的将是真正的“财富”
16楼 gcl-1	楼主能反过来把阿拉伯数字转换为中文大写的吗？比如我的报表中A1单元格总金额为12000000元，下设一个A2单元格=A1；但A2单元格中数据自动改为中文大写壹仟贰佰万元？
17楼 gouweicao78	数值转中文大写的方法很多，比如：如何将阿拉伯小写数字转换成中文大写金额
18楼 375268527	谢谢楼主分享
19楼 qq199116	好像外国人在看中一样什么东西
20楼 aob	谢谢分享,收藏学习
21楼 yardview	谢谢，下载了，对我很有用
22楼憧憬小西	看不懂还是收藏吧
23楼 272779357	支持
24楼 qinhuan66	又学会了一招
25楼 nanxi	好好研究研究
26楼芐雨	高啊
27楼 gshshzr	谢谢分享
28楼枫舞	非常方便学习，辛苦了，谢谢
29楼杨万惠	学习了