Excel отменить изменения vba

Метод UndoAction (Microsoft Forms)

Отменяет последнее действие, поддерживающее команду Undo (Отменить).

Синтаксис

Логических = object. UndoAction

Синтаксис метода UndoAction включает следующие элементы:

Part	Описание
object	Обязательно. Допустимый объект.

Замечания

Команда пользовательского интерфейса Undo (Отменить) использует метод UndoAction. Например, если вставить текст в TextBox, можно использовать UndoAction , чтобы удалить этот текст и восстановить предыдущее содержимое TextBox.

Не все действия пользователя можно отменить. Если действие невозможно отменить, после его выполнения команда Undo будет недоступна.

Если значение свойства CanUndo равно False, команда Undo недоступна в пользовательском интерфейсе, а метод UndoAction недопустим в коде.

Если метод UndoAction применяется к форме, все изменения текущей записи теряются. Если метод UndoAction применяется к элементу управления, он влияет только на этот элемент.

Этот метод следует применять перед обновлением формы или элемента управления. Его можно добавить в событие BeforeUpdate формы или событие Change элемента управления.

UndoAction — это альтернатива использованию инструкции SendKeys для отправки значения ESC в процедуре события.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Как отменить действия макроса

Многие из тех, кто программирует в VBA знают, что после действий макроса пропадает возможность отмены действий. И если с отменой тех действий, которые были совершены до выполнения макроса совершенно точно можно распрощаться(невозможно будет это сделать), то отменить действия макроса возможно. И рано или поздно каждый программирующий в VBA задается вопросом: как можно отменить действия, совершенные макросом? Для начала надо понять, в каких ситуациях это нам надо. Например был выполнен код, который испортил или удалил данные в файле, но эти данные еще нужны. Самое простое, что можно сделать это закрыть файл без сохранения и открыть заново. Все данные будут на месте(если, конечно, в коде не было строки, сохраняющей файл). Второй способ: это перед выполнением макроса делать резервную копию файла — тогда Ваши исходные данные всегда будут целы.

Но как же сделать отмену действий макроса через стандартную кнопку на панели или сочетанием клавиш Ctrl + Z и можно ли? Ответ — можно. Но сразу вопрос: а насколько это нужно? В каких ситуациях это может пригодиться? Я навскидку сразу не сказал бы, если бы не являлся разработчиком программ и надстроек в среде Microsoft Excel. Именно в надстройках отмена действий наиболее востребована, на мой взгляд. Например надстройка объединяет ячейки. Объединили случайно и. В стандартной ситуации после такого макроса нельзя отменить действия. Закрывать файл без сохранения? Как-то некрасиво получается, если продукт является коммерческим. И тогда приходится извращаться и пытаться сделать возможным отмену действий макроса. В моей надстройке MulTEx в некоторых командах отмена действий команд как раз и применяется. Наиболее распространенное решение по отмене действий макроса заключается в запоминании свойств изменяемых ячеек:

‘Создаем свой пользовательский тип данных Type SaveRange vFormula As Variant sAddr As String lColor As Long lColorIndex As Long End Type ‘Переменные для запоминания данных Public wbWBook As Excel.Workbook Public wsSh As Excel.Worksheet Public vOldVals() As SaveRange ‘————————————————————————————— ‘ Procedure : Fill_Numbers ‘ Purpose : Основная процедура. Это тот код, который вносит изменения на лист ‘ и действия которого нам необходимо отменить ‘ Процедура заполняет выделенные ячейки номерами ‘ и изменяет цвет заливки ‘————————————————————————————— Sub Fill_Numbers() Dim rCell As Range, li As Long ‘ Сначала запоминаем значения выделенных ячеек на листе ReDim vOldVals(1 To Selection.Count) ‘Запоминаем активную книгу ‘это на случай, если отмена действий будет производиться из другой книги Set wbWBook = ActiveWorkbook ‘Запоминаем активный лист ‘на случай, если отмена действий будет производиться из другого листа Set wsSh = ActiveSheet ‘Запоминаем значения(заносим в массив) li = 1 For Each rCell In Selection ‘запоминаем адрес ячейки vOldVals(li).sAddr = rCell.Address ‘запоминаем формулу(если нет формулы — значение) vOldVals(li).vFormula = rCell.Formula ‘запоминаем цвет заливки ячейки vOldVals(li).lColor = rCell.Interior.Color ‘запоминаем индекс цвета заливки(чтобы на заливать бесцветные ячейки) vOldVals(li).lColorIndex = rCell.Interior.ColorIndex li = li + 1 Next rCell ‘====================================== ‘Выполняем основные действия(собственно тот код, который надо будет отменить) li = 1 For Each rCell In Selection rCell = li rCell.Interior.ColorIndex = li li = li + 1 Next rCell ‘====================================== ‘Назначаем стандартному вызову отмены действий выполнение нашего макроса возвращения значений Application.OnUndo «Отменить заполнение ячеек номерами», «Restore_Vals» End Sub ‘————————————————————————————— ‘ Procedure : Restore_Vals ‘ Purpose : Процедура отмены действия(возврат значений) ‘————————————————————————————— Sub Restore_Vals() Dim li As Long ‘В случае непредвиденной ошибки переходим на метку ‘и показываем сообщение об ошибке On Error GoTo Erreble ‘Активируем книгу, в которой были сделаны изменения wbWBook.Activate ‘Активируем лист, в котором были сделаны изменения wsSh.Activate ‘Возвращаем значения For li = 1 To UBound(vOldVals) Range(vOldVals(li).sAddr).Formula = vOldVals(li).vFormula ‘если заливка была безцветная, то ColorIndex = xlNone ‘значит выставляем безцветность If Not vOldVals(li).lColorIndex = xlNone Then Range(vOldVals(li).sAddr).Interior.Color = vOldVals(li).lColor Else ‘если цвет был — возвращаем его Range(vOldVals(li).sAddr).Interior.ColorIndex = xlNone End If Next li Exit Sub ‘Показываем сообщение о невозможности отмены действия Erreble: MsgBox «Нельзя отменить действие!», vbCritical, «Error» End Sub

