Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как присвоить макросу клавиши F5-F12, на VBA 
:(
    Опции темы
kashemirny
Дата 30.9.2009, 18:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет
Всем привет  smile 
Как присвоить макросу комбинацию клавиш, отличную от <Ctrl + буква>, например, что-нибудь из кнопок F5-F12? 
PM MAIL   Вверх
CaptainNemo
Дата 1.10.2009, 22:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 283
Регистрация: 5.6.2008
Где: White Russia, Min sk

Репутация: 2
Всего: 9
Код

Private Sub Workbook_Open()
    Application.OnKey "{F5}", "macros"
End Sub

Sub macros()
    MsgBox "Hello World!"
End Sub
PM MAIL WWW ICQ Skype GTalk   Вверх
kashemirny
Дата 1.10.2009, 22:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет
спасибо smile 
PM MAIL   Вверх
kashemirny
Дата 27.10.2009, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

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

Код

Private Sub Workbook_Open()
    Dim profile1 As File
    Dim profile2 As File
    If profile1.FileExists("C:\metoda.dtb") And profile2.FileExists("C:\baza.dtb") Then
    Application.OnKey "{F5}", "macros"
    End If
End Sub


Код

Private Sub Workbook_Open()
    If "C:\metoda.dtb" And "C:\baza.dtb" Exist Then
    Application.OnKey "{F5}", "macros"
    End If
End Sub
PM MAIL   Вверх
Akina
Дата 27.10.2009, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Эксель не знает метода/функции FileExists. Это метод FSO.

Код

Dim fso as FileSystemObject
Set fso = New FileSystemObject
If fso.FileExists("C:\metoda.dtb") And fso.FileExists("C:\baza.dtb") Then
    Application.OnKey "{F5}", "macros"
End If



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kashemirny
Дата 27.10.2009, 15:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет
Akina, спасибо, только вот что выдает:

user posted image

подозреваю, что нужно подключить объектную либу.... - вопрос какую?  smile 

Это сообщение отредактировал(а) kashemirny - 27.10.2009, 15:09
PM MAIL   Вверх
Akina
Дата 27.10.2009, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Microsoft Scripting Runtime


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kashemirny
Дата 27.10.2009, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет
огромное спасибо!  smile 
PM MAIL   Вверх
kashemirny
Дата 30.11.2009, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.11.2007

Репутация: нет
Всего: нет
подскажите, пожалуйста, требуется выполнить проверку If - Then для нажатия клавиши F5-  пробую так, но выдает ошибку в 1й строке:

Код

                If Application.OnKey "{F5}" Then
                Call Edit
                End If


Это сообщение отредактировал(а) kashemirny - 30.11.2009, 12:57
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1214 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.