[發問] 關於 Application.OnTime 的使用...

saleen

我就直接貼程式碼了


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

回復 3# saleen


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

saleen

改成

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

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

bobomi

方法有2
提供法1

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

saleen

回復 5# bobomi


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

bobomi

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