Осуществить переход по гиперссылке с помощью клавиши Enter — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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

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

Похожие записи/страницы:

Leave a Comment