作者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/cn.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