Как вернуть действие в Excel средствами VBA? - Мир MS Excel

Регистрация

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

= Мир MS Excel/Как вернуть действие в Excel средствами VBA? - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как вернуть действие в Excel средствами VBA? (Макросы Sub)

Как вернуть действие в Excel средствами VBA?

Дата: Вторник, 17.09.2013, 11:16 | Сообщение № 1

Группа: Проверенные

Ранг: Участник

Сообщений: 61

Репутация: 25 ±

Замечаний: 0% ±

Excel 2013

На панели инструментов в "Excel 2003" есть кнопка - синяя стрелка вправо - "Вернуть".
Можно ли такое же сделать с помощью макросов?

Сообщение отредактировал Скрипт - Вторник, 17.09.2013, 12:24

Ответить

Дата: Вторник, 17.09.2013, 11:50 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Цитата (Скрипт, 17.09.2013 в 11:16, в сообщении № 1)

синяя стрелка вправо - "Вернуть"

Вообще-то "вернуть" это стрелка влево

В VBA есть метод UNDO

Цитата (http://www.msoffice.nm.ru/faq/macros/miscellaneous.htm)

Для того, чтобы отменить последнее изменение, совершенное перед выполнением макроса, достаточно использовать метод Undo об'екта Application[vba]

Код

Application.Undo

[/vba]Примечание : Выполнение этой инструкции даёт тот же результат, что и нажатие кнопки Отменить с панели инструментов Стандартная (или аналогичной команды в меню Правка), однако, если отменить ничего нельзя, то в таком случае возникнет ошибка

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 17.09.2013, 12:22 | Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 61

Репутация: 25 ±

Замечаний: 0% ±

Excel 2013

Serge_007, я в Excel 2003 навожу курсор на "синюю стрелку вправо" и появляется всплывающая подсказка "Вернуть".

Сообщение отредактировал Скрипт - Вторник, 17.09.2013, 12:23

Ответить

Дата: Вторник, 17.09.2013, 12:44 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Значит я не правильно Вас понял, думал надо "Отменить"

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Вторник, 17.09.2013, 13:01 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

мб так?
[vba]

Код

SendKeys ("^Y")

[/vba]

skypro1111@gmail.com

Ответить

Дата: Вторник, 17.09.2013, 13:11 | Сообщение № 6

Группа: Проверенные

Ранг: Участник

Сообщений: 61

Репутация: 25 ±

Замечаний: 0% ±

Excel 2013

SkyPro, т.е. встроенных средств нет в Excel-VBA для кнопки "Вернуть"? Например, для кнопки "Отменить" есть Excel-VBA-средство "Undo".

Ответить

Дата: Вторник, 17.09.2013, 13:19 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация: 255 ±

Замечаний: 0% ±

2010

Понятия не имею

Я лишь предложил вариант решения запроса.
Только у меня зацикливается макрос если нечего "вернуть".

skypro1111@gmail.com

Ответить

Дата: Вторник, 17.09.2013, 14:25 | Сообщение № 8

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

про 2003 не уверен
[vba]

Код

Application.CommandBars.ExecuteMso("Redo")

[/vba]

2003:
[vba]

Код

CommandBars("Standard").Controls("Sort Ascending").Execute

[/vba]

Ответить

Как вернуть действие в Excel средствами VBA? (Макросы Sub)

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

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