中文数字大写自定义函数

duquancai

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

Sub main()
    x = 3
    y = 4
    t = f1(x, y)
    MsgBox t
    Call f2(x, y)
    Call f3(x, y)
    Call f4(x, y)
    MsgBox x + y
    Call f5(x, y)
    MsgBox x + y
End Sub
Function f1(ByVal x, ByVal y)
    f1 = x + y
End Function
Function f2(ByVal x, ByVal y)
    MsgBox x + y
End Function
Sub f3(ByVal x, ByVal y)
    MsgBox x + y
End Sub
Sub f4(ByRef x, ByRef y)
    x = 7
    y = 8
End Sub
Sub f5(ByVal x, ByVal y)
    x = 3
    y = 4
End Sub

413191246se

* 非常感谢  zhanglei1371、loquat、杜先生  三位大神/老师 的热心、细致的解答！
* 三位老师功力深厚，令人仰慕、钦佩！
* zhanglei1371 老师：成果很多，仅举一例，可能我经常使用的用来《删除段落首尾空格》的宏，应该是张老师所作吧！（这两行代码特别靠谱！）
   CommandBars.FindControl(ID:=122).Execute
   CommandBars.FindControl(ID:=123).Execute
* loquat 老师：成果很多，原来我的《电子印章》宏得到了老师极大帮助改善；从中我学会了 Replace()函数的用法，受益匪浅；及老师的忠告，多多使用  Range 对象提速，而少用及尽量不用 Selection/Select 对象/方法激活对象/选定对象，同样受益匪浅。——我最近重新写了一下《公文自动排版》（最小系统），请老师/朋友百忙之中，闲暇时给予指正，谢谢！
* duquancai 杜先生/老师：去年我折腾《公文自动排版》宏时，就得到了 杜先生 的大力支持，写了不少代码，我也用上了一些正则表达式代码；今年又得到了 杜先生 极大帮助；从中我学到了 杜先生 一些代码的简写方法和一些代码使用方法（具体如：查找替换时用无数个逗逗逗……，collapse/move/expand/information(12)等等），帮助不小。最近我又重新折腾一下《公文自动排版》，使之运行更快、代码更加简洁。
* 三位老师的无私帮助、热心教导，令我内心无比激动、感激（杜先生 又详细写了一段函数实例代码，但我太愚笨了，看得是懵懵懂懂），在今后的岁月中，请三位老师及大家对我们这些后进新人、低手继续提出批评、指正，加以帮助、指导，非常感谢！

loquat

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

2018年的说法还没有说到一个点
function在底层其实也是sub
function(a$,b$,c$) as long
在底层实际上就是sub(a$,b$,c$, byref retVal&)

小花鹿

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

谁说的SUB过程不能返回结果？