無限迴圈控制 - 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

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。