我有一个有四列的工作表。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