全体国民要一致学习人民币中文大写相关规定！！！

loquat · 发表于 2016-9-20 09:07

那就将这个公式转换成vba代码。。。

loquat · 发表于 2016-9-20 09:09

记得守柔有个帖子，写过这个应用，用域代码实现转换的。
http://club.excelhome.net/forum.php?mod=viewthread&tid=88263

13907933959 · 发表于 2016-9-20 10:01

本帖最后由 13907933959 于 2016-9-20 10:04 编辑

loquat 发表于 2016-9-20 09:09
记得守柔有个帖子，写过这个应用，用域代码实现转换的。
http://club.excelhome.net/forum.php?mod=viewth ...

前辈好！
守版主的代码有2个方面受到限制，一是、对要转换的数字需逐个选中才能转换，二是、数字的位数较少、控制在9位内，所以、仍不太理想。

彩蛮蛮 · 发表于 2016-9-20 10:21

13907933959 发表于 2016-9-20 08:22
前辈好！
这个转换是准确，但感觉不方便、要先将一组组数字粘贴进excel内，转换好后再重新粘贴回文档， ...

客气了~
其实还有个办法，
你把你需要转化的值，用for next循环，带入到这个公式中，然后把计算的结果，逐次输出，也可以~

彩蛮蛮 · 发表于 2016-9-20 10:27

13907933959 发表于 2016-9-20 08:22
前辈好！
这个转换是准确，但感觉不方便、要先将一组组数字粘贴进excel内，转换好后再重新粘贴回文档， ...

大小写公式.zip (17.53 KB, 下载次数: 13)

批量转换，请看附件，谢谢。

13907933959 · 发表于 2016-9-20 10:43

彩蛮蛮发表于 2016-9-20 10:27
批量转换，请看附件，谢谢。

前辈好！
感谢前辈！
转换大批量的数字，感觉还是楼主的这个VBA代码来得直接、省事，详见： http://club.excelhome.net/thread-1300257-1-1.html

gbgbxgb · 发表于 2016-9-20 10:51

感觉此题在Word版块已很难得到解决了，所以，楼主还是在VBA版块再发个帖吧。
下方图片是个效果，所附附件不含代码，仅供他人供转换前后的文本对照，故楼主无需下载。
另：发帖时，不要提及此动画图片，更不要把其粘贴至您发的新帖中，因为这样做对您得到他人的解答可能反而不利。

13907933959 · 发表于 2016-9-21 09:47

gbgbxgb 发表于 2016-9-20 10:51
感觉此题在Word版块已很难得到解决了，所以，楼主还是在VBA版块再发个帖吧。
下方图片是个效果，所附附件 ...

前辈好！
前辈的东西真是好！可惜、面子不够求不来！

gbgbxgb · 发表于 2016-9-21 12:59

13907933959 发表于 2016-9-21 09:47
前辈好！
前辈的东西真是好！可惜、面子不够求不来！

这代码真不能给：
一者，由于个人某些原因，不想提供代码；
二者，您的VBA基础弱了，给了您大写转数字金额或数字金额转大写的自定义函数您一样无法应用（譬如，如何在Word文档中取数字金额或大写金额并将其作为参数传递给自定义函数，估计您就搞不定。更遑论您要把自定义函数运算后的值适当地根据要求插入到Word文档中原金额处的前面位置或后面位置了）。

最后，虽然注意到了您确实想要这代码，但因上述原因，我无法（或不愿）提供代码，真的很抱歉。

13907933959 · 发表于 2016-9-22 08:44

本帖最后由 13907933959 于 2016-10-21 16:27 编辑

gbgbxgb 发表于 2016-9-21 12:59
这代码真不能给：
一者，由于个人某些原因，不想提供代码；
二者，您的VBA基础弱了，给了您大写转数字 ...

前辈好！

感谢回复！感谢曾给过的帮助！！！

是这样呀，前辈有难处、不愿把代码贴出来，我能理解！

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

[讨论] 全体国民要一致学习人民币中文大写相关规定！！！

评分