Excel VBA使活动单元格的超链接

我想从工作簿1中的活动单元格创build一个链接，可以在工作簿2中使用它。我使用以下分配给一个button的代码：

With ActiveSheet .Hyperlinks.Add Range("F6"), _ .Parent.FullName & "#'" & .Name & "'!" & "$A$1", TextToDisplay:="link" End With 

此代码与完整pathbuild立了链接，我可以在任何工作簿中使用它，但是我需要进行一些更改，以便我能够：

1. 使活动单元格超链接不在代码中指定的单元格A1。
2. 活动单元格中的值成为显示超链接function参数的文本。

谢谢

PS Vityata回答后：我怎么能改变范围（“F6”）到activecell地址？

Answer 1

为了获得活动的单元格值和地址，请将您的代码更改为相应的位置，如下所示：

 ActiveCell.Address ActiveCell.Value 

Answer 2

我觉得只是为了closures这个话题。

 Sub Button36_Click() Dim newRange As Range Set newRange = Range(ActiveCell, ActiveCell.Offset(numRows, numCols)) With ActiveSheet .Hyperlinks.Add Anchor:=newRange, _ Address:=.Parent.FullName & "#'" & .Name & "'!" & ActiveCell.Address, TextToDisplay:=ActiveCell.Text End With End Sub