监视 Excel) (对象
指定应用程序中所有 Watch 对象的集合。
使用 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 方法,可以从监视功能中指定删除单个单元格。 本示例从“监视”窗口中删除第 1 本书的工作表 1 上的单元格 A3。 本示例假定你已使用上一个示例将 Watch 对象添加到第 1 (卷第 1 页的单元格 A3) 。
Sub DeleteAWatch()
Application.Watches(Workbooks("Book1").Sheets("Sheet1").Range("A3")).Delete
End Sub
还可以使用 Watches 集合的 Delete 方法指定从“监视”窗口中删除所有单元格。 本示例从“监视”窗口中删除所有单元格。
Sub DeleteAllWatches()
Application.Watches.Delete
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。