Как отследить в VBA нажатие мышкой значка сворачивания ленты

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как отследить в VBA нажатие мышкой значка сворачивания ленты (Макросы/Sub)

Shu

Дата: Пятница, 13.11.2015, 06:59 | Сообщение № 1

Группа: Заблокированные

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Здравствуйте.

Использую Excel 2010.
При запуске книги автоматом сворачивается лента и убирается строка формул - ничего лишнего.
Встала такая задача - при необходимости нужно что-то отредактировать. Для этого надо восстановить ленту и строку формул.
Можно ли простым нажатием мышкой(!) на значок сворачивания-разворачивания ленты (стрелочка вниз) запустить простой макрос?, где будут:
[vba]

Код

Application.SendKeys "^{F1}"
Application.DisplayFormulaBar = True .

[/vba]
Предполагаю, что ответ надо искать в CommandBars, но Help весь на английском.

Заранее благодарен за совет.
[moder]Используйте для оформления кода кнопку #[/moder]

Сообщение отредактировал Manyasha - Пятница, 13.11.2015, 10:03

Ответить

Roman777

Дата: Пятница, 13.11.2015, 09:41 | Сообщение № 2

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

Shu, Добрый день, я не очень, видимо, понял вопроса. Вы же просто макросом
[vba]

Код

Application.SendKeys "^{F1}"

[/vba] можете сворачивание-разворачивание делать...
Вы макрос этот хотите повесить на событие по кнопке или нажатие клавиши мышки?

Много чего не знаю!!!!

Ответить

Shu

Дата: Пятница, 13.11.2015, 10:17 | Сообщение № 3

Группа: Заблокированные

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Имеются такие процедуры:
[vba]

Код

Private Sub Workbook_Activate()
   Application.SendKeys "^{F1}"
   Application.DisplayFormulaBar = False
End Sub
Private Sub Workbook_Deactivate()
   Application.SendKeys "^{F1}"
   Application.DisplayFormulaBar = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.SendKeys "^{F1}"
   Application.DisplayFormulaBar = True
End Sub

[/vba]которые при открытие книги скрывают ленту и формулы, а при переходе на другую книгу не портят ей внешний вид, а при возврате опять все скрывают.
Хотелось, чтобы при нажатии кнопки \/ (развернуть ленту) срабатывал бы еще такой код:
[vba]

Код

Application.DisplayFormulaBar = True

[/vba]А на какое событие это повесить и как - так это вас я прошу подсказать.

Сообщение отредактировал Shu - Пятница, 13.11.2015, 10:18

Ответить

nilem

Дата: Пятница, 13.11.2015, 11:04 | Сообщение № 4

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

имхо, такого события просто нет
можно попробовать завести новую кнопочку на ПБД, и назначить ей такой макрос
[vba]

Код

Sub HideShowRibbon()
With Application
.SendKeys "^{F1}", Not .DisplayFormulaBar
.DisplayFormulaBar = Not .DisplayFormulaBar
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Roman777

Дата: Пятница, 13.11.2015, 11:13 | Сообщение № 5

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

Можно ещё в запуске книги
[vba]

Код

Private Sub Workbook_Open()
With Application
.OnKey "{UP}", "Up1"
End with
End Sub

[/vba]
где "Up1" - имя макроса, в который вы можете прописать
[vba]

Код

Application.DisplayFormulaBar = True

[/vba]
но при таком варианте, Вы как бы назначаете клавише (сочетанию клавишь) действие и оно будет работать как вы задали для всех открытых книг. Пока Вы не закроете файл и не откроете новую (другую, где данного макроса нет) книгу.

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Пятница, 13.11.2015, 11:14

Ответить

Саня

Дата: Пятница, 13.11.2015, 11:43 | Сообщение № 6

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

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

Сообщений: 1068

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

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

XL 2016

попробуйте

К сообщению приложен файл: CtrlF1.xlsm (13.0 Kb)

