将工作表的链接添加到同一工作簿中不同工作表中的单元格

时间:2019-06-07 19:00:57

标签: excel vba

请参阅标题。我想向索引表中的单元格添加一个超链接(指向图表表),以便用户可以单击索引表中的链接并将其带到图表。

我尝试在Address:=之后列出整个路径,所以Address:=ThisWorkbook.("Charts Index")我尝试将路径设置为字符串和变体,我尝试复制几乎所有类似的问题互联网。我尝试以多种不同方式使用.Hyperlinks.SubAddress,等等。

Set newWs = ThisWorkbook.Charts.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))

Dim index_ws As Worksheet
Set index_ws = ThisWorkbook.Worksheets("Charts Index")

Sheet3.define_emptyRow

With index_ws
    .Cells(emptyRow, 1) = chTitle_textB.Value
    .Cells(emptyRow, 2) = shName_textB.Value
    .Hyperlinks.Add Anchor:=.Cells(emptyRow, 3), _
    Address:="", SubAddress:=newWs, _
    TextToDisplay:="see Chart"
End With

我希望此代码将超链接添加到索引页面,当我单击它时,希望它带我到图表。

2 个答案:

答案 0 :(得分:1)

手动

插入>链接>放置在此文档中

通过VBA

EditText name=getActivity().findViewById(R.id.enterName); 
Button create=getActivity().layout.findViewById(R.id.create);

(用单元格引用替换选择。)

答案 1 :(得分:0)

我希望我能正确理解您的问题,但是您是否尝试使用Excel提供的“ 插入超链接”工具(按钮)?有一个名为“在此文档中放置”的菜单选项,您可以在其中选择要链接到同一工作簿中的工作表或定义的名称(作为超链接)。您可以指定单元格,工作表甚至是已定义的名称。

以下是屏幕截图: Insert Hyperlink Menu

我希望这会有所帮助!它不是VBA代码,但我认为它可能是您正在寻找的东西(有一个简单的解决方案)。

V