stream式传输实时数据时,Worksheet_Change不会启动

我已经阅读了许多关于这个话题的文章,但是似乎没有任何工作适合我的情况

我想要Call Sub单元格更改(B2),其中包含来自外部源的实时数据馈送 – last updated

 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("B2")) Is Nothing Then Call SubName End If End Sub 

我经历了许多post,build议检查Äpplication.EnableEvents = True ,或者创build函数来检测变化(但是我不能在函数内调用子函数),但没有成功。

Interestnigly enough, when I click on B2 and press enter - it executes the sub

谢谢

说单元格A1是通过stream式更新的。 更新不会触发:

  • Worksheet_SelectionChange
  • Worksheet_Change

你需要做的是设置一个方程:

 =A1 

A1刷新时,公式单元格将重新计算,您可以使用计算事件来检测它。

你可以简单地去

 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" Then SubName End Sub