標題: [發問] 關於 Application.OnTime 的使用... [打印本頁]

---

作者: saleen    時間: 2015-1-5 17:48     標題: 關於 Application.OnTime 的使用...

本帖最後由 saleen 於 2015-1-5 17:50 編輯

我就直接貼程式碼了


Sub workbook_open()
Call update_acrd_time
End Sub

Sub update_acrd_time()
Application.OnTime TimeValue("17:37:30"), "update_data"
Application.OnTime TimeValue("17:19:00"), "update_data2"
End Sub

Sub update_data()
With 工作表1
.[A1] = .[B1].Value
End With
End Sub

Sub update_data2()
With 工作表1
.[A2] = .[B2].Value
End With
End Sub


不知道為什麼這樣跑每次都會出現 :
無法執行巨集,該巨集可能無法在此活頁簿中使用,或已停用該巨集
可是我單獨跑 update_data 或 update_data2 都沒問題 = =?
Application.OnTime 這樣的用法也沒錯
照 Microsoft 的說明打的
http://msdn.microsoft.com/en-us/library/office/ff196165(v=office.15).aspx

還請各位大大幫忙了
主要是想在特定的時間去紀錄資料
如果有更好的寫法也請大大們提點小妹
感謝 !!

---

作者: owen06    時間: 2015-1-6 22:36

回復 3# saleen


  這樣才是正確的指令：  
  With Sheets("工作表1")

---

作者: saleen    時間: 2015-1-7 14:27

改成

Sub update_data()
With Sheets("工作表1")
.[A1] = .[B1].Value
End With
End Sub

還是一樣 , 單獨執行這段都沒問題 , 放進整段一起執行就出錯
救命啊阿!!!!

---

作者: bobomi    時間: 2015-1-8 20:49

方法有2
提供法1

把
Sub update_data()
Sub update_data2()
丟到 module 裡面就解決了

---

作者: saleen    時間: 2015-1-8 21:13

回復 5# bobomi


    bobo 姊再次救了小妹
太感謝了
不過為什麼會這樣呢 ??

---

作者: bobomi    時間: 2015-1-10 13:41

因為module下的函數預設為公開

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)