VBA/Excel/Access/Word/Excel/Watch

Материал из VB Эксперт
Перейти к: навигация, поиск

Add watch

 
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
Источник — «http://vbex.ru/index.php?title=VBA/Excel/Access/Word/Excel/Watch&oldid=1566»