Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка type mismatch при удалении всех значений в ячейках
 
#1
29.11.2018 11:47:35
Добрый день. При выделении и удалении макросом "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
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
 
 
#2
29.11.2018 11:57:23
Borrusale, так наверно?
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then
  MsgBox "Запустите ещё какое-то действие"
  Exit Sub
End If

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
 
 
 
#3
29.11.2018 12:08:48
Без проверки в файле вижу что ошибка будет если код например в модуле листа НЕ "Лист1", и если "Лист1" не активен.
 
 
 
#4
29.11.2018 12:10:50
Апострофф, все работает спасибо. Подскажите, что обозначает "1" в
Код
If Target.Count <> 1
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
 
 
#5
29.11.2018 12:12:33
Hugo, а что можно такой макрос использовать не в модуле листа? Таких вариантов не видел.
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
 
 
#6
29.11.2018 12:13:35
Если количество измененных ячеек не равно одному - дословно...
 
 
 
#7
29.11.2018 12:14:07
Borrusale, Sub УдаленЗначенияЯчейк() запросто.
И кроме того - Вы не указали в каком листе этот макрос.
P.S. И ещё - я написал
Цитата
код например в модуле листа НЕ "Лист1"
, читайте тщательнее :)
Изменено: Hugo - 29.11.2018 12:15:36
 
 
 
#8
29.11.2018 12:18:17
Hugo, интересует этот макрос Private Sub Worksheet_Change(ByVal Target As Range). Не в модуле листа использовать можно?
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
 
 
#9
29.11.2018 12:20:44
Не в модуле листа можно использовать вызов этого макроса.
Только нужно сперва убрать Private.
Изменено: Hugo - 29.11.2018 12:26:01
 
 
 
#10
29.11.2018 12:23:14
В модуле книги -
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub
Можно и на уровне приложения сделать (F1 найдите наконец...)
 
 
 
#11
29.11.2018 12:36:25
Всем спасибо) Все работает буду разбираться !
Быстрее молнии, быстрее ветра, быстрее калькулятора
 
 
 
Страницы: 1
Наверх