返回列表 上一主題 發帖

[發問] Application.OnTime 無法終止 ?

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2013-1-23 09:04 | 顯示全部帖子
回復 8# t8899
有以下之模式可供你選用：
(一)
  1. 置於模組 Module1 內：
  2. Private Sub Auto_Open()
  3.     Ex
  4. End Sub

  6. Sub Ex()
  7.     Static cts
  8.    
  9.     cts = cts + 1
  10.     Cells(cts, 1).Value = "Here I Am!"
  11.    
  12.     Application.OnTime (Now + TimeValue("00:03:00")), "Module1.Ex"
  13. End Sub
複製代碼
(二)
  1. 置於 ThisWorkbook 內：
  2. Private Sub Workbook_Open()
  3.     Ex
  4. End Sub

  6. Sub Ex()
  7.     Static cts
  8.    
  9.     cts = cts + 1
  10.     Cells(cts, 1).Value = "Here I Am!"
  11.    
  12.     Application.OnTime (Now + TimeValue("00:03:00")), "ThisWorkbook.Ex"
  13. End Sub
複製代碼
(三)
  1. 置於模組 Module1 內：
  2. Private Sub Auto_Open()
  3.     工作表1.Ex
  4. End Sub

  6. 置於 工作表1 內：
  7. Sub Ex()
  8.     Static cts
  9.    
  10.     cts = cts + 1
  11.     Cells(cts, 1).Value = "Here I Am!"
  12.    
  13.     Application.OnTime (Now + TimeValue("00:03:00")), "工作表1.Ex"
  14. End Sub
複製代碼

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題