Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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.