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

 > 

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

  • Discussion
    Нужно войти
    0
    Нужно войти

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

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

    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
    |