EXCEL VBA自定义函数

、会计工作中，经常需要将用阿拉伯数字表示的货币转换为大写中文数字表示，并且要求符合中文语法。以下VBA自定义函数可以解决这个问题，在EXCEL 2003中调试通过，使用功能也正常，但并不表示其代码编写就是合格的、优秀的，恳请达者、方家指正并改进。 为了方便，本人在编写代码时将可转换范围限定为绝对值不大于1万亿。 Const z As String = "零", d As String = "", e As String = "亿", f As String = "拾" Const g As String = "佰", h As String = "仟" Function Dxzh(a As Variant) As String If IsNumeric(a) = False Then Dxzh = "无法转换" Else b = CStr(Int(100 * Abs(CDbl(a)) + 0.5)) If CDbl(b) > 100000000000000# Then Dxzh = "数值超限" Else Dxzh = d: c = Len(b) For i = c To 1 Step -1 Dxzh = Replace(Dxzh & Mychoose(CInt(Left(b, 1)), CInt(i)), "零零", z) b = Right(b, Len(b) - 1) Next i Dxzh = Replace(Dxzh, "零亿", e) Dxzh = Replace(Dxzh, "零万", "万") Dxzh = Replace(Dxzh, "零圆", "圆") Dxzh = Replace(Dxzh, "亿万", e) If Right(Dxzh, 1) = z Then Dxzh = Left(Dxzh, Len(Dxzh) - 1) If Dxzh = z Then Dxzh = "零圆" If Sgn(CDbl(a)) = -1 Then Dxzh = "负" & Dxzh End If End If End Function Private Function Mychoose(Temp1 As Integer, Temp2 As Integer) As String Mychoose = Choose(Temp1 + 1, z, "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖") x = Choose(Temp2, "分", "角", "圆", f, g, h, "万", f, g, h, e, f, g, h) If Temp2 Mod 4 <> 3 And Mychoose = z Then x = d Mychoose = Mychoose & x End Function 第一个自定义函数就能写得这样严谨,很难得.

参与评论

相关内容

最近更新

·2GB多的Office 2007跟几百MB的有..

·Office打开有图片问题

·如何让箭头位于线段（曲线）的中..

·操作权限管理的实质

·EXCEL如何设置?

·无法删除办公软件？？

·word里工具栏，常用和格式的位置

·EXCEL里打印当前页怎么不见了

·Excel里面的IF函数具体是什么

·安装office办公软件

最近热点

·数据库课程设计报告和设计实例

·QQ群个性公告大全

·好记星 E900+驱动下载。。

·请问在哪里可以下载兼容DVD的解码..

·如何在qq空间里下载免费的播放器..

·电脑如何进入cmos,如何设置cmos？

·qq空间免费设置，请问我怎样在QQ..

·Springdale-G 的主板驱动

·哪里有万能转换器下载

·8开纸的大小

网站推荐

·解决电脑音箱声音不均衡

·维修HP 6L激光打印机常见故障心得

·开机黑屏故障列表

·数据库oracle在C++程序中使用方法

·“please input 7 or more chara..

·解决提示rundll32.exe不能结束的

·关闭QQ游戏后跳出的广告

·SDHC（High Capacity SD Memory ..

·中国移动提示我“您目前应缴话费..

·Cool n Quiet2.0 介绍