Событие с изменением рабочего листа Excel не выполняется, когда удалено несколько ячеек

У меня есть код для запуска события изменения, которое будет использовать мои данные. У диаграммы есть информация в столбцах AD. Код запускает данные, которые будут прибегать в любое время, когда значение в столбце D изменяется. Это работает, когда я ввожу новые данные, а также когда я удаляю содержимое ячейки в столбце D, однако, если я выберу информацию в столбцах AD определенной строки и затем удалю, удалив содержимое всех четырех ячеек с данными в этой строке событие не запускается. Что мне нужно изменить, чтобы это произошло? Код

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then Application.EnableEvents = False Range(Cells(1, 1), Cells(90, 1)).Select ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range(Cells(2, 1), Cells(90, 1)) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet2").Sort .SetRange Range(Cells(1, 1), Cells(90, 4)) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("E4").Select Application.EnableEvents = True End If End Sub 

Ты использовал:
If Target.Column = 4 Then

Попробуйте использовать:
If Not Intersect(Target, Range("D:D")) Is Nothing Then

  • Как надстройка Excel может реагировать на события на любом рабочем листе?
  • Как я могу отправить данные из веб-запроса Excel после завершения запроса?
  • Как уловить новые добавления строк в списке?
  • Excel vba - Отключить события мыши
  • Переименование события рабочего листа в Excel
  • Worksheet_Calculate запускает без какого-либо триггера
  • Excel Workbook Открыть событие из дополнения?
  • Excel VBA Combobox OnExit Event
  • Как добавить события в элементы управления, созданные во время выполнения в Excel с помощью VBA
  • Запуск другого макроса для другой ячейки только при изменении вручную
  • Предотвратите электронную почту в Excel 2007 (и 2010), если Workbook не полностью заполнен
  • Давайте будем гением компьютера.