中文数字大写自定义函数

loquat

本帖缘起413191246se的帖子：
http://club.excelhome.net/thread-1220654-1-1.html
根据其思路改成了自定义函数，做了一些兼容处理
具体看代码注释
破除审核第1招，发码只发图
大牛一笑而过，新手请自己敲代码测试
欢迎大家提问题

loquat

自沙...........

levey

这个问题还是参考经典吧
Function RMBDX(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = Round((j / 10 - Int(j / 10)) * 10)
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.4, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 0.4, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
RMBDX = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function

loquat

levey 发表于 2018-3-28 13:32
这个问题还是参考经典吧
Function RMBDX(M)
y = Int(Round(100 * Abs(M)) / 100)

不错，这个是ldy老师的作品吧？

这个有几点想说一下
1、这个函数的使用依赖Excel
2、角整，角后面的整可以写也可以不写
3、中间有一些位置的“零”，有些人说要加上，有些人说不要，我也没有找到相关规范

loquat

初步测了一下，问题多多啊，先记录，回头再修正。。。
1、要处理诸多兼容问题，例如不是数字的情况
    IsNumeric这货的坑又不是一般的多，double超过一定大小之后，会强制变成科学计数法
2、要能完全按标准规则来，规则参考http://www.atool.org/rmbdx.php
     有一点，之前我一直有误区，把一亿亿当成是兆，或者像ldy那个函数里一样把一万亿当做兆，好像没有参考依据，在金额里好像并没有兆这个单位

413191246se

* 祝贺 loquat 朋友、老师 又出新成果！辛苦了！
* 函数到目前为止，我还不会写一个。用 Sub 也挺好的。
* 最近我又更新了几个自动排版的宏，特别是 Range 对象的应用，感觉很好；多用 Range，少用 Selection/Select；现在比较注重优化、简化。
* 又跟 杜先生 学了一些简写手法，现在很不喜欢长篇大论式的代码，喜欢模块式短代码。

loquat

已经修复了，欢迎验证。。。

413191246se

loquat 朋友、老师：函数一点儿也不懂，根本不会用，无法验证。另外，函数到底有什么用？能否给我们低手普及一下。

zhanglei1371

413191246se 发表于 2018-3-29 23:35
loquat 朋友、老师：函数一点儿也不懂，根本不会用，无法验证。另外，函数到底有什么用？能否给我们低手普 ...

函数可以防止出现大量重复的代码。
如一百个sub过程，其中80％都是相同的部分，总不至于重复100次吧！所以可以将相同部分用函数表示。这样100个sub相同部分只需要一句call 函数即可。
函数开头又可以分为sub开头和function开头：
两者区别就在于是否需要返回参数。如计算两个数的和，提供两个参数，希望返回结果时，就是用function，function 求和（a，b）这样。若是写成sub 求和（a，b）则无法返回值。参数也是可选择的。
基本就是这两点
一个是减少重复代码量，一个是返回值，传递给其他sub。

loquat

zhanglei1371 发表于 2018-3-30 06:51
函数可以防止出现大量重复的代码。
如一百个sub过程，其中80％都是相同的部分，总不至于重复100次吧！所 ...

function和sub其实在底层是一样的
sub类似c的void func
function类似c的int func
如果sub想返回值，只需要传址就可以了，而且使用sub传址来返回结果效率更高，且返回值数量不受限制
不过一般用户，很少用sub来返回值

回楼上413191246se兄弟，自定义函数和自定义过程是程序设计模块化的必备基础
把使用率较高的通用代码段，分割成小模块，在各个位置分别拔插
使得代码方便维护，更具可读性