Здравствуйте уважаемые гуру.
Стояла задача, открытие гиперссылки по нажатию с клавиатуры ctrl+enter, нашел здесь на форуме готовое решение, но заработало частично.
Скрытый текст |
|---|
В модуль ЭтаКнига:
Private Sub Workbook_Open() ' запускать макрос при нажатии Ctrl + Enter Application.OnKey "^~", "FollowHypelink" End Sub
В стандартный модуль:
Sub FollowHypelink() On Error Resume Next If InStr(1, ActiveCell.Formula, "hyperlink", vbTextCompare) > 0 Then ThisWorkbook.FollowHyperlink Evaluate(ActiveCell.Formula) Else ActiveCell.Hyperlinks(1).Follow End If End Sub |
Проверил макрос, отлично все запускается, и обычные ссылки на сайты и ссылки на файлы открываются без проблем. Но когда задал имя гиперссылки, то при нажатии CTRL+ENTER ничего не происходит, по ЛКМ все запускается нормально.
Подскажите пожалуйста, можно ли как то изменить макрос чтобы он работал?
Хотелось сделать гиперссылку более красиво читаемой и при этом чтобы открывалась с клавиатуры, сама гиперссылка ведет на BAT файл.
В строке формул, ссылка выглядит следующим образом
| Код |
|---|
=ГИПЕРССЫЛКА("C:\test\"&A2&".bat";A2) |
На локальном диске, создана папка test, в ней находится файл, название "старт файла.bat" который и должен запускаться.
На всякий случай приложу сам документ.
Буду благодарен за помощь, может была уже такая тема, но именно под свой случай не смог найти.