повторная операция

[iKlev4s]

добрый день,

нужен небольшой совет. При вводе чисел в ячейки C7, C8 и D7 числа суммируются с предыдущим числами и сумма записывается в ячейки E7, E8 и F7 соответственно.

Для этого используется такой код

Private vData
 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Not Intersect(Target, [C7]) Is Nothing Then
       If IsNumeric([C7]) Then vData = [C7]
    End If
    If Not Intersect(Target, [C8]) Is Nothing Then
       If IsNumeric([C8]) Then vData = [C8]
    End If
    If Not Intersect(Target, [D7]) Is Nothing Then
       If IsNumeric([D7]) Then vData = [D7]
    End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, [C7]) Is Nothing Then
       Application.EnableEvents = False
       If IsNumeric([C7]) Then [E7] = [C7] + [E7]
       Application.EnableEvents = True
    End If
    If Not Intersect(Target, [C8]) Is Nothing Then
       Application.EnableEvents = False
       If IsNumeric([C8]) Then [E8] = [C8] + [E8]
       Application.EnableEvents = True
    End If
    If Not Intersect(Target, [D7]) Is Nothing Then
       Application.EnableEvents = False
       If IsNumeric([D7]) Then [F7] = [D7] + [F7]
       Application.EnableEvents = True
    End If
End Sub

(на основе кода http://www.programmersforum.ru/showthread.php?t=1203)

Вопрос - как дополнить код для действий Б, В, Г, Д и т.д.? Спасибо

P.S. MS Office 2010

[Hugo121]

Не мог понять - зачем vData? Пришлось сходить по ссылке...
Действительно незачем.
Ну а дополнить - думаю аналогично. Но файл не смотрел.

[iKlev4s]

т.е. эта часть кода вообще не нужна?

Private vData
 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Not Intersect(Target, [C7]) Is Nothing Then
       If IsNumeric([C7]) Then vData = [C7]
    End If
    If Not Intersect(Target, [C8]) Is Nothing Then
       If IsNumeric([C8]) Then vData = [C8]
    End If
    If Not Intersect(Target, [D7]) Is Nothing Then
       If IsNumeric([D7]) Then vData = [D7]
    End If
End Sub

[Hugo121]

Ну а где Вы используете эту переменную?

[DiemonStar]

а так разве не проще?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [C7:C8, D7]) Is Nothing Then
     Application.EnableEvents = False
     Target.Offset(, 2) = IIf(IsNumeric(Target), Target + Target.Offset(, 2), Target.Offset(, 2))
     Application.EnableEvents = True
  End If
End Sub

[iKlev4s]

Сообщение от DiemonStar

а так разве не проще?

да, так гораздо проще, но при попытке стереть данные из ячейки D7 появляется ошибка (Error 13.jpg) и файл перестает работать. Тоже самое происходит при попытке стереть данные из двух ячеек сразу C7 - C8. Если стирать данные из C7 и C8 в отдельности, все O.K.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [C7:C20, D7:D20]) Is Nothing Then
     Application.EnableEvents = False
     Target.Offset(, 2) = IIf(IsNumeric(Target), Target + Target.Offset(, 2), Target.Offset(, 2))
     Application.EnableEvents = True
  End If
End Sub