Добрый день. При выделении и удалении макросом "Sub УдаленЗначенияЯчейк()" одновременно всех значений в ячейках Range(Cells(1, 1), Cells(2, 2)) возникает ошибка type mismatch. Какое необходимо добавить условие что бы эта ошибка не появлялась?
Выложить файл пример не могу на работе сорри.
Выложить файл пример не могу на работе сорри.
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1:A2")) Is Nothing Then If Target <> 0 And Cells(3, 1) = True Then MsgBox "Запустите Ваше действие" End If End If If Not Intersect(Target, Range("b1:b2")) Is Nothing Then If Target <> 0 And Cells(3, 1) = True Then MsgBox "Запустите Ваше действие" End If End If End Sub Sub УдаленЗначенияЯчейк() Worksheets("Лист1").Range(Cells(1, 1), Cells(2, 2)).Select 'очистка ячеек Selection.ClearContents End Sub |
Быстрее молнии, быстрее ветра, быстрее калькулятора