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: 8 Rank: 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

中學生 Rank: 2

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

中學生 Rank: 2

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