Excel 2010 VBA код для последующей динамической гиперссылки

Question

У меня есть лист с четырьмя столбцами A-D, столбец A имеет идентификационный номер, B имеет описание, C имеет местоположение, а D имеет ссылку на изображение элемента. У меня есть короткий макрос, который запрашивает у пользователя ID # и ищет столбец A для него. После того, как идентификатор найден, отображается окно сообщения, которое включает в себя расположение инструмента. Я хотел бы, чтобы гиперссылка в столбце D открывалась в новом окне при выборе кнопки «ОК» в окне сообщения. Это возможно? Любая помощь приветствуется.

Вот что у меня есть.

Dim FindString As String 
Dim Rng As Range 
FindString = InputBox("Enter Tooling ID#") 
    If Trim(FindString) <> "" Then 
With Sheets("Sheet1").Range("A:A") 
    Set Rng = .Find(What:=FindString, _ 
        After:=.Cells(.Cells.Count), _ 
        LookIn:=xlValues, _ 
        LookAt:=xlWhole, _ 
        SearchOrder:=xlByRows, _ 
        SearchDirection:=xlNext, _ 
        MatchCase:=False) 
    If Not Rng Is Nothing Then 
     Application.Goto Rng, True 'value found 
     MsgBox "Tooling " & Rng & " is located at " & Rng.Offset(, 2).Value & "." 

    Else 
     MsgBox "Tooling not found" 'value not found 
    End If 
    End With 
End If 

Еще раз спасибо.

Answer 1

Чтобы следовать гиперссылке и откройте его в новом окне (True):

Range("A8").Hyperlinks(1).Follow (True) 

Он должен открыться в соответствующем приложении.

Hyperlink.Follow

В случае если не настроен, чтобы открыть в соответствующем приложении, то вы можете прочитать по ссылке-адрес из клетки и исследовать с помощью Shell начать, например, Paint:

Shell "MSPaint ""F:\Documents and Settings\student\My Documents\My Pictures\blog1.png"""