??? кнопка(макрос) Alt+Tab внутри активной книги

+АНДРЕЙ+

Гость

06.11.2011 23:42:35

Может уже есть готовые коды надстроек для моей проблемки?
Часто приходится работать в книге с большим кол-м листов, и из одного переносить данные на другой, не хватает вмндосовской связки клавиш "Alt+Tab" для быстрого перехода с активного листа на лист открытый перед этим (они могут распологаться не рядом).
Экселевская комбинация клавиш по переходу между листами не подходит, т.к. она переходит между двумя рядомстоящими листами.
Нужен код(надстройка) - вкл ее и "Alt+Tab" работает не в винде, а только в Экселе, выкл - все как обычно, т.е. прекл-е между окнами винды.

Какие будут предложения?

Юрий М Модератор Сообщений: 60983 Регистрация: 14.09.2012 Контакты см. в профиле	#2 07.11.2011 00:04:18 {quote}{login=+АНДРЕЙ+}{date=06.11.2011 11:42}{thema=??? кнопка(макрос) Alt+Tab внутри активной книги}{post}Какие будут предложения?{/post}{/quote}Это от Вас ждём предложений.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 07.11.2011 00:29:53 В любой валюте. Я сам - дурнее всякого примера! ...

Guest Гость	#4 07.11.2011 01:10:16 что и натурой? )

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#5 07.11.2011 01:53:22 В общем - можно по Workbook_SheetActivate добавлять лист в коллекцию, по хоткеям выбирать предыдущий/следующий лист из коллекции. Но сейчас - спать :)

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#6 07.11.2011 14:08:36 Пробуйте. Alt+Tab простыми средствами не перехватывается, сделал по Alt+q и Alt+Shift+q. Прикрепленные файлы post_275548.xls (45.5 КБ)

Hugo

Пользователь

Сообщений: 26416 Регистрация: 22.12.2012

07.11.2011 14:30:12

Вроде бы попроще работает, но сильно не тестил:

В модуль книги:

Private Sub Workbook_Open()
tmp = ActiveSheet.Index
tmpp = tmp
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
tmp = tmpp
tmpp = ActiveSheet.Index
End Sub

В стандартный модуль:

Option Explicit

Public tmp&, tmpp&

Sub PrevShAct()
Sheets(tmp).Activate
End Sub

Ну и задать макросу PrevShAct сочетание Ctrl+q или другое стандартным способом.

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#8 07.11.2011 14:37:40 Игорь, так, конечно, проще, но у меня вся история отслеживается от открытия книги и переход в обе стороны. Как в браузере :)

Hugo Пользователь Сообщений: 26416 Регистрация: 22.12.2012	#9 07.11.2011 14:48:24 Точно вся, от открытия? Я код с лёту не прочитал, путано как-то... Но тогда есть намётки своего варианта (не прорабатывал, да и вряд ли это нужно, но вдруг) - при смене листа кладём в словарь порядковый номер действия, в Item индекс или имя листа (лучше кодовое). При смене листа заносим новый номер с новым именем. А по макросу извлекаем предыдущее имя из словаря по .Count-1. Отдельным кодом можно распечатать весь словарь. Как-то так.

Читают тему