Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/из-за макроса не работает отмена - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
из-за макроса не работает отмена
Лехаа Дата: Понедельник, 25.03.2013, 12:42 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 4 ±
Замечаний: 0% ±

Почему когда макрос находится и работает на листе пропадает возможность отменить проделанные действия:

'выставляет дату заполнения и знак "-", исправляет в двух ячейках прописные на заглавные буквы
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 3 Then
Application.EnableEvents = False
Target.Offset(, 32).Resize(, 2).ClearContents
If Target Like "лак*" Then: Target.Offset(, 32) = "-": Target.Offset(, 33) = Now
ElseIf Target.Column = 7 Or Target.Column = 8 Then
Application.EnableEvents = False
Target = StrConv(Target, 3)
End If
Application.EnableEvents = True
End Sub
[/vba]
 
Ответить
СообщениеПочему когда макрос находится и работает на листе пропадает возможность отменить проделанные действия:

'выставляет дату заполнения и знак "-", исправляет в двух ячейках прописные на заглавные буквы
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 3 Then
Application.EnableEvents = False
Target.Offset(, 32).Resize(, 2).ClearContents
If Target Like "лак*" Then: Target.Offset(, 32) = "-": Target.Offset(, 33) = Now
ElseIf Target.Column = 7 Or Target.Column = 8 Then
Application.EnableEvents = False
Target = StrConv(Target, 3)
End If
Application.EnableEvents = True
End Sub
[/vba]

Автор - Лехаа
Дата добавления - 25.03.2013 в 12:42
Лехаа Дата: Понедельник, 25.03.2013, 13:47 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 4 ±
Замечаний: 0% ±

подскажите пожалуйста почему так может быть?
 
Ответить
Сообщениеподскажите пожалуйста почему так может быть?

Автор - Лехаа
Дата добавления - 25.03.2013 в 13:47
Serge_007 Дата: Понедельник, 25.03.2013, 13:49 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Потому что при выполнении любого макроса очищается стек истории действий


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеПотому что при выполнении любого макроса очищается стек истории действий

Автор - Serge_007
Дата добавления - 25.03.2013 в 13:49
Лехаа Дата: Понедельник, 25.03.2013, 14:40 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 4 ±
Замечаний: 0% ±

Serge_007

А как исправить данное недоразумение именно в этом макросе?
 
Ответить
СообщениеSerge_007

А как исправить данное недоразумение именно в этом макросе?

Автор - Лехаа
Дата добавления - 25.03.2013 в 14:40
Serge_007 Дата: Понедельник, 25.03.2013, 14:54 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Никак. Надо писать другой макрос, который будет копировать и сохранять лист до выполнения вашего макроса и в случае необходимости возвращать копию на место


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНикак. Надо писать другой макрос, который будет копировать и сохранять лист до выполнения вашего макроса и в случае необходимости возвращать копию на место

Автор - Serge_007
Дата добавления - 25.03.2013 в 14:54
Лехаа Дата: Понедельник, 25.03.2013, 15:32 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 68
Репутация: 4 ±
Замечаний: 0% ±

Спасибо , будем думать
 
Ответить
СообщениеСпасибо , будем думать

Автор - Лехаа
Дата добавления - 25.03.2013 в 15:32
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!