返回一个 Watches 对象,该对象代表在重新计算工作表时跟踪的区域。
expression.Watches
expression 必需。该表达式返回“应用于”列表中的对象之一。
本示例在单元格 A3 中创建一个求和公式,然后将该单元格添加到“监视窗口”中。
Sub AddWatch()
With Application
.Range("A1").Formula = 1
.Range("A2").Formula = 2
.Range("A3").Formula = "=Sum(A1:A2)"
.Range("A3").Select
.Watches.Add Source:=ActiveCell
End With
End Sub