Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как скрыть ошибку при срабатывании макроса?
 
#1
25.09.2019 16:59:56
Код
Sub Макрос1()

Rows(Range("ИТОГИ1").Row - 1).Copy
Rows(Range("ИТОГИ1").Row + 0).Insert Shift:=xlDown
Application.CutCopyMode = False

For i = 1 To 20
With Cells(Range("ИТОГИ1").Row - 1, i)
    If Left(.Formula, 1) <> "=" Then .Clear
End With
    
Next

End Sub

Есть вот такой код, но когда он срабатывает возникает ошибка (Скрин внизу). Как скрыть это оповещение?

P.S. Не объединять ячейки я не могу, так нужно.
 
 
 
#2
25.09.2019 17:03:56
symmetry,
Попробуйте добавить строку On Error Resume Next:
Код
Sub Макрос1()
 
On Error Resume Next
Rows(Range("ИТОГИ1").Row - 1).Copy
Rows(Range("ИТОГИ1").Row + 0).Insert Shift:=xlDown
Application.CutCopyMode = False
 
For i = 1 To 20
With Cells(Range("ИТОГИ1").Row - 1, i)
    If Left(.Formula, 1) <> "=" Then .Clear
End With
     
Next
 
End Sub


Или, если процесс копирования важно отслеживать - то так:

Код
Sub Макрос1()
 
Rows(Range("ИТОГИ1").Row - 1).Copy
Rows(Range("ИТОГИ1").Row + 0).Insert Shift:=xlDown
Application.CutCopyMode = False
 
On Error Resume Next
For i = 1 To 20
With Cells(Range("ИТОГИ1").Row - 1, i)
    If Left(.Formula, 1) <> "=" Then .Clear
End With
     
Next
 
End Sub
Изменено: Лунтик - 25.09.2019 17:06:11
 
 
 
#3
25.09.2019 17:05:17
Код
If Left(.Formula, 1) <> "=" Then .Value = Empty
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#4
25.09.2019 17:09:48
Спасибо всем огромное.
Было достаточно первого варианта

Отдельно спасибо Лунтик  
 
 
 
#5
25.09.2019 17:14:25
Но ведь вариант Лунтика только пропустит шаг с ошибкой. Или задача именно в этом?
 
 
 
Страницы: 1
Наверх