每分钟复制范围(可更改)

Question

我是VBA的初学者，总是管理着一些功能来解决我的问题，在这种情况下，我有市场出价和报价的在线馈送，以及摘要，我想复制每一分钟的摘要值和格式到右边，与一些变量，将与复制和粘贴之间的时间间隔更新11/06

请看此图[在图像中，您可以看到与当前出价和报价范围“A4:C104”当前报价F5及其在F3中的位置为黄色的数据。您可以看到10个最佳的(最接近当前的出价和出价)，我想每隔5分钟复制并粘贴到右侧，以查看市场趋势1

Dim timerun



Sub copymacro()

Dim r1 As Range
Columnstart = Cells(5, Columns.Count).End(xlToLeft).Column + 1
Set r1 = Worksheets(1).Range("i5:L17")
r1.copy
r1.Offset(0, Columnstart).PasteSpecial Paste:=xlPasteValues
Columnstart = Columnstart + 9
Call nextrun


End Sub

Sub nextrun()
timerun = Now + TimeValue("00:00:03")
Application.OnTime timerun, "copymacro"

End Sub

Sub start()
Call nextrun
End Sub

Sub Finish()
Application.OnTime timerun, "copymacro", , False
End Sub

Answer 1

Dim timerun

Sub copymacro()

Dim r1 As Range
Columnstart = Cells(5, Columns.Count).End(xlToLeft).Column + 1
Set r1 = Worksheets(1).Range("i5:L17")
r1.copy
r1.Offset(0, Columnstart).PasteSpecial Paste:=xlPasteValues
Columnstart = Columnstart + 9
timerun = Now + TimeValue("00:00:03")
Application.OnTime timerun, "copymacro"


End Sub


Sub Finish()
Application.OnTime timerun, "copymacro", , False
End Sub

如果您需要定期复制范围