[VBA ] Function傳回值的問題

[Fmajor (萬物靜觀皆自得)]

將主程式的值帶到Function中的MySht、MyBase後，

希望Function計算出來的RC1、RC2、CC1、CC2能讓主程式應用。

而我這個寫法無法將Function的值讓主程式使用，

請問程式碼有那邊需要修改呢？謝謝！！


程式碼如下：

Sub 主程式()
Dim RC1 as Integer, RC2 as Integer, CC1 as Integer, CC2 as Integer
    Call 範圍計算("資料表", "AG")
        Range("A" & RC1 & ":O" & RC2).Copy <-希望用Function的RC1、RC2的值
           ......
        Range("Z" & CC1 & ":AD" & CC2).Copy
           ......
End Sub


Function 範圍計算(ByRef Mysht As String, MyBase As String) as Integer
    Dim RC1 as Integer, RC2 as Integer, CC1 as Integer, CC2 as Integer
    Sheets(Mysht).Select
    RC1 = Range(MyBase & ActiveSheet.Rows.Count).End(xlUp).Row
    RC2 = xxxxx
    CC1 = xxxxx
    CC2 = xxxxx
End Function



--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.25.71.66
→ fumizuki:byref...  而且變數都沒宣告，預設變數只會存在於所屬的
→ fumizuki:function 中
我剛再主程式加上Dim了，Function中也加上ByRef，
可是還是沒辦法將Function的那四個變數傳回主程式，請問那邊有漏掉的嗎？
剛嘗試寫VBA，有些地方還不太瞭解，還麻煩各位指教，感謝！
※ 編輯: Fmajor          來自: 114.25.71.66         (12/18 00:06)
推 johnpage:copy 中文意思為複製，沒有回傳的含義。
不好意思，我再重新敘述一下問題。
※ 編輯: Fmajor          來自: 114.25.64.101        (12/18 22:56)
推 johnpage:不要養成壞習慣，在function 內不要用全域變數，要用retu
→ johnpage:rn回傳。
→ johnpage:function 與sub 是不同的意思
→ johnpage:function 的變數生命期盡量在function結束後也跟著消失
→ johnpage:。
請問是這樣修改嗎？
Function那四個值的程式碼要怎麼寫，才能要如何return到主程式呢？
※ 編輯: Fmajor          來自: 114.25.64.101        (12/19 00:00)
→ cf1064:在function的cc2=XXXXX下加上 return RC1,RC2,CC1,CC2
→ cf1064:Call 範圍計算("資料表", "AG")改
→ cf1064:dim aa as string=範圍計算("資料表", "AG")
→ cf1064:再將aa的值用","分隔出來給定義的變數
噓 MOONRAKER:VBA的return這樣用？你們各位會不會太誇張了？
→ MOONRAKER:一次return四個還用","來split？你這那一家的VBA？
→ MOONRAKER:亂教一氣。
→ cf1064:只不過提供一種方式，這麼行就請你教一下，呵呵
→ cf1064:你要把他用成陣列再回傳也是同樣的道理