Question

我已阅读了很多关于此主题的帖子，但似乎没有任何内容适合我的方案

我希望Call Sub更改单元格（B2），其中包含来自外部来源的实时数据Feed 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

通过流式传输更新单元格 A1 。更新不会触发：

Worksheet_SelectionChange
Worksheet_Change

你需要做的是在某个地方设置一个等式：

=A1

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

Answer 2

你可以直接去

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

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

2 个答案: