Question

如果您单击超链接（在P列中），我试图完成此操作，它会将同一行但在B列中的单元格复制到另一个单元格（A3）。

我尝试使用Target.Range。偏移和其他方式。但我似乎无法想象它。

但我无法做到。这是代码，任何想法？

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$A$4" Then
       MsgBox "This shouldn't happen... Try again"
    Else
        Dim TargetCell As Range
        Set TargetCell = Target.Range
        TargetCell.Offset(-13, 0).Copy
        Range("Vraagnummer").PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False

        Exit Sub
    End If

End Sub

Answer 1

您可以使用：

StreamSubscription

Target.Range.Offset - 或类似的东西

1 个答案: