[求助]EXCEL 中VBA 自动添加超链接

maicao1986

[求助帖]
sheet1 中有单元格内容为 10、21、35、47等无规律数，想要做成，直接连接为sheet2 中A10、A21、A35、A47.
因为之后数字还有变化，所以需要做成动态，如：
先查询这个单元格中的数据，然后将sheet2中 a" &这个数据作为链接对象。

先行谢过了。

张文洲

=indirect("sheet2!A"&a1)   其中a1为动态的单元格

maicao1986

张文洲 发表于 2013-3-10 14:25
=indirect("sheet2!A"&a1)   其中a1为动态的单元格

我想知道VBA 的代码 超链接使用的关键字是什么呀？
你那个我在单元格写了也不好使。
抱歉，可能比较愚钝哦。

maicao1986

grf1973 发表于 2013-3-22 13:10
Sub 链接()
      ActiveSheet.Hyperlinks.Add anchor:=[a1], Address:="", _
          SubAddress:="'" ...

虽然迟到了，但这个是正确的哦。
我使用的是：
   strRaName = ShtName + "!A" & LineLinkNo '链接的名字拼接好，AXX
     Range(LinkColNo & LineNo).Hyperlinks.Add anchor:=Range(LinkColNo & LineNo), Address:="", SubAddress:= _
     strRaName

grf1973

数字放在[A1]
Sub 跳转()
    Sheets(2).Activate
    ActiveSheet.Cells(CInt([a1].Value), "A").Select
End Sub

grf1973

Sub 链接()
      ActiveSheet.Hyperlinks.Add anchor:=[a1], Address:="", _
          SubAddress:="'" & "Sheet2" & "'!A" & CInt([a1])
End Sub

grf1973

不过每次进入sheet1前要把这个运行一下。否则保留的是上一次的链接。