返回列表 上一主題 發帖

連續執行巨集

funnydisk

帖子
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，請問是還要加什麼語法嗎，謝謝
收藏 分享

funnydisk

帖子
28 
主題
13 
精華
0 
積分
68 
點名
0  
作業系統
winXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-4 
最後登錄
2015-9-29 
7#
發表於 2012-8-27 17:12 | 只看該作者
找到問題了，在第一個巨集裡面多了一個end，謝謝各位大大的幫忙

TOP

c_c_lai

帖子
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

GBKEE

帖子
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

funnydisk

帖子
28 
主題
13 
精華
0 
積分
68 
點名
0  
作業系統
winXP 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-7-4 
最後登錄
2015-9-29 
4#
發表於 2012-8-26 22:47 | 只看該作者
沒有設  If   ... Then End 及開啟其它的檔案喔

TOP

taiabc1234

帖子
23 
主題
0 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2012-8-20 
最後登錄
2012-10-1 
3#
發表於 2012-8-26 17:01 | 只看該作者
你是否有開啟另一檔案
這樣子巨集有時會無法執行

TOP

GBKEE

帖子
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

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題