将阿拉伯数字转换为人民币大、小写金额？

13907933959 · 发表于 2016-7-21 11:22

本帖最后由 13907933959 于 2016-7-22 06:58 编辑

例如1：将12345678.98转换为大写金额：壹仟贰佰参拾肆万伍仟陆佰柒拾捌元玖角捌分。

例如2：将12345678转换为大写金额：壹仟贰佰参拾肆万伍仟陆佰柒拾捌元。

例如1：将12345678.98转换为小写金额：一千二百三十四万五千六百七十八元九角八分。

例如2：将12345678转换为小写金额：一千二百三十四万五千六百七十八元。

求懂的前辈出手相助！谢谢！

kqbt · 发表于 2016-7-22 09:55

由于不清楚楼主的真实文档的具体形态（所提供附件应该是随意举例吧？），所以只能把很久前写的一个相关代码供参考：

小写金额转大写示例.rar (14.79 KB, 下载次数: 45)

13907933959 · 发表于 2016-7-22 11:06

kqbt 发表于 2016-7-22 09:55
由于不清楚楼主的真实文档的具体形态（所提供附件应该是随意举例吧？），所以只能把很久前写的一个相关代码 ...

版主前辈好！
感谢您的多次出手相助！
测试了您给的代码，基本可以满足要求，有几点还不明白，望版主前辈再赐教！
1、当小数点前面的数字多于9位则会显示“人民币错误！不能以指定格式显示编号”。有不有办法让小数点前面的数字在12位？
2、如要转换为小写金额，代码应如何修改？
谢谢！

413191246se · 发表于 2016-7-22 22:40

139：我的 Word2003 通用模板里面有现成的《人民币中文大写》宏3in1，你怎么不用呢？完全能解决你的大写金额，但你的小写金额我从没见过这种形式，可能不标准（最近很长时间没露面，是因为不会，有了热心且水平很高的 duanquancai 段全才朋友帮你解决问题，我就没必要献丑了）。

413191246se · 发表于 2016-7-22 22:46

有了！139：把我的《人民币中文大写》宏复制一份改个宏名，然后把里面的字符串“壹贰叁……”等改为“一二三……”等一一对应地，然后执行之，就能把数字转换为你所谓的小写金额了！

13907933959 · 发表于 2016-7-23 08:43

本帖最后由 13907933959 于 2016-7-24 08:29 编辑

413191246se 发表于 2016-7-22 22:40
139：我的 Word2003 通用模板里面有现成的《人民币中文大写》宏3in1，你怎么不用呢？完全能解决你的大写金 ...

师傅好！

您的暑假期结束了？原以为您的暑假期要到8月底才会结束，好久不见，真是想念师傅！！！

师傅、最近我又是受我的中医师傅之托，把诊所的帐簿整理成文档，又是赶鸭子上架，唉！没有办法！

师傅的Word2003 通用模板前段时间我也下载看了，里面的“人民币中文大写”宏，我原也想用，可有几处凭我的水平搞不定。

1、如碰到：671000.10元；类似这种金额的，经该宏处理后会变成【人民币陆拾柒万壹仟元壹角】￥671000.1元；

2、如碰到：231000.11元；经该宏处理后会变成【人民币貮拾叁万壹仟元壹角壹分】￥231000.11元；

这2个大写，壹仟元到壹角之间缺少一个“零”，还有就是处理后的￥671000.1元，1到元之间也会少一个“0”。

3、如碰到：20.18元。经该宏处理后会变成【人民币贰拾零壹角捌分】￥20.18元；应为：【贰拾元壹角捌分】￥20.18元。

师傅前段时间不在线，没办法联系让师傅修改，所以也就没用这个宏，所以到论坛上向前辈们求助了。

现经过师傅提示，把阿拉伯数字转为中文小写看来可成，等师傅修改后再试。

413191246se · 发表于 2016-7-24 01:11

139：我暑假并未结束，到8月27号才结束呢！
你举的例子中“零”有或没有，可能都对，不能说我的中文大写没有“零”就是错误的，因为有一篇文章说可有可无，当然是在某种情况下。
另外：建议你用我的3in1（三合一）宏前，要保存好文档，因为我的宏默认是把所有“数字元”变为中文大写人民币，但只须用鼠标选定某个数字元（元字勾选不勾选均可）我的宏即可对该数字进行转换，不影响其它的数字。
你把我的3in1宏复制一份，命名为《人民币中文小写》，然后，把代码里面的“壹”替换为“一”……“玖”替换为“九”即可，使用方法同《人民币中文大写》宏，也只须选定某个数字即可转换（不选会把全文所有数字元转换为中文大写）。
最后再重复一次：本坛有了热心、水平很高的 duanquancai（段全才）朋友，你的一些问题可以向他请教了，我因为水平有限，没把握的宏就不露面参与了（139：如果你喜欢VBA宏代码，我建议你挑出时间学一学《微软VBA官方帮助》，能帮助你进一步提高VBA水平，编出自己的程序来）。

wzhshdxch · 发表于 2016-7-24 08:03

使用输入法解决，v+阿拉伯数字

13907933959 · 发表于 2016-7-24 08:17

413191246se 发表于 2016-7-24 01:11
139：我暑假并未结束，到8月27号才结束呢！
你举的例子中“零”有或没有，可能都对，不能说我的中文大 ...

师傅好！

您的假期还没有结束呀，那就等师傅的假期结束再修改。壹仟元到壹角之间缺少一个“零”（这个今天我以修改好），另外2处凭我的水平实在是搞不定。

1、如碰到：671000.10元；类似这种金额的，经该宏处理后会变成￥671000.1元；1到元之间少了一个“0”。

2、如碰到：20.18元。经该宏处理后会变成【人民币贰拾零壹角捌分】，应为：【贰拾元壹角捌分】。

经过师傅的提示，把阿拉伯数字转为中文小写也以可以，只是上面说到的2处等师傅修改完善后再试。

13907933959 · 发表于 2016-7-24 08:19

wzhshdxch 发表于 2016-7-24 08:03
使用输入法解决，v+阿拉伯数字

前辈好！
感谢提醒，可我的Word文档内有好多好多不同的数字要转换，您的这个方法恐怕也不容易做到！不过还是要谢谢您！

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