Worksheet_Change 流式传输实时数据时不启动

Question

我已经阅读了很多关于这个主题的帖子，但是似乎没有任何内容适合我的场景

我想 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

我浏览了很多帖子，建议检查 Äpplication.EnableEvents = True 或创建函数来检测更改（这确实有效，但我无法在函数内调用 sub） - 但没有成功。

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

谢谢

Answer 1

你可以去

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

Answer 2

假设单元格 A1 通过流更新。更新也不会触发：

Worksheet_SelectionChange
Worksheet_Change

你需要做的是在某处建立一个等式：

=A1

当 A1 刷新时，公式单元格将 re-calculate 并且您可以使用计算事件检测它。

Worksheet_Change 流式传输实时数据时不启动

Worksheet_Change doesn't fire up when streaming live data

excel

vba

worksheet