返回列表 上一主題 發帖

如何暫停巨集運行

cdkee

帖子
185 
主題
46 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-10-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-11-9 01:03 | 只看該作者

如何暫停巨集運行

如何在按"Ctrl"鍵1次，來暫停巨集xxx運行，再按多次"Ctrl"鍵，巨集xxx繼續運行?謝謝大大!
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2010-11-9 08:09 | 只看該作者
用到Application.OnKey方法，但別用ctrl等重要系統鍵。
迴圈過程中用DoEvents。

TOP

cdkee

帖子
185 
主題
46 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-10-25 
3#
發表於 2010-11-9 13:00 | 只看該作者
用到Application.OnKey方法，但別用ctrl等重要系統鍵。
迴圈過程中用DoEvents。
oobird 發表於 2010-11-9 08:09



    設定按"A"鍵作停止巨集，小輩的錯在哪裡?
停止.rar (14.88 KB)

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
4#
發表於 2010-11-9 20:29 | 只看該作者
用DoEvents... oobird版主已經更您講了...
只是您的程式Run一次要點時間 所以按下"A"要再等一下~



Sub 模擬按鍵()

    Dim X As Integer
    Dim Y As Integer
    X = 90
    Y = 350
    Call SetCursorPos(X, Y)
   
    mouse_event 2, 0, 0, 0, 0
    mouse_event 4, 0, 0, 0, 0
   
      keybd_event 17, MapVirtualKey(17, 0), 0, 0
      keybd_event 67, MapVirtualKey(67, 0), 0, 0
      keybd_event 67, MapVirtualKey(67, 0), 2, 0
      keybd_event 17, MapVirtualKey(17, 0), 2, 0
      
    X = 90
    Y = 490
    Call SetCursorPos(X, Y)
    mouse_event 2, 0, 0, 0, 0
    mouse_event 4, 0, 0, 0, 0
      
    Sheets("sheet1").Cells(3, 3).Select
    ActiveSheet.Paste
    Sleep 3000
   
    DoEvents
    Application.OnKey "A", "停止"

    模擬按鍵
End Sub
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

cdkee

帖子
185 
主題
46 
精華
0 
積分
227 
點名
0  
作業系統
WIN 7 
軟體版本
旗舰版 
閱讀權限
20 
性別
男 
註冊時間
2010-9-14 
最後登錄
2024-10-25 
5#
發表於 2010-11-9 23:10 | 只看該作者
用DoEvents... oobird版主已經更您講了...
只是您的程式Run一次要點時間 所以按下"A"要再等一下~



S ...
Min 發表於 2010-11-9 20:29



    感謝版大!
在Sleep的時間內，command buttom用不到，有沒有可在DELAY時間內(預定DELAY1/2秒)，可用到的?再次感謝!

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題