При заполнении ячейки в строке таблицы все остальные ячейки этой строки удаляются

Пользователь

Сообщений: 13 Регистрация: 18.12.2015

08.03.2020 22:43:49

Добрый день. Нужна помощь. Необходимо решить вопрос. Есть таблица , при двойном нажатии на ячейку, она заполняется значением "1", а все остальные ячейки этой строке очищаются. И так же на любой строке таблицы. Заранее огромное спасибо!!!!!

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

08.03.2020 23:00:10

Доброе время суток.
Вариант

Код

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Target.ListObject Is Nothing Then
        Cancel = True
        Target.ListObject.ListRows(Target.Row - Target.ListObject.HeaderRowRange.Row).Range.Value = Empty
        Target.Value = 1
    End If
End Sub

Изменено: Андрей VG - 08.03.2020 23:02:54 (Перезамудрил :( )