Ответить

Shu

Дата: Пятница, 13.11.2015, 12:36 | Сообщение № 7

Группа: Заблокированные

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Спасибо за пример, Саня.
Работает так, как я хотел. И еще, объясните, пожалуйста, куда вставлять XML-код.

Сообщение отредактировал Shu - Пятница, 13.11.2015, 15:52

Ответить

Саня

Дата: Пятница, 13.11.2015, 13:15 | Сообщение № 8

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

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

Сообщений: 1068

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

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

XL 2016

самый простой способ - это использовать эту программу

если открыть мой пример этой прогой, то будет все понятно

Ответить

Wasilich

Дата: Пятница, 13.11.2015, 14:28 | Сообщение № 9

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

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

Сообщений: 1232

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

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

2003

Не знаю помогут примеры или нет. А вдруг.

К сообщению приложен файл: 5592530.xls (29.5 Kb) · ___..xls (29.0 Kb)

Сообщение отредактировал Wasilic - Пятница, 13.11.2015, 14:29

Ответить

Shu

Дата: Пятница, 13.11.2015, 15:46 | Сообщение № 10

Группа: Заблокированные

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Цитата Саня, 13.11.2015 в 13:15, в сообщении № 8

Скачал, настроил, ваш файл замечательно открывается и вроде бы все понятно.
Но вот открываю свой шаблон - вылетает ошибка.
Нельзя ли это сделать средствами Excel-a?

К сообщению приложен файл: 3033747.png (5.9 Kb)

Сообщение отредактировал Shu - Пятница, 13.11.2015, 15:47

Ответить

Shu

Дата: Пятница, 13.11.2015, 16:23 | Сообщение № 11

Группа: Заблокированные

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Цитата Roman777, 13.11.2015 в 11:13, в сообщении № 5

где "Up1" - имя макроса, в который вы можете прописать
Application.DisplayFormulaBar = True

но при таком варианте, Вы как бы назначаете клавише (сочетанию клавишь) действие и оно будет работать как вы задали для всех открытых книг. Пока Вы не закроете файл и не откроете новую (другую, где данного макроса нет) книгу.

Цитата Shu, 13.11.2015 в 10:17, в сообщении № 3

Хотелось, чтобы при нажатии кнопки \/ (развернуть ленту) ...

Roman777, под сочетанием \/ я имел ввиду не клавишу "вниз" (Up), а см. рис.

К сообщению приложен файл: 1716115.png (6.0 Kb)

Сообщение отредактировал Shu - Пятница, 13.11.2015, 16:26

Ответить

Roman777

Дата: Пятница, 13.11.2015, 16:48 | Сообщение № 12

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

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

Сообщений: 980

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

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

Excel 2007, Excel 2013

Shu, тут уже, данный способ не сработает) ибо тем способом можно назначить только клавиши (клавиатура +мышь). Тут видимо подходит только вариант Сани)))

Много чего не знаю!!!!

Ответить

Shu

Дата: Пятница, 13.11.2015, 17:45 | Сообщение № 13

Группа: Заблокированные

Ранг: Новичок

Сообщений: 17

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

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

Excel 2010

Цитата Roman777, 13.11.2015 в 16:48, в сообщении № 12

Shu, тут уже, данный способ не сработает) ибо тем способом можно назначить только клавиши (клавиатура +мышь). Тут видимо подходит только вариант Сани)))

Уважаемые Roman777 и другие.
Спасибо за поддержку, но я сразу же понял, что реализация Саня -это то, что мне нужно, но не могу реализовать

Сообщение отредактировал Shu - Суббота, 14.11.2015, 09:49

Ответить

RAN

Дата: Пятница, 13.11.2015, 18:54 | Сообщение № 14

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

К сообщению приложен файл: 7050822.jpg (13.8 Kb)

Быть или не быть, вот в чем загвоздка!

Ответить

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