Как очистить значения других ячеек при очистке ячейки в ms excel?

Question

[B_M]

Есть таблица со значениями. Нужно, когда я нажимаю delete в ячейке A1, автоматически очищать значения в ячейках H1 и Q1. Подскажите, пожалуйста, как это реализовать средствами VBA.

Comments

[DS28]

А тут точно нет ошибки молотка (ошибки XY)? Может дадите более подробное описание своей задачи?

[B_M]

DS28, Погуглил про ошибку молотка. Нет, мне кажется, я описал буквально именно то, чего хотел бы достичь. Ручная очистка ячейки A1 должна приводить к автоматической очистке ячейки H1 и Q1.

Answer 1

[x67]

Да, в excel есть события. Подстрой код Elvis под свой случай. Условие должно быть вроде if selection.column=1 and selection.value="" then range(тут сам рэйндж).clearcontents
А постоянно селектить(выбирать) рейндж для удаления не нужно - это совершенно лишнее телодвижение.
Еще бы неплохо проверять выделение на количество ячеек.

Private Sub Worksheet_Change(ByVal Target As Range)
For Each t In Target
    If t.Column = 1 And t.Value = "" Then
        Range("H" & t.Row).ClearContents
        Range("Q" & t.Row).ClearContents
    End If
Next t
End Sub

Comments

[B_M]

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

[x67]

B_M, для конкретной ячейки - нет, но при необходимости это реализуется с помощью условий, о которых я писал выше

[x67]

B_M, отредактировал ответ. Создаете событие и вставляете в него код из ответа. Единственный нюанс - если содержимое ячейки в столбце А было пустым, но после чего ячейку "отредактировали" оставив пустой, значения в столбцах H и Q все равно удалятся
Со множественным выделением также работает отлично.

[B_M]

x67, Большое спасибо, это то, что нужно.

Answer 2

[Elvis]

А принципиально на delete?
Можно сделать так:

Sub del()
    Dim row As String
    row = ActiveCell.row
    Range("H" & row).Select
    Selection.ClearContents
    Range("Q" & row).Select
    Selection.ClearContents
    Range("A" & row).Select
    Selection.ClearContents
End Sub

После этого делаем назначение макроса например на Ctrl+k и нажимать эту комбинацию вместо delete. В макросе специально сделал сначала очистку ячейки в столбце "H" и "Q", а потом только в столбце "A". Это для того чтобы после выполнения макроса курсор был в столбце "A".

Comments

[B_M]

Спасибо за ответ. Я пытался как-то отслеживать это событие через SheetChange, но пока успеха не достиг.