指定應用程式中所有 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 方法指定從 [Watch] 視窗移除所有儲存格。 此範例會刪除 [監看] 視窗中的所有儲存格。
Sub DeleteAllWatches()
Application.Watches.Delete
End Sub
方法
屬性
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。