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

Question

我正在尝试实现，如果您单击超链接（在 P 列中），它会将同一行中但在 B 列中的单元格复制到另一个单元格 (A3)。

我试过 Target.Range。偏移等方式。但是我好像想不通。

但我就是做不对。这是代码，有什么想法吗？

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$A" 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

你可以使用这个：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    If Target.Range.Address = "$A" Then
       MsgBox "This shouldn't happen... Try again"
    Else
        Range("Vraagnummer").Value2 = Cells(Target.Range.Row, "B").Value2
    End If

End Sub

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

Target.Range.Offset - or something like that

excel

vba

target