返回列表 上一主題 發帖

指定時間.執行巨集

  1. Private Sub EX()
  2.     '必須在第一次上午10點,指定的時間之前執行
  3.     Application.OnTime TimeValue("10:00:00 AM"), "工作表1.TEST"
  4.     '  "工作表1.TEST" 程式在工作表模組(物件模組)中需指明    "模組名稱.程式名稱"
  5.     '程式在一般模組  無需指明模組名稱,可直接寫上   "程式名稱"

  6. End Sub
複製代碼
  1.    Sub TEST()
  2.      '寫上你要執行的程式碼
  3.     '或呼叫(執行),程式碼寫在別的程式
  4.    Application.OnTime Date + 1 + TimeValue("10:00 AM"), "工作表1.TEST1"
  5.    '下次自動於隔天同時間執行程式
  6. '***  如第一次指定的時間執行 TEST 也可以不要執行 EX

  7. End Sub
複製代碼

TOP

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題