none
Наростающая сумма RRS feed

  • Общие обсуждения

  • Доброго времени суток. Каким образам надо написать этот макрос для нескольких ячеек.

    Заранее спасибо.

    Sub Worksheet_Change(ByVal Target As Excel.Range)
          With Target
             If .Address(False, False) = "A1" Then
                If IsNumeric(.Value) Then
                   Application.EnableEvents = False
                   Range("A2").Value = Range("A2").Value + .Value
                   Application.EnableEvents = True
                End If
             End If
          End With
    End Sub

    14 сентября 2013 г. 15:42