由於沒有注意,發錯分類區,故重發一次,請轉往如下網址:
http://tw.knowledge.yahoo.com/question/question?qid=1609110706818
那裡贈點20,抱歉了!
另外文中的&#039在巨集中所顯現的是左上撇號在這裡僅出現內碼
前文如下:
大家好,要使用excel每15分鐘紀錄dde傳回的數據,找了相似的問題
網址如下:http://tw.knowledge.yahoo.com/question/question?qid=1608031905909
依樣畫葫蘆後使用程式碼如下:
Dim RunWhen As Double ' 廣域變數, 紀錄下次執行副程式的時間
Sub RunMe()
Sheet1.[A10:AV10].Copy
Sheet2.[A65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = 0
RunWhen = Now() TimeValue("00:15:00") '下次執行時間為15分鐘後
Application.OnTime RunWhen, RunMe
End Sub
Sub StopRun()
Application.OnTime RunWhen, RunMe, , False
End Sub
--------------------------------------------------------------------------
結果跳出視窗說明
編譯錯誤:
必須是:陳述結尾
-------------------------------------------
翻紅錯誤區為
RunWhen = Now() TimeValue("00:15:00") '下次執行時間為15分鐘後
個人是想紀錄sheet1a1~sheet1a10每十五分鐘的值
因個人不懂語法,全都是抄回來合併更改
請諸位耐心詳細指教
謝謝!!
http://tw.knowledge.yahoo.com/question/question?qid=1609110706818
那裡贈點20,抱歉了!
另外文中的&#039在巨集中所顯現的是左上撇號在這裡僅出現內碼
前文如下:
大家好,要使用excel每15分鐘紀錄dde傳回的數據,找了相似的問題
網址如下:http://tw.knowledge.yahoo.com/question/question?qid=1608031905909
依樣畫葫蘆後使用程式碼如下:
Dim RunWhen As Double ' 廣域變數, 紀錄下次執行副程式的時間
Sub RunMe()
Sheet1.[A10:AV10].Copy
Sheet2.[A65536].End(xlUp).Offset(1, 0).PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = 0
RunWhen = Now() TimeValue("00:15:00") '下次執行時間為15分鐘後
Application.OnTime RunWhen, RunMe
End Sub
Sub StopRun()
Application.OnTime RunWhen, RunMe, , False
End Sub
--------------------------------------------------------------------------
結果跳出視窗說明
編譯錯誤:
必須是:陳述結尾
-------------------------------------------
翻紅錯誤區為
RunWhen = Now() TimeValue("00:15:00") '下次執行時間為15分鐘後
個人是想紀錄sheet1a1~sheet1a10每十五分鐘的值
因個人不懂語法,全都是抄回來合併更改
請諸位耐心詳細指教
謝謝!!

