Excel复制实时数据并从中创build图表

我对VBA编程非常陌生。

我有一个Excel表格，其中实时数据填充到一个单元格，例如Sheet1.A6每隔一秒。

我需要一个每1分钟运行一次的macros，将Sheet1.A6值复制到另一个工作表中，以及Sheet2.A中的时间戳值和Sheet2.B中的时间戳记。

Sheet2输出将会像

价值*时间

23.1 *上午11:00

22.5 * 11:01 AM

22.6 * 11:02 AM

………. ………….

谢谢你的帮助。

Answer 1

你想要一些代码每分钟运行。

你应该可以用Application.OnTime函数来做到这一点。

这里有几个参考和例子：

• Ozgrid Excel MVP：按时运行macros
• Excel专家 – 非常小时，分钟，秒钟运行代码

首先创build将复制单元格到目标工作表的程序。

然后在一个正常的模块中，你可以这样调用它：

 Sub SetTimeForCopy() dim nextTime as date nextTime = Now + TimeValue("00:01:00") Application.OnTime TimeToRun, "CopyValue" End Sub 

像这样复制值：

 Sub CopyValue() application.Calculate worksheets("Sheet2").Range("c" & Cells(Rows.Count, 1).End(xlUp).Row+1).Value = Worksheets("Sheet1").Range("A6").Value Call SetTimeForCopy' call the schedule code again End Sub 

请注意 ，在CopyValue 中将调用SetTimeForCopy过程来安排下一个副本。

Answer 2

你为什么要移动实时数据点？ 使用一个variables来标识每个连续入口的计算位置[您可以使用OFFSET和COUNTA函数重新计算variables的单元格位置]使用Worksheet.Change事件在相邻单元格中生成时间戳值。