Run-time error '13' (продолжение темы)

[iKlev4s]

добрый день,

при попытке стереть данные из ячейки 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

[Скрипт]

iKlev4s, методом "Пробы" (метод "Пробы" - это когда берёшь из кода фрагменты и отдельно анализируешь) выяснил, что является источником ошибки. Когда вы удаляете данные из нескольких ячеек, то переменная "Target" представляет собой не одну ячейку, а несколько, а прибавить число "1" к нескольким ячейкам сразу нельзя тем способом, который вы используете (в вашей ситуации ничего и не должно прибавляться, т.к. "IsNumeric(Target)" даст "False", но почему-то эта команда "Target + Target.Offset(, 2)" анализируется компьютером). В данном случае несколько ячеек можно рассматривать как VBA-массив:

Sub Procedure_1()
    
    'Создаём массив.
    Dim myArray(1 To 2) As Long
    
    'Пытаемся прибавить к массиву число "1".
    'Вывод результата в View - Immediate Window.
    Debug.Print myArray() + 1

End Sub

Вывод

Вам нужно внести изменения в ваш код.

[Step_UA]

Ошибка связана с тем, что для функции IIF вычисляются все значения независимо от значения условия ...

  If Not Intersect(Target, [C7:C20, D7:D20]) Is Nothing And IsNumeric(Target) Then
     Application.EnableEvents = False
     Target.Offset(, 2) = Target + Target.Offset(, 2)
     Application.EnableEvents = True
  End If

[doober]

Target.Offset(, 2) = IIf(IsNumeric(Target), Target + Target.Offset(, 2), Target.Offset(, 2))

Замените на

If IsNumeric(Target) Then Target.Offset(, 2) = Target + Target.Offset(, 2)

[iKlev4s]

спасибо всем, программа заработала без ошибок

И, если можно, еще один вопрос. Как переписать код, чтобы значения одинаковых действий суммировались в одну ячейку?