Excel VBA中，使超链接活性细胞

Question

我想使从活动单元格中的工作簿1的链接，我可以使用它在工作簿2.我使用下面的代码，分配给按钮：

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

此代码做了一个链接完整路径，我可以在任何工作簿中使用它，但我需要一些变化，我可以到：

1. 使活动单元格的超链接不是细胞A1这在代码中指定。
2. 活动单元格中的值变为显示超链接函数的arg的文本。

感谢

PS后Vityata的answere：我怎样才能改变范围（ “F6”），以activecell ADRESS？

Answer 1

我觉得它只是关闭这个主题。

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 

Answer 2

为了获得活动单元格值和地址，更改您的代码对应地有以下几点：

ActiveCell.Address 
ActiveCell.Value