帖子: 28
主題: 13
精華: 0
積分: 68
點名: 0
作業系統: winXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-4
最後登錄: 2015-9-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-8-25 17:47 | 只看該作者

連續執行巨集

請教各位大大，因為巨集較長，所以分開二個來執行，如以下所示
Sub 巨集1()
Application.Run "SK1"
Application.Run "SK2"
End sub
但SK1執行完後就結束了，不會繼續執行SK2，請問是還要加什麼語法嗎，謝謝

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-8-26 06:46 | 只看該作者

回復 1# funnydisk
因為巨集較長，所以分開二個來執行
請檢查程式碼有無執行到 If ... Then End 結束程式

TOP

taiabc1234

中學生 Rank: 2

帖子: 23
主題: 0
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
註冊時間: 2012-8-20
最後登錄: 2012-10-1

3^#

發表於 2012-8-26 17:01 | 只看該作者

你是否有開啟另一檔案
這樣子巨集有時會無法執行

TOP

funnydisk

中學生 Rank: 2

帖子: 28
主題: 13
精華: 0
積分: 68
點名: 0
作業系統: winXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-4
最後登錄: 2015-9-29

4^#

發表於 2012-8-26 22:47 | 只看該作者

沒有設 If ... Then End 及開啟其它的檔案喔

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2012-8-27 07:04 | 只看該作者

回復 4# funnydisk
這樣是在瞎子摸象,請你上傳檔案看看

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2012-8-27 07:19 | 只看該作者

回復 4# funnydisk
你在 Application.Run "SK1" 的巨集尾端呼叫 "SK2" 不就 OK？

TOP

funnydisk

中學生 Rank: 2

帖子: 28
主題: 13
精華: 0
積分: 68
點名: 0
作業系統: winXP
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2012-7-4
最後登錄: 2015-9-29

7^#

發表於 2012-8-27 17:12 | 只看該作者

找到問題了，在第一個巨集裡面多了一個end，謝謝各位大大的幫忙

TOP