здравствуйте
макрос с MsgBox сделал но дает ошибку
исключаю через MsgBox Selection.Cut -вырезание через контексное меню ActiveCell.FormulaR1C1 = "" - очищение ячейки через меню Selection.Delete = True удаление через меню клавишу Application.OnKey "{BACKSPACE}" клавишу Application.OnKey "{DELETE}" но красным светится строка в чем ошибка ?
макрос с MsgBox сделал но дает ошибку
исключаю через MsgBox Selection.Cut -вырезание через контексное меню ActiveCell.FormulaR1C1 = "" - очищение ячейки через меню Selection.Delete = True удаление через меню клавишу Application.OnKey "{BACKSPACE}" клавишу Application.OnKey "{DELETE}" но красным светится строка в чем ошибка ?
Код |
---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Cut = True Or ActiveCell.FormulaR1C1 = "" Or Selection.Delete = True Or Application.OnKey "{BACKSPACE}" Or Application.OnKey "{DELETE}" Then Select Case MsgBox("Вы точно хотите удалить данные из ячейки ?", 33, "Удаление данных") Case 1 ' Ок ActiveCell.Value = "" Case 2 ' Отмена End Select End If End Sub |