Compartilhar via


Objeto de relógios (Excel)

Uma coleção de todos os objetos watch numa aplicação especificada.

Exemplo

Utilize a propriedade Relógios do objeto Aplicação para devolver uma coleção de Relógios .

No exemplo seguinte, o Microsoft Excel cria um novo objeto Watch com 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 elimina a célula A3 na folha de cálculo 1 do livro 1 da janela Ver. Este exemplo pressupõe que adicionou a célula A3 na folha 1 do livro 1 (utilizando o exemplo anterior para adicionar um objeto Watch ).

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

Também pode especificar a remoção de todas as células da janela Monitorização através do método Eliminar da coleção Relógios . Este exemplo elimina todas as células da janela Monitorização.

Sub DeleteAllWatches() 
 
 Application.Watches.Delete 
 
End Sub

Métodos

Propriedades

Confira também

Suporte e comentários

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.