查找检查后打开 link

Question

我有这样的代码：

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim searchFolder As String, fileName As String

    Static PowerPointApp As Object

    If Target.Column = 3 Then
        If Target.CountLarge > 1 Then Exit Sub
        If Target.Value = "" Then Exit Sub

        With Application
            Msg = .IfError(.VLookup(Target.Text, Worksheets("Test").Columns("A:B"), 2, 0), "")
            If Msg <> "" Then MsgBox Target.Value & vbLf & vbLf & Msg, vbInformation, "Suggestion d'inspection"
        End With
    End If
End Sub

它根据 Sheet 2，Col 1 中的列表检查 Sheet 1 中 Col A 的单元格内容；如果匹配，则 MsgBox 将根据生成的单元格与列 2 的偏移值提供信息。

我正在尝试将其改编成另一个函数，该函数将执行相同的检查，但它不会显示来自偏移单元格的消息，而是会从同一单元格打开一个 hyperlink。

举个例子：
我把“信息 X”放在 A:1 Sheet1 中；它检查 Col A Sheet 2，如果它在 A45 中有匹配项，它将从 B45 打开 link。

Answer 1

首先检查vlookup的返回值是否不等于“”。如果不是，则将该值传递给 ActiveWorkbook.FollowHyperlink.

的第一个参数

编辑：删除关于 msg 的两行并替换为：

hlink = .VLookup(Target.Text, Worksheets("Test").Columns("A:B"), 2, 0)

If hlink <> "" Then
    ActiveWorkbook.FollowHyperlink (hlink)
End If

您可能需要将 hlink 声明为字符串变量。

查找检查后打开 link

Opening a link after a lookup check

lookup

vba

hyperlink

offset