[VBA ] Function傳回值的問題
將主程式的值帶到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
→
12/17 23:40, , 1F
12/17 23:40, 1F
→
12/17 23:40, , 2F
12/17 23:40, 2F
我剛再主程式加上Dim了，Function中也加上ByRef，
可是還是沒辦法將Function的那四個變數傳回主程式，請問那邊有漏掉的嗎？
剛嘗試寫VBA，有些地方還不太瞭解，還麻煩各位指教，感謝！
※ 編輯: Fmajor 來自: 114.25.71.66 (12/18 00:06)
推
12/18 06:26, , 3F
12/18 06:26, 3F
不好意思，我再重新敘述一下問題。
※ 編輯: Fmajor 來自: 114.25.64.101 (12/18 22:56)
推
12/18 23:26, , 4F
12/18 23:26, 4F
→
12/18 23:26, , 5F
12/18 23:26, 5F
→
12/18 23:26, , 6F
12/18 23:26, 6F
→
12/18 23:28, , 7F
12/18 23:28, 7F
→
12/18 23:28, , 8F
12/18 23:28, 8F
請問是這樣修改嗎？
Function那四個值的程式碼要怎麼寫，才能要如何return到主程式呢？
※ 編輯: Fmajor 來自: 114.25.64.101 (12/19 00:00)
→
12/19 10:36, , 9F
12/19 10:36, 9F
→
12/19 10:39, , 10F
12/19 10:39, 10F
→
12/19 10:40, , 11F
12/19 10:40, 11F
→
12/19 10:40, , 12F
12/19 10:40, 12F
噓
12/19 10:54, , 13F
12/19 10:54, 13F
→
12/19 10:55, , 14F
12/19 10:55, 14F
→
12/19 10:55, , 15F
12/19 10:55, 15F
→
12/19 11:11, , 16F
12/19 11:11, 16F
→
12/19 11:13, , 17F
12/19 11:13, 17F
討論串 (同標題文章)
完整討論串 (本文為第 1 之 2 篇)：
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章