Комментарии к коду я старался сделать максимально подробными, поэтому думаю, что больше нечего разъяснять. К тому же по древней традиции я приложил к статье пример с данным кодом 🙂 Единственное, что могу добавить: пользовательский тип SaveRange может быть дополнен еще какими-либо переменными, помимо vFormula , sAddr и lColor . Например цвет границ ячейки, цвет шрифта и т.д. Все зависит от того, какие изменения Вы будете делать кодом и что захотите затем вернуть.

Отменить действия макроса.xls (62,0 KiB, 3 346 скачиваний)

Код, приведенный выше, несомненно хорош, но если кол-во изменяемых ячеек достаточно велико, то код будет очень замедлять работу. Поэтому если есть возможность добавлять/удалять листы в книгах, то можно схитрить: сделать резервную копию листа, лист сделать очень скрытым и как только потребуется отмена действия — вернуть этот лист, удалив исходный(с уже испорченными данными):

‘Переменные для запоминания данных Public wbWBook As Workbook Public wsSh As Worksheet, wsActSh As Worksheet, sSh_Name As String, lShPoz As Long ‘————————————————————————————— ‘ Procedure : Fill_Numbers ‘ Purpose : Основная процедура. Это тот код, который вносит изменения на лист ‘ и действия которого нам необходимо отменить ‘ Процедура заполняет выделенные ячейки номерами ‘ и изменяет цвет заливки ‘————————————————————————————— Sub Fill_Numbers() Dim rCell As Range, li As Long ‘Запоминаем активную книгу ‘это на случай, если отмена действий будет производиться из другой книги Set wbWBook = ActiveWorkbook ‘Запоминаем активный лист ‘на случай, если отмена действий будет производиться из другого листа Set wsActSh = ActiveSheet lShPoz = wsActSh.Index sSh_Name = wsActSh.Name Application.ScreenUpdating = 0 wsActSh.Copy , wbWBook.Sheets(wbWBook.Sheets.Count) Set wsSh = wbWBook.Sheets(wbWBook.Sheets.Count) wsSh.Visible = xlVeryHidden wsActSh.Activate Application.ScreenUpdating = 1 ‘====================================== ‘Выполняем основные действия(собственно тот код, который надо будет отменить) li = 1 For Each rCell In Selection rCell = li rCell.Interior.ColorIndex = li li = li + 1 Next rCell ‘====================================== ‘Назначаем стандартному вызову отмены действий выполнение нашего макроса возвращения значений Application.OnUndo «Отменить заполнение ячеек номерами», «Restore_Vals» End Sub ‘————————————————————————————— ‘ Procedure : Restore_Vals ‘ Purpose : Процедура отмены действия(возврат значений) ‘————————————————————————————— Sub Restore_Vals() ‘В случае непредвиденной ошибки переходим на метку ‘и показываем сообщение об ошибке On Error GoTo Erreble Application.ScreenUpdating = 0 ‘Активируем книгу, в которой были сделаны изменения wbWBook.Activate ‘делаем видимым резервный лист wsSh.Visible = -1 ‘Удаляем исходный лист, данные в котором уже изменены Application.DisplayAlerts = 0 wsActSh.Delete Application.DisplayAlerts = 1 ‘назначаем резервному листу имя исходного wsSh.Name = sSh_Name wsSh.Move wbWBook.Sheets(lShPoz) ‘Активируем резервный лист wsSh.Activate Application.ScreenUpdating = 0 Exit Sub ‘Показываем сообщение о невозможности отмены действия Erreble: MsgBox «Нельзя отменить действие!», vbCritical, «www.excel-vba.ru» End Sub

Tips_Restore_Macro_HiddenSh.xls (45,0 KiB, 2 360 скачиваний)

