麻辣家族討論版版 » Excel程式區 » 呼叫副程式，失敗

返回列表下一主題上一主題發帖

呼叫副程式，失敗

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-3-10 14:43 | 顯示全部帖子

呼叫副程式，失敗

Dear All,

請問，當我加入 Call sub3(4) 這行指令前，動作很正常，但加入後，
發現sub1 有執行，sub2 卻沒有動作，就直接執行sub3了，不曉得哪裡出了問題。

謝謝～

Sub File_Copy()

Windows("table.csv").Activate
Range("A1:f3000").Select
Selection.Copy
Windows("tablex.xlsm").Activate
Sheets(1).Select
Range("A1").Select
ActiveSheet.Paste

Application.OnTime Now + TimeValue("00:00:2"), "sub1"
Application.OnTime Now + TimeValue("00:00:2"), "sub2"
Call sub3(4)

End Sub

樓主熱帖

收藏

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

2^#

發表於 2015-3-10 15:43 | 顯示全部帖子

謝謝g大，
但是我想要接著執行sub3(4)
還是要
Application.OnTime Now + TimeValue("00:00:2"), "sub3(4)"
但，這樣的寫法，語法有錯～

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

3^#

發表於 2015-3-10 15:58 | 顯示全部帖子

Ha Ha Ha 原來還有這招，謝謝g大提供～

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

4^#

發表於 2015-3-12 14:59 | 顯示全部帖子

想再請教一下，當傳回的資料是兩筆以上可行嗎？這裡要如何修改呢？
謝謝～

sub3(4, XYz)

XYz = Cdate("3/12")

end sub

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

5^#

發表於 2015-3-13 09:29 | 顯示全部帖子

先前用 sub3(4, XYz) 直接執行，出現編譯錯誤，一直搞不定。
看到g大的語法，與我的蠻接近的，還是想不通。
剛再到網路上搜尋一次，應該是我問錯方向了。
正解是：
call sub3(4, XYz)
好像這樣就可以正常工作了。
Thanks.

靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。

返回列表下一主題上一主題