Как осуществить переход по гиперссылке с помощью клавиши enter?

Категория: Basic
2012-08-21 14:44:30

Если активная ячейка содержит гиперссылку, то в Excel 97, 2000 переход по гиперссылке можно осуществить, просто нажав клавишу ENTER, в следующих же версиях, такая возможность исчезла, и если Вы хотите её вернуть, то скопируйте в любой стандартный модуль личной книги макросов "Personal.xls" нижеприведённый код и сохраните изменения:

code: #basic
Private Sub Auto_Open()
    Application.OnKey "~", "FollowHyperlink"
    Application.OnKey "{ENTER}", "FollowHyperlink"
End Sub
 
Private Sub FollowHyperlink()
    If Not TypeOf Selection Is Range Then Exit Sub
 
    If ActiveCell.Hyperlinks.Count = 0 Then
       If Not Application.MoveAfterReturn Then Exit Sub
 
       Select Case Application.MoveAfterReturnDirection
           Case xlDown:    SendKeys "{DOWN}"
           Case xlToLeft:  SendKeys "{LEFT}"
           Case xlToRight: SendKeys "{RIGHT}"
           Case xlUp:      SendKeys "{UP}"
       End Select
    Else
       On Error Resume Next
       ActiveCell.Hyperlinks(1).Follow 'NewWindow:=True
    End If
End Sub

Этот вариант не будет работать с гиперссылками, созданными с помощью стандартной функции рабочего листа =ГИПЕРССЫЛКА()

Актуально для MS Excel XP (и старше)

Поделиться:

Похожие статьи:

теги: ссылка, vba, макросы, гиперссылки, переход по ссылке, переход по гиперссылке