Question

我的代码部分：

ActiveSheet.Hyperlinks.Add Cells(i, 12), Address:="", SubAddress:="'" & "Sheet2" & "'!" & Cells(1,1).Address

但我不想仅链接到Cells(1,1)。我想将Cells(1,1)链接到Cells(5,1)，以便每次点击超链接时都会选中它们。这可能吗？

谢谢安迪

Answer 1

单击超链接时，会转到下面的功能。基于下面的超链接单元格值插入代码。这样你就可以制作超链接来为你做多个任务

    Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, _
    ByVal Target As Hyperlink)
    Application.EnableCancelKey = xlDisabled
    intColNum = Int(ActiveCell.Column)
    intRowNum = Int(ActiveCell.Row)

 Select Case UCase(ActiveSheet.Cells(intRowNum, intColNum).Value)

 Case "RUN TEST"
  'TestRun
End Select
End Sub

Answer 2

要添加带有作为地址的范围的超链接，请使用类似

的内容

Sub stacktest()
Dim wsA As Worksheet
Dim wsB As Worksheet

Set wsA = Worksheets(1)
Set wsB = Worksheets(2)

wsA.Hyperlinks.Add Cells(i, 12), Address:="", SubAddress:="'" & "Sheete2" & "'!" & wsB.Range(wsB.Cells(1, 1), wsB.Cells(1, 5)).Address

End Sub

Answer 3

您需要将External的{{1}}参数设置为True。

Range.Address

VBA for Excel; Hyperlinks.Add可以在另一张表中添加多个单元格吗？

3 个答案: