ウォッチオブジェクト (Excel)Watches object (Excel)

指定したアプリケーションのすべての**Watch** オブジェクトのコレクションです。A collection of all the Watch objects in a specified application.

Example

ウォッチのコレクションを取得するのにには、 Applicationオブジェクトの**ウォッチ** のプロパティを使用します。Use the Watches property of the Application object to return a Watches collection.

次の使用例では、 Addメソッドを使用して新しいWatchオブジェクトを作成します。In the following example, Microsoft Excel creates a new Watch object by using the Add method. 次の使用例は、セル A3 に合計の数式を作成し、このセルをウォッチ機能に追加します。This example creates a summation formula in cell A3, and then adds this cell to the watch facility.

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

ウォッチポイントコレクションのDeleteメソッドを使用して、ウォッチ機能から個々のセルを削除するように指定できます。You can specify to remove individual cells from the watch facility by using the Delete method of the Watches collection. 次の使用例は、ブック1のワークシート1のセル A3 を [ウォッチ] ウィンドウから削除します。This example deletes cell A3 on worksheet 1 of book 1 from the Watch window. この使用例では、(前の例を使用してWatchオブジェクトを追加して) 1 の sheet 1 にセル A3 が追加されていることを前提としています。This example assumes that you have added the cell A3 on sheet 1 of book 1 (by using the previous example to add a Watch object).

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

ウォッチポイントコレクションのDeleteメソッドを使用して、[ウォッチ] ウィンドウからすべてのセルを削除するように指定することもできます。You can also specify to remove all cells from the Watch window by using the Delete method of the Watches collection. 次の使用例は、[ウォッチ] ウィンドウからすべてのセルを削除します。This example deletes all cells from the Watch window.

Sub DeleteAllWatches() 
 
 Application.Watches.Delete 
 
End Sub

メソッドMethods

プロパティProperties

関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.