首页 文章

Excel可以复制实时数据并从中创建图表

提问于
浏览
2

我对VBA编程很新 .

我有一张excel表,其中实时数据填充到一个单元格,例如Sheet1.A6 everysecond .

我需要一个宏,它将每1分钟运行一次,将Sheet1.A6值复制到另一个工作表以及Sheet2.A中的值和Sheet2.B中的时间戳之类的时间戳 .

Sheet2输出就像

Value * Time

23.1 * 11:00 AM

22.5 * 11:01 AM

22.6 * 11:02 AM

.......... .............

谢谢你的帮助 .

2 回答

  • 1

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

    您应该可以使用Application.OnTime函数执行此操作 .

    以下是一些参考和示例:

    首先创建您的过程,将单元格复制到目标工作表 .

    然后在正常模块中,您可以这样调用它:

    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
    

    NOTICE 在CopyValue中调用SetTimeForCopy过程,该过程将调度下一个副本 .

  • 0

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

相关问题