[原创]WORD中的人民币大写

hlrong · 发表于 2004-4-15 20:40

从第一贴看到第二十贴，呵呵，希望你有耐心！

hao123 · 发表于 2004-11-24 16:01

如果选定的是字母、汉字而不是数字，能不能自动判断？

[此贴子已经被作者于2004-11-24 16:01:36编辑过]

york888 · 发表于 2005-3-21 21:57

超过000000(十万)位数即不可以了! 还请楼主完善一下吧! 十分好用!

守柔 · 发表于 2005-3-23 07:29

不错的一个代码。

不知hlrong兄还能否看到此贴，您在声明中的部分变量类型值得商榷，另代码部分也可以精简一些，这样，您的程序看上去更完美，您也可以获得更大的提高。

比如：

Dim zx As Long, xx As Byte

而您的声明为zx为Integer,在中文数字大写格式域为正LONG类型，也就是0~2,147,483,647之间，所以正确定义变量类型，还必须加入错误处理，如果用户数据超过此范围，应出现提示消息。(也就是25楼出错的原因所在)

xx为Integer，则显得过大（当然不错，但占用不必要的内存，xx应为0~99，因此BYTE（0~255应能满足）

适当使用WITH：END WITH结构语句，可以使代码结构更好。

VBA.IIF函数的使用等,

希望您有空略作修改,相信会更理想.OK?

守柔 · 发表于 2005-3-24 07:00

相关链接：（人民币金额大写）http://club.excelhome.net/viewthread.php?tid=88263

heidili · 发表于 2005-3-31 14:15

哎,太笨了,看不懂的,楼主的公式及操作步骤也看不懂,不知道把这个公式往哪里加[em03][em03][em03]

sbkml · 发表于 2005-3-31 16:39

以下是引用heidili在2005-3-31 14:15:00的发言： 哎,太笨了,看不懂的,楼主的公式及操作步骤也看不懂,不知道把这个公式往哪里加[em03][em03][em03]

谢谢！不错

如：35.6

选取35.6_____________再点“大写人民币”———————大写人民币：叁拾伍元陆角整

baojian · 发表于 2005-3-31 23:34

用不了这么复杂的.

hhzjxss · 发表于 2007-3-12 11:34

谢谢了，可以参考学习一下！

xssf96412 · 发表于 2007-3-12 12:00

谢谢,再看一下

		自动登录	找回密码
密码			免费注册