無限迴圈控制 - Excel程式區 - 麻辣家族討論版版

[發問] 無限迴圈控制

　暱稱: 熱狗慶

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2023-7-24 02:27 | 顯示全部帖子

回復 1# simon552614

sec_gap=30
Do
w=w+1
if w = 3 then w=0 : Application.SendKeys ("z")
滑鼠點擊一次
Application.Wait DateAdd("s", sec_gap, Now)

loop

靜思自在 : 【做人的開始】每一天都是故人的開始，每一個時刻都是自己的警惕。