エクセルVBAアクティブセルのハイパーリンクを作成する

Question

このコードはフルパスでリンクされており、どのブックでも使用できますが、私は可能な変更が必要です：

1. アクティブセルハイパーリンクをコードで指定されたセルA1にしないでください。
2. アクティブセルの値は、ハイパーリンク関数のargを表示するテキストになります。 Vityataのanswere後

おかげ

PS：どのように私は住所をActiveCellのためにレンジ（ "F6"）を変更できますか？アクティブセルの値とアドレスを取得するためには

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