随风而行

^o^ 格言:相信没有做不到的事情,只有想不到的事情.
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2009年7月30日

摘要: 工具--》宏---》Visual Basic编辑器--->右击模块---》插入模块---》将代码复制到里面----》点击工具栏调试----》编译VBAProject---返回EXCEL中在单元格中输入=Change(数字单元格)Function CChinese(StrEng As String) As String'将阿拉伯数字转成中文字的程式例如:1560890 转成 "壹佰伍拾陆万零捌... 阅读全文

posted @ 2009-07-30 21:11 随风而行 阅读(502) 评论(0) 推荐(0) 编辑