VBAのIE制御

Watchesコレクションについての解説になります。

• Applicationオブジェクト
  • Watchesコレクション
    • Watchオブジェクト

目次

• Watchesコレクションとは
• シート見出しの色を設定するサンプルコード
  • 実行結果
  • 解説
• Watchesオブジェクトの親オブジェクト一覧
• Watchesオブジェクトのプロパティ一覧

Watchesコレクションとは

Watchesコレクションは、指定されたアプリケーションにあるすべての Watch オブジェクトのコレクションです。

Watches コレクションを取得するには、Application オブジェクトの Watches プロパティを使用します。次の使用例は、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

※ドラッグ(スワイプ)すると全体を確認できます。

• Watchesプロパティ

シート見出しの色を設定するサンプルコード

こちらでは、シート見出しの色を設定するマクロになります。

Sub sample()

    Sheets("Sheet1").Watches.ColorIndex = 3

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

解説

こちらのマクロは、WatchesオブジェクトのColorIndexプロパティを利用しています。

Watchesオブジェクトの親オブジェクト一覧

Watchesオブジェクトのプロパティ一覧

• Watchesオブジェクト(ColorIndexプロパティ)のプロパティ