0

我有一个有四列的工作表。A 列有 ID 号,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
4

1 回答 1

0

跟随超链接并在新窗口中打开它(真):

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

它应该在适当的应用程序中打开。

超链接。关注

如果 if 未配置为在适当的应用程序中打开,那么您可能会从单元格中读取链接地址并调查使用Shell以启动,例如 Paint:

Shell "MSPaint ""F:\Documents and Settings\student\My Documents\My Pictures\blog1.png"""
于 2013-07-24T18:38:19.197 回答