Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/unity3d/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 获取顶行上的RTD数据_Excel_Vba - Fatal编程技术网

Excel 获取顶行上的RTD数据

Excel 获取顶行上的RTD数据,excel,vba,Excel,Vba,使用RTD,在后续行(lrow)中获取新数据并不是问题。 但这会将新数据放在最后一行,我希望它放在最上面一行,在我的例子中是第13行。 为了实现这一点,每次从第12行的RTD公式中获取新数据时,我都会在第13行插入一个新行。 但下面的代码插入了58行,其中填充了每个新数据,如下代码所示。 Application.Wait0.5秒无效,1秒强制每秒更新相同的冗余数据,阻止RTD使用新数据刷新。 每个实际数据流入间隔都是零星的,介于一秒(或更短?)到几秒之间。 我在这里遗漏了什么,或者如何可靠地解决

使用RTD,在后续行(
lrow
)中获取新数据并不是问题。
但这会将新数据放在最后一行,我希望它放在最上面一行,在我的例子中是第13行。
为了实现这一点,每次从第12行的RTD公式中获取新数据时,我都会在第13行插入一个新行。
但下面的代码插入了58行,其中填充了每个新数据,如下代码所示。
Application.Wait
0.5秒无效,1秒强制每秒更新相同的冗余数据,阻止RTD使用新数据刷新。
每个实际数据流入间隔都是零星的,介于一秒(或更短?)到几秒之间。
我在这里遗漏了什么,或者如何可靠地解决这个问题?
蒂亚

输出-

Time    Last
        RTD Formula -> Row 12
              -> Row 13
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:18 25886
请更换:

Application.ScreenUpdate=False
后接
Application.ScreenUpdate=True

Application.EnableEvents=False
后接
Application.EnableEvents=True


当代码插入一行时,将再次触发
计算
事件。

尝试将
Application.screenUpdate=False
替换为
Application.screenUpdate=True
,然后替换为
Application.EnableEvents=False
。当代码插入一行时,将再次触发Calculation`事件…是否仍处于活动状态?你试过我的建议了吗?它改变了什么吗?是的,很有效,谢谢!在我们的社区里,至少给我们一个标志是礼貌的。。。也许勾选答案代码上的复选框(我会像答案一样贴出来),让它成为可接受的答案。通过这种方式,其他有类似问题的人将了解如何解决此类问题。。。
Time    Last
        RTD Formula -> Row 12
              -> Row 13
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:20 25878
1:54:18 25886