返回列表 上一主題 發帖

[發問] 請問有中止運行中程式的好方法嗎?

fvawxweaz

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
10 
註冊時間
2015-10-26 
最後登錄
2018-1-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-10-26 02:29 | 只看該作者

[發問] 請問有中止運行中程式的好方法嗎?

中止
大家好 我是剛學用Excel VBA的初學者，
請問如何在程式運行時，中止它?有什麼好方法嗎?
我寫了一支上網頁抓股票資料的程式，但執行完畢要花點時間，
想建一個可以中止抓資料的功能，但一執行程式，Excel就處於執行狀態無法點擊使用
所以想請問各位前輩，有什麼程式碼或方法可以達到這功能嗎?
收藏 分享

自我感覺良好

帖子
117 
主題
42 
精華
0 
積分
164 
點名
0  
作業系統
XP 
軟體版本
office2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-7-22 
最後登錄
2025-7-22 
2#
發表於 2015-10-26 11:07 | 只看該作者
按Esc鍵，再按E即可。
50 字節以內
不支持自定義 Discuz! 代碼

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2015-10-26 14:36 | 只看該作者
本帖最後由 准提部林 於 2015-10-27 09:44 編輯

Sub test()
On Error GoTo END_001
Application.EnableCancelKey = xlErrorHandler
~~主程式~~
Exit Sub
END_001:
MSGBOX "已手動停止"
End Sub

TOP

fvawxweaz

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
10 
註冊時間
2015-10-26 
最後登錄
2018-1-12 
4#
發表於 2015-10-27 03:13 | 只看該作者
感謝大大們的回復~
原來按"ESC鍵"就可以中止程式運行，不然都要傻傻等它跑完
感謝版主的程式碼，晚點來試試

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題