如何选择宏链接超链接旁边的单元格

2024-04-29 • 问答

我在单元格A1

中有一个带有链接的超链接。

单元格B1-> E1中已填充数据

我想要一个代码，一旦单击超链接，它将剪切单元格B1-> E1

我想将它们粘贴到其他选项卡中，但是我对代码的那部分很熟悉

这是一张很大的纸，所以我不想专门剪切单元格B1-> E1，我想剪切单击行的超链接旁边的单元格。

对不起，如果我的解释令人困惑，大声笑，希望这会显示出我正在尝试做的事情；

A                   B            C              D           E  
hyperlink          value        value          value      value 

hyperlink          value        value          value      value 

hyperlink          value        value          value      value 

hyperlink          value        value          value      value

我尝试过的代码

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) 
    Dim r As Range 
    Set r = Range(Target.SubAddress) 
    Range("B7:E7").Select 
    Selection.Cut 
    Sheets("Wash Bay").Select 
    Worksheets("Wash Bay").Range("B6").activate 
    activeSheet.Paste 
End Sub

xiaovin 回答：如何选择宏链接超链接旁边的单元格

您可以使用：

r.Offset(0,1).Resize(1,4).Cut Sheets("Wash Bay").Range("B6")

请注意，您可以将Destination的{{1}}参数用于指定剪切单元格的粘贴位置。无需选择/激活。

（几乎）您将获得想要的范围的引用（在r中），然后不使用它。

而且，您也不需要任何Select / Activate的东西（有关有用的提示，请参见here）

您的代码可以很简单（假设工作表“ Wash Bay”与代码在同一工作簿中）：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim r As Range
    Set r = Range(Target.SubAddress).Offset(0,4)
    r.Cut ThisWorkbook.Worksheets("Wash Bay").Range("B6")
End Sub

excel vba

本文链接：https://www.f2er.com/3163932.html

如何选择宏链接超链接旁边的单元格

xiaovin 回答：如何选择宏链接超链接旁边的单元格

大家都在问