Objeto Watches (Excel)
Uma coleção de todos os objetos Watch em um aplicativo especificado.
Use a propriedade Watches do objeto Application para retornar uma coleção Watches .
No exemplo a seguir, o Microsoft Excel cria um novo objeto Watch usando o método Add . Este exemplo cria uma fórmula de somatório na célula A3 e adiciona essa célula ao recurso de inspeção.
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
Você pode especificar a remoção de células individuais do recurso de inspeção usando o método Delete da coleção Watches. Este exemplo exclui a célula A3 na planilha 1 do livro 1 da janela Relógio. Este exemplo pressupõe que você tenha adicionado a célula A3 na planilha 1 do livro 1 (usando o exemplo anterior para adicionar um objeto Watch ).
Sub DeleteAWatch()
Application.Watches(Workbooks("Book1").Sheets("Sheet1").Range("A3")).Delete
End Sub
Você também pode especificar para remover todas as células da janela Relógio usando o método Delete da coleção Watches . Este exemplo exclui todas as células da janela Relógio.
Sub DeleteAllWatches()
Application.Watches.Delete
End Sub
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.