Question

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

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

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

使活动单元格超链接不是代码中指定的单元格A1。
活动单元格中的值变为显示超链接功能arg的文本。

谢谢

Answer 1

要获取活动单元格值和地址，请使用以下代码将代码更改为相应位置：

ActiveCell.Address
ActiveCell.Value

Answer 2

我发现只是为了结束这个话题。

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 3

尝试

Sub add_links_Input_Column()
Dim lRow As Long
Dim ColHead As String

ColHead = InputBox("Enter Column Letter", "Identify Column", [c1].Value)
If ColHead = "" Then Exit Sub

    With ActiveSheet
        lRow = .Range(ColHead & .Rows.Count).End(xlUp).Row
        For Each c In .Range(ColHead & "2:" & ColHead & lRow)
            ActiveSheet.Hyperlinks.Add anchor:=c, Address:=c.Value
        Next
    End With

End Sub

Excel VBA为活动单元格

3 个答案: