Visual_Basic 板


LINE

看不下去了,问的人搞不清楚,回答的除版主外也是乱七八糟。 要在VBA的sub或function里面改变多个变数,只要把他传进去,在里面修改就可以了: sub abc() p = 10: q = 20 MsgBox "before: p, q = " & p & ", " & q fun 3, p, q MsgBox "after: p, q = " & p & ", " & q end sub Sub fun(i, j, k) j = i * j k = i * k End Sub 这包在excel 2010测试过,一定成功,因为VBA的参数传递预设就是byref。 如果要加byref,那是加在引数前面,不是在函数里面。 Sub fun(i, ByRef j, ByRef k) 而事实上也不用加,原因如上,预设就是ByRef。 只有加上ByVal才会影响结果。 Sub fun(i, ByVal j, ByRef k) 你可以自己照上面修改看结果如何。 改成sub的原因是,既然function并不return值,那用sub也是一样。 然後是越看越火大的部份。 第一,VBA的function回传值跟fortran一样,写法是 function 函数名字(引数) ... 函数名字 = 传回值 ... end function 比如说,你函数名称是 fun ,那传回值就是 fun = ... 随便什麽东西 可以写在function内任意地方,不用在最後一列,也不会造成函数执行结束。 不需要,也不能使用return。 第二,VBA的return没有任何回传值的功能。 VBA的return是跟gosub搭配使用的,意思是返回gosub呼叫的位置。 这组指令还要用到行号,如今毫无意义,只是为了和老屁股BASICA相容才存在的。 这是VBA,不是VB.NET 到VB.NET才改用return传回值 即使在VB.NET,一次传回多个值也需要包成阵列,structure,或物件。 你j某c某是在哪里学的什麽新型VBA, 不但用return传回还可以一次回传多个值又不用转换成字串,简直宇宙最强。 但是我用得到的VBA就是上述那样。 如果你们可以,请在excel VBA editor内写出正确可以执行的程式供大家佐证。   -- 从前有个马铃薯王国 有个高贵伟大的国王 有的人尊敬他 有的人畏惧他 但有个人敢看不起他不只是一条龙 嘿呵 快出动 去征服 去摆平 嘿呵 快出征 去征服那条龙 嘿呵 快出动(宰了它!轰了它!)嘿呵 快出征 去征服那条龙 :■ Potatoes and Dragons (C)Alphanim France 2004-05 :. --



※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.163.12.174
1F:→ cf1064:疑,看成vb.net XDD 想说vb关键字後面a就省略 12/19 11:51
2F:推 tsongs:看上一篇好心虚 一堆没在VBA用过的功能 原来是别人套错 12/19 23:04
3F:推 Fmajor:Ok了,感谢m大的文章!! 12/21 13:04







like.gif 您可能会有兴趣的文章
icon.png[问题/行为] 猫晚上进房间会不会有憋尿问题
icon.pngRe: [闲聊] 选了错误的女孩成为魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一张
icon.png[心得] EMS高领长版毛衣.墨小楼MC1002
icon.png[分享] 丹龙隔热纸GE55+33+22
icon.png[问题] 清洗洗衣机
icon.png[寻物] 窗台下的空间
icon.png[闲聊] 双极の女神1 木魔爵
icon.png[售车] 新竹 1997 march 1297cc 白色 四门
icon.png[讨论] 能从照片感受到摄影者心情吗
icon.png[狂贺] 贺贺贺贺 贺!岛村卯月!总选举NO.1
icon.png[难过] 羡慕白皮肤的女生
icon.png阅读文章
icon.png[黑特]
icon.png[问题] SBK S1安装於安全帽位置
icon.png[分享] 旧woo100绝版开箱!!
icon.pngRe: [无言] 关於小包卫生纸
icon.png[开箱] E5-2683V3 RX480Strix 快睿C1 简单测试
icon.png[心得] 苍の海贼龙 地狱 执行者16PT
icon.png[售车] 1999年Virage iO 1.8EXi
icon.png[心得] 挑战33 LV10 狮子座pt solo
icon.png[闲聊] 手把手教你不被桶之新手主购教学
icon.png[分享] Civic Type R 量产版官方照无预警流出
icon.png[售车] Golf 4 2.0 银色 自排
icon.png[出售] Graco提篮汽座(有底座)2000元诚可议
icon.png[问题] 请问补牙材质掉了还能再补吗?(台中半年内
icon.png[问题] 44th 单曲 生写竟然都给重复的啊啊!
icon.png[心得] 华南红卡/icash 核卡
icon.png[问题] 拔牙矫正这样正常吗
icon.png[赠送] 老莫高业 初业 102年版
icon.png[情报] 三大行动支付 本季掀战火
icon.png[宝宝] 博客来Amos水蜡笔5/1特价五折
icon.pngRe: [心得] 新鲜人一些面试分享
icon.png[心得] 苍の海贼龙 地狱 麒麟25PT
icon.pngRe: [闲聊] (君の名は。雷慎入) 君名二创漫画翻译
icon.pngRe: [闲聊] OGN中场影片:失踪人口局 (英文字幕)
icon.png[问题] 台湾大哥大4G讯号差
icon.png[出售] [全国]全新千寻侘草LED灯, 水草

请输入看板名称,例如:BuyTogether站内搜寻

TOP