作者instar7 (希望實現希望)
看板Office
標題[算表]VBA 每分鐘向下紀錄資料
時間Sat Sep 22 17:19:23 2018
軟體:EXCEL 想用VBA把Sheet1的資料帶入Sheet2 每分鐘紀錄資料並持續往下一行紀錄，
大大們幫忙，要如何加入每分鐘的語法?謝謝~
版本:2007
Sub TEST()
For i = 1 To 1000
x = i
Sheets("Sheet1").Select
Range("A2:J2").Select
Selection.Copy
Sheets("Sheet2").Select
Range("a" & (i)).Select
ActiveSheet.Paste
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.169.0.232
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1537607966.A.514.html
1F：→ soyoso: 定時上可以application.ontime 09/22 17:22
2F：→ soyoso: 持續往下一列的話，可以range.end或range.find來判斷最後 09/22 17:23
3F：→ soyoso: 一筆有值的儲存格，如要取得列號的話row；如是儲存格的偏 09/22 17:24
4F：→ soyoso: 移則以offset 09/22 17:24
5F：→ instar7: s大，我貼文前有試過ontime函數，但會顯示無法執行巨集， 09/22 17:52
6F：→ instar7: 可以請您再說明細節嗎？謝謝您 09/22 17:52
7F：→ instar7: 或是有範例可以參考嗎？謝謝 09/22 17:53
8F：→ soyoso: 如出現無法執行巨集的話，檢查ontime在指定Procedure參數 09/22 18:06
9F：→ soyoso: 字串上，是否也有該程序sub 09/22 18:06
10F：→ soyoso: 範例上可google excel vba application.ontime 可參考 09/22 18:07
11F：→ instar7: 好，我試試看，非常謝謝s大! 09/22 18:59