Добрый день, уважаемые пользователи форум! Можете помочь? Нужно применить макрос с помощью горячих клавиш alt+tab. При настройке горячих клавиш макрос не запускается, возможно, из-за того, что эта комбинация в windows переключает между окнами.

Код: (vb)

Private Sub Workbook_Open()
On Error Resume Next
Application.OnKey "%{TAB}", "Копирование"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnKey "%{TAB}", ""
End Sub

Желательно использовать эту комбинацию клавиш.

Спасибо, я понял, что это как-то сложно. В принципе без этого можно обойтись.

Доброе утро, уважаемые пользователи форума! Можете помочь сориентировать? Необходимо создать процедуру, например, (или в самом коде), которая бы выполнялась только 1 раз и больше бы не работала при повторном запуске программы и даже после закрытия и открытия файла. Это возможно?

Добрый день, уважаемые пользователи форума! Можете подсказать как написать макрос, который в течение дня бы "напоминал" во время, записанное в одном столбце в виде сообщений msgbox из другого столбца? При этом, чтобы возможно было выполнять другие макросы.

Всё работает! :D

Есть идея: написать одинаковый макрос с одним и тем же названием в обоих книгах, и проверяем какой файл активен, а какой нет, и назначить нужную комбинацию клавиш. Т.е. не желательно на 2 разных макроса назначать одну и ту же комбинацию, несмотря на то, что они в разных файлах.

Подскажите, пожалуйста, как это можно сделать "переназначать каждый раз процедуру для сочетания клавиш по событию Workbook_Activate"?

Добрый вечер, уважаемые пользователи форума! Можете помочь? Пользуюсь 2 файлами Excel. Поскольку приходится быстро между ними переключаться, заметил, что очень удобная комбинация: "Ctrl+tab". В обоих файлах написал макрос на переключение. Всё работает, если открывать "Вид-макросы...". Также написал код на "Горячие клавиши" в обоих файлах в "разделах" "эта книга":

Код: (vb)

Private Sub Workbook_Open()
On Error Resume Next
Application.OnKey "^{TAB}", "Переключение_на_Телемаркетинг"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnKey "^{TAB}", ""
End Sub

Соответственно, во втором файле название другое. Работает 1 раз туда и обратно, после чего горячие клавиши не действуют, но если запускать макрос стандартным способом через меню, переключается. Подскажите, пожалуйста, что можно придумать?

Заранее благодарен, Ваш форум по VBA самый лучший, Вы меня многому научили!)

Спасибо огромное! помогло! 

Может быть, отключить какую-нибудь "систему безопасности". Хотя бы чтобы при сохранении не всплывало бы окно: "Будьте осторожны: в документе могут быть персональные данные, которые невозможно удалить с помощью инспектора документов"

Добрый день, уважаемые пользователи форума! Можете помочь: как можно настроить автосохранение файла Excel, находящегося в OneDrive, с макросами? Использую Office 365. При открытии файла сверху находится жёлтая строка с надписью: "АВТОСОХРАНЕНИЕ ВЫКЛЮЧЕНО. Части документов могут содержать личные сведения, которые не удастся удалить с помощью инспектора документов".

Заранее спасибо!

Здравствуйте, уважаемые пользователи форума! Подскажите, пожалуйста, как можно записать в inputbox текст, который не умещается? Можно ли как-то уменьшить шрифт, например? Или, допустим, если текст не умещается, то как поставить условие, что при вводе пустой строки будет открываться продолжение сообщения в inputbox?

Спасибо!

Здравствуйте! Возможно где-то уже есть ответ на этот вопрос. Можете подсказать самый удобный поиск первой непустой ячейки в столбце?

Простите, пожалуйста