light0935 wrote:
請問你sheet的...(恕刪)
L大您好,早上啟動EXCEL後的結果與昨天一樣!時間到了賄動作,位置也都對。但就是不會往下複製,只在同一個位置上做資料的變動。將VBA貼上如下:
主程式頁框:ThisWorkBook(程式碼)
左上選項:WorkBook 右上選項:Open
---------------------------------------------------------------
Private Sub WorkBook_Open()
For n = 0 To 18000 Step 600 '總跑檔時間 18000 秒,間隔 10分鐘(600秒)
Application.OnTime TimeSerial(8, 45, n), "Copy_Data" '指定 8 點 45 分開始跑檔 (跑到 13 點 45 分台指期收盤)
Next
End Sub
------------------------------------------------------------------
副程式頁框:Module1(程式碼)
左上選項:(一般) 右上選項:Copy_Data
-------------------------------------------------------------
Sub Copy_Data()
Sheets("欄位說明").Cells(3 + i, 10).Resize(1, 3).Value = Sheets("欄位說明").Cells(8, 6).Resize(1, 3).Value
'複製 Sheets("欄位說明") 第8行第6欄到第8欄的資料(共3欄),從第3行第10欄開始複製貼上
'(此處為原作者:light0935敘述)而第二行第一欄到第八欄的資料則是抓取我另一個 sheets 裡的,會這樣做是為了方便及簡化 VBA 的寫法
i = i + 1
End Sub
-------------------------------------------------------------
有勞您看看是否仍有錯處,謝謝您。
junten 拜
關閉廣告