看不下去了，問的人搞不清楚，回答的除版主外也是亂七八糟。 要在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