Конечно, в этом приеме тоже есть недостаток — если на этот лист ссылаются формулы из других листов есть большой шанс получить в этих формулах ошибку #ССЫЛКА! (#REF!) , т.к. исходный лист удаляется.
В этом случае можно из резервного листа копировать все ячейки и вставлять на рабочий лист. Да и вообще можно много чего придумать — вплоть до сохранения и последующего извлечения резервных копий файлов. Все как всегда зависит от задач и ситуации.

И самая большая ложка дегтя к обоим кодам: VBA не позволяет таким образом делать МНОГОКРАТНЫЕ отмены действий(многократное Ctrl + Z ), что делает бесполезными попытки запомнить пошагово несколько разных изменений макросами. Отменить можно будет все равно только последнее запомненное действие.

Источник

Как отменить действие макроса excel

Как отозвать макрос в Excel?

после выполнения макроса в Excel, нет кнопки, чтобы отменить его, если вы не закроете книгу и выбрать, чтобы не сохранить его.

есть ли аккуратный и простой способ просто отменить его?

2 ответов

короткий ответ: вы не можете отменить (я предполагаю, что это то, что вы имеете в виду отмены) действия макроса. Решения, которые происходят внутри языка программирования может быть хлопотно для Excel, чтобы обратить вспять, так что есть одеяло» не может отменить » состояние, вызванное пиная макроса.

длинный ответ заключается в том, что если вы ожидаете отмены, ваш код должен учитывать этот запрос, сохраняя предыдущее состояние данных перед выполнением. Это очень широкий предположение, что вы работаете с данными в VBA; прямое создание файла и манипуляции могут быть сложнее в зависимости от того, что выполняется.

Джон Walkenbach дает хороший пример хранения данных, чтобы обеспечить будущее средство отмены:

пользователи компьютеров привыкли к возможности «отменить» операцию. Почти каждую операцию, выполняемую в Excel, можно отменить. Если вы программируете в VBA, вы, возможно, задавались вопросом, Можно ли отменить эффекты подпрограммы. Ответ утвердительный ответ. Квалифицированный ответ-это не всегда легко.

Я думаю, что его вступительное заявление немного вводит в заблуждение: для некодирующих пользователям ответ «Нет, вы не можете отменить макрос».

Метод Application.Undo (Excel)

Отменяет последнее действие пользовательского интерфейса.

Синтаксис

выражения. Отмена

выражение: переменная, представляющая объект Application.

Примечания

Этот метод отменяет только последнее действие, принятое пользователем перед запуском макроса, и он должен быть первой строкой макроса. Его нельзя использовать для отмены Visual Basic команд.

Пример

В этом примере отменяется последнее действие пользовательского интерфейса. Пример должен быть первой строкой макроса.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Как отменить действие макроса excel

Регистрация на форуме тут, о проблемах пишите сюда — alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите восстановить пароль

Поиск по форуму

Расширенный поиск

Страница 1 из 2

1

2

Следующая >

Chelentano

Посмотреть профиль

Найти ещё сообщения от Chelentano

Это достаточно долгая история, постараюсь прояснить часть в кратце.
Откат можно сделать несколькими способами:
1. Самый неудобный, но и самый надежный. Вы не сохраняете изменения в файле, после выполнения макроса и закрываете файл без сохранения.
2. Наиболее геморный для пользователя. В меню Сервис — Доступ к книге, выделить закладку Правка. Установить галочку напротив «Разрешить совместный доступ» -ОК. Затем на все вопросы — ОК.
Для просмотра и отмены изменений в книге — Сервис — Исправления — Принять/отклонить исправления.
Примечание : Общая книга имеет ряд ограничений, которые обязательно необходимо учитывать при работе с ней.
3. Через Aplication.OnUndo
Данный метод более прост для использования конечным пользователем, но сложноват в исполнении и надо учитывать, что все данные об изменениях, совершенных до макроса, будут стерты.
В общих чертах:
Создаете глобальные переменные, в которые будете заносить информацию о данных, содержащихся в изменяемом макросом диапазоне.
Создаете отдельную процедуру, в которой заполняете эти пременыне данными. Перед выполнением основного макроса вызываете эту процедуру, а в конце основного макроса вставляете строку
Application.OnUndo «Отмена», «Здесь_имя_макроса_запоминания_знач ений»

Вроде так. Может кто дополнит.

Это достаточно долгая история, постараюсь прояснить часть в кратце.
Откат можно сделать несколькими способами:
.

Вроде так. Может кто дополнит.

перед выполнением макроса сделать

и потом откатываться на него.

DiemonStar

Посмотреть профиль

Найти ещё сообщения от DiemonStar

fil_v, чем так «глобальность» испугала? В такое время живём

Глобальные/публичные — это переменные, которые живут и тогда, когда макрос уже отработал.
Т.е. создали такие переменные, затем одним макросом задали им значения, другим позже эти значения прочитали/изменили.

перед выполнением макроса сделать

и потом откатываться на него.

fil_v, чем так «глобальность» испугала? В такое время живём

Глобальные/публичные — это переменные, которые живут и тогда, когда макрос уже отработал.
Т.е. создали такие переменные, затем одним макросом задали им значения, другим позже эти значения прочитали/изменили.

Источник