返回列表 上一主題 發帖

請求師兄協助,小弟不懂完成語法

quickfixer

帖子
155 
主題
1 
精華
0 
積分
200 
點名
4  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2026-10-25 
1# 跳轉到 »
發表於 2018-5-10 20:39 | 顯示全部帖子
本帖最後由 quickfixer 於 2018-5-10 20:43 編輯

回復 7# bully
01 學來的,這個方法不會讓excel停住,表單還可以正常做別的事
  1. Public i As Integer

  3. Sub 開始()
  4.     i = 0
  5.     Call test
  6. End Sub

  8. Sub test()
  9.        If i > 20 Then Exit Sub
  10. '下面這2行,換成你要跑的程式
  11.     i = i + 1
  12.     Cells(1, 1) = i
  13.     Application.OnTime Now + TimeValue("00:00:02"), "test"
  14. End Sub

  16. Sub 停止()
  17.    i=21
  18. End Sub
複製代碼

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題