Watches 集合

Application Watches Watch

指定应用程序中所有 Watch 对象的集合。

Watches 集合用法

使用 Application 对象的 Watches 属性可返回一个 Watches 集合。

在下面的示例中，Microsoft Excel 采用 Add 方法创建一个新的 Watch 对象。本示例在单元格 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

通过采用 Watches 集合的 Delete 方法，可以从监视功能中指定删除单个单元格。本示例从 watch 窗口中删除工作簿 1 的工作表 1 上的单元格 A3。本示例假定已在工作簿 1 的工作表 1 上添加了单元格 A3（采用前一个示例可添加 Watch 对象）。

Sub DeleteAWatch()

    Application.Watches(Workbooks("Book1").Sheets("Sheet1").Range("A3")).Delete

End Sub

通过采用 Watches 集合的 Delete 方法，还可指定从“监视窗口”中删除所有的单元格。本示例从“监视窗口”中删除所有的单元格。

Sub DeleteAllWatches()

    Application.Watches.Delete

End Sub